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服务器，所以性能稳定性也一般