ASP教程之我写ASP经常用到的一些函数
缺点:安全性不是太差了，还行，只要你充分利用系统自带的工具;唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。函数关于ASP言语来讲，把某一功效模块写成类，那关于效力来说，一定是件很倡始的事，可是把这类模块化向小了往说，把一些功效写成函数，那就关于在ASP开辟的时分，省很多事了，以下是一些我常常用到的函数，有一些是我写的，有的是从网上找的，好比说CFS编码的；网上的CFS编码的函数内里的变量都没声明，以是在我的页面声了然optionexplicit后就不克不及一般利用了，很复杂，我在FUNCTION里把变量声了然就能够了。这儿只是一部分，由于我如今在公司，而我的年夜部分材料都在家里电脑上，今后再增补了……人人假如有甚么好的有和的函数，也接待和我交换……
@转换日期为礼拜几函数@idate为尺度日期格局@itype为0时暗示英文礼拜几,不然为中文functionshowweek(idate,itype)ifitype0thenitype=1//避免误输入错diminum,ndayinum=weekday(idate)ifitype=0thenselectcaseinumcase1nday="Sunday"case2nday="Monday"case3nday="Tuesday"case4nday="Wednesday"case5nday="Thursday"case6nday="Friday"case7nday="Saturday"endselectelseselectcaseinumcase1nday="礼拜天"case2nday="礼拜一"case3nday="礼拜二"case4nday="礼拜三"case5nday="木曜日"case6nday="礼拜五"case7nday="礼拜六"endselectendif//OUTPUTshowweek=ndayendfunction//*************************************************************
@分页列表函数@参数申明：TotalReCount:纪录总数@page:以后页码,pagesize:分页巨细，url:页面地点functionPageList(TotalReCount,page,pagesize,url)dimstartPage,endPage,ipage,totalPage//判别链接文件后参数个数ifinStr(1,url,"?")=0thenurl=url&"?"elseurl=url&"&"endif//失掉总页数totalPage=TotalReCountpagesizeifTotalRecountmodpagesize0thentotalPage=Cint(TotalRecountpagesize+1)startPage=1endPage=totalPageifpage>10thenstartPage=page-4iftotalPage<10thenendPage=totalPageelseifpage=<10thenendPage=10elseendPage=page+4ifendPage>totalPagethenendPage=totalPageendifendif%>共有:<%=TotalReCount%><%=pagesize%>页<%ifpage>1then%><ahref="<%=url%>page=1"><fontface="webdings">9</font></a><ahref="<%=url%>page=<%=page-1%>"><fontface="webdings">7</font></a><%endif%><%foripage=startPagetoendPageifipagepagethen%><ahref=""><%=ipage%></a><%elseresponse.writei&""endifnext%><%if(totalPage-page)>4then%><ahref="<%=url%>page=<%=page+1%>"><fontface="webdings">8</font></a><ahref="<%=url%>page=<%=totalPage%>"><fontface="webdings">:</font></a><%endif
endfunction//*************************************************************
//检测组件是不是安装函数FunctionIsObjInstalled(strClassString)OnErrorResumeNextIsObjInstalled=FalseErr=0DimxTestObjSetxTestObj=Server.CreateObject(strClassString)If0=ErrThenIsObjInstalled=TrueSetxTestObj=NothingErr=0EndFunction//*************************************************************
FunctionSafeRequest(ParaName,ParaType)避免SQL注进打击代码---传进参数---//例:SafeRequest("username",0)或SafeRequest("id",1)ParaName:参数称号-字符型ParaType:参数范例-数字型(1暗示参数是数字，0暗示参数为字符)
DimParaValueParaValue=Request(ParaName)IfParaType=1thenIfnotisNumeric(ParaValue)thenResponse.write"<scriptlanguage=javascript>alert(参数"&ParaName&"必需为数字型！);</script>"Response.write"<scriptlanguage=javascript>window.history.back();</script>"Response.endelseifParaValue<1thenParaValue=1EndifElseParaValue=replace(ParaValue,"","")EndifSafeRequest=ParaValueEndfunction//*************************************************************
//HTML解码函数FunctionHTMLDecode(fString)IfNotIsNull(fString)ThenfString=replace(fString,">",">")fString=replace(fString,"<","<")fString=Replace(fString,"",CHR(32))fString=Replace(fString,"",CHR(9))fString=Replace(fString,""",CHR(34))双引号过滤fString=Replace(fString,CHR(39),"")单引号过滤fString=Replace(fString,,""CHR(13))fString=Replace(fString,"</p><p>",CHR(10)&CHR(10))fString=Replace(fString,"<br>",CHR(10))HTMLDecode=fStringEndIfEndFunction//*************************************************************
//HTML编码函数FunctionHTMLEncode(fString)IfNotIsNull(fString)ThenfString=replace(fString,">",">")fString=replace(fString,"<","<")fString</p>asp可以使用微软的activeX使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 不能只是将它停留在纸上谈兵的程度上。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write
页:
[1]