ASP常用函数-白红宇

ASP常用函数

阅读量：6292 次

发布时间：2019-06-22

本文共 9740 字，大约阅读时间需要 32 分钟。

取得IP地址 '******************************************************************* Function Userip() Dim GetClientIP '如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法 GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then '如果客户端没用代理，应该用Request.ServerVariables("REMOTE_ADDR")方法 GetClientIP = Request.ServerVariables("REMOTE_ADDR") end if Userip = GetClientIP End function '******************************************************************* '转换IP地址 '******************************************************************* function cip(sip) tip=cstr(sip) sip1=left(tip,cint(instr(tip,".")-1)) tip=mid(tip,cint(instr(tip,".")+1)) sip2=left(tip,cint(instr(tip,".")-1)) tip=mid(tip,cint(instr(tip,".")+1)) sip3=left(tip,cint(instr(tip,".")-1)) sip4=mid(tip,cint(instr(tip,".")+1)) cip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4) end function '******************************************************************* ' 弹出对话框 '******************************************************************* Sub alert(message) message = replace(message,"'","\'") Response.Write ("") End Sub '******************************************************************* ' 返回上一页，一般用在判断信息提交是否完全之后 '******************************************************************* Sub GoBack() Response.write ("") End Sub '******************************************************************* ' 重定向另外的连接 '******************************************************************* Sub Go(url) Response.write ("") End Sub '******************************************************************* ' 我比较喜欢将以上三个结合起来使用 '******************************************************************* Function Alert(message,gourl) message = replace(message,"'","\'") If gourl="-1" then Response.Write ("") Else Response.Write ("") End If Response.End() End Function '******************************************************************* '******************************************************************* ' 指定秒数重定向另外的连接 '******************************************************************* sub GoPage(url,s) s=s*1000 Response.Write "" end sub '******************************************************************* ' 判断数字是否整形 '******************************************************************* function isInteger(para) on error resume next dim str dim l,i if isNUll(para) then isInteger=false exit function end if str=cstr(para) if trim(str)="" then isInteger=false exit function end if l=len(str) for i=1 to l if mid(str,i,1)>"9" or mid(str,i,1)<"0" then isInteger=false exit function end if next isInteger=true if err.number<>0 then err.clear end function '******************************************************************* ' 获得文件扩展名 '******************************************************************* function GetExtend(filename) dim tmp if filename<>"" then tmp=mid(filename,instrrev(filename,".")+1,len(filename)-instrrev(filename,".")) tmp=LCase(tmp) if instr(1,tmp,"asp")>0 or instr(1,tmp,"php")>0 or instr(1,tmp,"php3")>0 or instr(1,tmp,"aspx")>0 then getextend="txt" else getextend=tmp end if else getextend="" end if end function ' *---------------------------------------------------------------------------- ' * 函数：CheckIn ' * 描述：检测参数是否有SQL危险字符 ' * 参数：str要检测的数据 ' * 返回：FALSE：安全 TRUE：不安全 ' * 作者： ' * 日期： ' *---------------------------------------------------------------------------- function CheckIn(str) if instr(1,str,chr(39))>0 or instr(1,str,chr(34))>0 or instr(1,str,chr(59))>0 then CheckIn=true else CheckIn=false end if end function ' *---------------------------------------------------------------------------- ' * 函数：HTMLEncode ' * 描述：过滤HTML代码 ' * 参数：-- ' * 返回：-- ' * 作者： ' * 日期： ' *---------------------------------------------------------------------------- function HTMLEncode(fString) if not isnull(fString) then fString = 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, CHR(10) & CHR(10), "
 ") fString = Replace(fString, CHR(10), "
 ") HTMLEncode = fString end if end function ' *---------------------------------------------------------------------------- ' * 函数：HTMLcode ' * 描述：过滤表单字符 ' * 参数：-- ' * 返回：-- ' * 作者： ' * 日期： ' *---------------------------------------------------------------------------- function HTMLcode(fString) if not isnull(fString) then fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "
