22开发必备常用ASP函数的封装

开发必备：常用ASP函数的封装常需要用到一些小功能，这些功能通常我们都会封装成函数来使用，本教程提供了许多我们经常用到的ASP函数。%'所有功能函数名如下：'StrLength(str)取得字符串长度'CutStr(str,strlen)字符串长度切割'CheckIsEmpty(tstr)检测是否为空'isInteger(para)整数检验'CheckName(str)名字字符校验'CheckPassword(str)密码检验'CheckEmail(email)邮箱格式检验'Alert(msg,goUrl)弹出对话框提示'GoBack(Str1,Str2,isback)出错信息提示'Suc(str1,str2,url)操作成功信息提示'ChkPost()检测是否站外提交表单'PSql()防止sql注入'FiltrateHtmlCode(Str)防止生成HTML'HtmlCode(str)过滤HTML'Replacehtml(tstr)清滤HTML'GetIP()获取客户端IP'GetBrowser获取客户端浏览器信'GetSystem获取客户端操作系统'GetUrl()获取当前页面URL包含参数'CUrl()获取当前页面URL'GetExtend取得文件扩展名'CheckExist(table,fieldname,fieldcontent,isblur)检测某个表中某个字段的内容是否存在'GetNum(table,fieldname,resulttype,args)检测某个表某个字段有多少条，最大值，最小值等'GetFolderSize(Folderpath)计算某个文件夹的大小'GetFileSize(Filename)计算某个文件的大小'IsObjInstalled(strClassString)检测组件是否安装'SendMailJMAIL发送邮件'ResponseCookies写入cookies'CleanCookies清除cookies'GetTimeover取得程序页面执行时间'FormatSize大小格式化'FormatTime时间格式化'Zodiac取得生肖'Constellation取得星座'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ClassCls_fun'－－－－－－－－字符处理－－－－－－－－－－－－－－－－－－－－－－－－－－'****************************************************'函数名：StrLength'作用：取得字符串长度（汉字为2)'参数：str----字符串内容'返回值：字符串长度'****************************************************PublicfunctionStrLength(str)DimRep,lens,iSetrep=newregexprep.Global=truerep.IgnoreCase=truerep.Pattern=[\u4E00-\u9FA5\uF900-\uFA2D]Foreachiinrep.Execute(str)lens=lens+1NextSetRep=Nothinglens=lens+len(str)strLength=lensEndFunction'****************************************************'函数名：CutStr'作用：字符串长度切割，超过显示省略号'参数：str----字符串内容'strlen------要显示的长度'返回值：切割后字符串内容'****************************************************PublicFunctionCutStr(str,strlen)Diml,t,i,cIfstr=Thencutstr=ExitFunctionEndIfstr=Replace(Replace(Replace(Replace(Replace(str, ,),",Chr(34)),>,),<,),|,|)l=Len(str)t=0Fori=1Tolc=Abs(Asc(Mid(str,i,1)))Ifc255Thent=t+2Elset=t+1EndIfIft=strlenThencutstr=Left(str,i)&...ExitForElsecutstr=strEndIfNextcutstr=Replace(Replace(Replace(Replace(replace(cutstr,, ),Chr(34),"),,>),,<),|,|)EndFunction'－－－－－－－－－－－－－－系列验证－－－－－－－－－－－－－－－－－－－－－－－－－－－－'****************************************************'函数名：CheckIsEmpty'作用：检查是否为空'参数：tstr----字符串'返回值：true不为空，false为空'****************************************************PublicFunctionCheckIsEmpty(tstr)CheckIsEmpty=falseIfIsNull(tstr)orTstr=ThenExitFunctionDimStr,reStr=TstrSetre=newRegExpre.IgnoreCase=Truere.Global=Truestr=Replace(str,vbNewLine,)str=Replace(str,Chr(9),)str=Replace(str,,)str=Replace(str, ,)re.Pattern=img(.[^]*)str=re.Replace(Str,94kk)re.Pattern=(.[^]*)Str=re.Replace(Str,)SetRe=NothingIfStrThenCheckIsEmpty=trueEndFunction'****************************************************'函数名：isInteger'作用：整数检验'参数：tstr----字符'返回值：true是整数，false不是整数'****************************************************PublicfunctionisInteger(para)onerrorresumeNextDimstrDiml,iIfisNUll(para)thenisInteger=falseexitfunctionEndifstr=cstr(para)Iftrim(str)=thenisInteger=falseexitfunctionEndifl=len(str)Fori=1tolIfmid(str,i,1)9ormid(str,i,1)0thenisInteger=falseexitfunctionEndifNextisInteger=trueIferr.number0thenerr.clearEndFunction'****************************************************'函数名：CheckName'作用：名字字符检验'参数：str----字符串'返回值：true无误，false有误'****************************************************PublicFunctionCheckName(Str)Checkname=trueDimRep,passSetRep=NewRegExpRep.Global=TrueRep.IgnoreCase=True'匹配字母、数字、下划线、汉字且必须以字母或下划线或汉字开始Rep.Pattern=^[a-zA-Z_u4e00-\u9fa5][\w\u4e00-\u9fa5]+$Setpass=Rep.Execute(Str)Ifpass.count=0ThenCheckName=falseSetRep=NothingEndFunction'****************************************************'函数名：CheckPassword'作用：密码检验'参数：str----字符串'返回值：true无误，false有误'****************************************************PublicFunctionCheckPassword(Str)DimpassCheckPassword=trueIfStrThenDimRepSetRep=NewRegExpRep.Global=TrueRep.IgnoreCase=True'匹配字母、数字、下划线、点号Rep.Pattern=[a-zA-Z0-9_\.]+$Pass=rep.Test(Str)SetRep=nothingIfnotPassThenCheckPassword=falseEndIfEndFunction'****************************************************'函数名：CheckEmail'作用：邮箱格式检测'参数：str----Email地址'返回值：true无误，false有误'****************************************************PublicfunctionCheckEmail(email)CheckEmail=trueDimRepSetRep=newRegExprep.pattern=([\.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(\.([a-zA-Z0-9]){2,}){1,4}$pass=rep.Test(email)SetRep=NothingIfnotpassThenCheckEmail=falseEndfunction'－－－－－－－－－－－－－－信息提示－－－－－－－－－－－－－－－－－－－－－－－－－－－－'****************************************************'函数名：Alert'作用：弹出对话框提示'参数：msg----对话框信息'gourl----提示后转向哪里'返回值：无'****************************************************PublicFunctionAlert(msg,goUrl)msg=replace(msg,',\')IfgoUrl=ThengoUrl=history.go(-1);ElsegoUrl=window.location.href='&goUrl&'EndIFResponse.Write(scriptlanguage=JavaScripttype=text/javascript&vbNewLine&alert('&msg&');&goUrl&vbNewLine&/script)Response.EndEndFunction'****************************************************'函数名：GoBack'作用：错误信息提示'参数：str1----信息提示标题'str2----信息提示内容'isback----是否显示返回'返回值：无'**************