") fString = Replace(fString, CHR(34), "") fString = Replace(fString, CHR(10), "
") HTMLcode = fString end if end function 转载：http://rmwz.blogchina.com/blog/refer.101953.html [Edit on 2005-9-27 8:40:38 By sungla]'******************************************************************* '取得IP地址 '******************************************************************* Function Userip() Dim GetClientIP '如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法 GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then '如果客户端没用代理，应该用Request.ServerVariables("REMOTE_ADDR")方法 GetClientIP = Request.ServerVariables("REMOTE_ADDR") end if Userip = GetClientIP End function '******************************************************************* '转换IP地址 '******************************************************************* function cip(sip) tip=cstr(sip) sip1=left(tip,cint(instr(tip,".")-1)) tip=mid(tip,cint(instr(tip,".")+1)) sip2=left(tip,cint(instr(tip,".")-1)) tip=mid(tip,cint(instr(tip,".")+1)) sip3=left(tip,cint(instr(tip,".")-1)) sip4=mid(tip,cint(instr(tip,".")+1)) cip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4) end function '******************************************************************* ' 弹出对话框 '******************************************************************* Sub alert(message) message = replace(message,"'","\'") Response.Write ("") End Sub '******************************************************************* ' 返回上一页，一般用在判断信息提交是否完全之后 '******************************************************************* Sub GoBack() Response.write ("") End Sub '******************************************************************* ' 重定向另外的连接 '******************************************************************* Sub Go(url) Response.write ("") End Sub '******************************************************************* ' 我比较喜欢将以上三个结合起来使用 '******************************************************************* Function Alert(message,gourl) message = replace(message,"'","\'") If gourl="-1" then Response.Write ("") Else Response.Write ("") End If Response.End() End Function '******************************************************************* '******************************************************************* ' 指定秒数重定向另外的连接 '******************************************************************* sub GoPage(url,s) s=s*1000 Response.Write "" end sub '******************************************************************* ' 判断数字是否整形 '******************************************************************* function isInteger(para) on error resume next dim str dim l,i if isNUll(para) then isInteger=false exit function end if str=cstr(para) if trim(str)="" then isInteger=false exit function end if l=len(str) for i=1 to l if mid(str,i,1)>"9" or mid(str,i,1)<"0" then isInteger=false exit function end if next isInteger=true if err.number<>0 then err.clear end function '******************************************************************* ' 获得文件扩展名 '******************************************************************* function GetExtend(filename) dim tmp if filename<>"" then tmp=mid(filename,instrrev(filename,".")+1,len(filename)-instrrev(filename,".")) tmp=LCase(tmp) if instr(1,tmp,"asp")>0 or instr(1,tmp,"php")>0 or instr(1,tmp,"php3")>0 or instr(1,tmp,"aspx")>0 then getextend="txt" else getextend=tmp end if else getextend="" end if end function ' *---------------------------------------------------------------------------- ' * 函数：CheckIn ' * 描述：检测参数是否有SQL危险字符 ' * 参数：str要检测的数据 ' * 返回：FALSE：安全 TRUE：不安全 ' * 作者： ' * 日期： ' *---------------------------------------------------------------------------- function CheckIn(str) if instr(1,str,chr(39))>0 or instr(1,str,chr(34))>0 or instr(1,str,chr(59))>0 then CheckIn=true else CheckIn=false end if end function ' *---------------------------------------------------------------------------- ' * 函数：HTMLEncode ' * 描述：过滤HTML代码 ' * 参数：-- ' * 返回：-- ' * 作者： ' * 日期： ' *---------------------------------------------------------------------------- function HTMLEncode(fString) if not isnull(fString) then fString = 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, CHR(10) & CHR(10), "
 ") fString = Replace(fString, CHR(10), "
 ") HTMLEncode = fString end if end function ' *---------------------------------------------------------------------------- ' * 函数：HTMLcode ' * 描述：过滤表单字符 ' * 参数：-- ' * 返回：-- ' * 作者： ' * 日期： ' *---------------------------------------------------------------------------- function HTMLcode(fString) if not isnull(fString) then fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "
") fString = Replace(fString, CHR(34), "") fString = Replace(fString, CHR(10), "
") HTMLcode = fString end if end function