ASP常用函数

取得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 ("<script>alert('" & message & "')</script>") 
End Sub 

'******************************************************************* 
' 返回上一页，一般用在判断信息提交是否完全之后 
'******************************************************************* 
Sub GoBack() 
Response.write ("<script>history.go(-1)</script>") 
End Sub 

'******************************************************************* 
' 重定向另外的连接 
'******************************************************************* 
Sub Go(url) 
Response.write ("<script>location.href('" & url & "')</script>") 
End Sub 
'******************************************************************* 
' 我比较喜欢将以上三个结合起来使用 
'******************************************************************* 
Function Alert(message,gourl) 
message = replace(message,"'","\'") 
If gourl="-1" then 
Response.Write ("<script language=javascript>alert('" & message & "');history.go(-1)</script>") 
Else 
Response.Write ("<script language=javascript>alert('" & message & "');location='" & gourl &"'</script>") 
End If 
Response.End() 
End Function 
'******************************************************************* 

'******************************************************************* 
' 指定秒数重定向另外的连接 
'******************************************************************* 
sub GoPage(url,s) 
s=s*1000 
Response.Write "<SCRIPT LANGUAGE=JavaScript>" 
Response.Write "window.setTimeout("&chr(34)&"window.navigate('"&url&"')"&chr(34)&","&s&")" 
Response.Write "</script>" 
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), "</P><P> ") 
fString = Replace(fString, CHR(10), "<BR> ") 

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), "</P><P>") 
fString = Replace(fString, CHR(34), "") 
fString = Replace(fString, CHR(10), "<BR>") 
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 ("<script>alert('" & message & "')</script>") 
End Sub 

'******************************************************************* 
' 返回上一页，一般用在判断信息提交是否完全之后 
'******************************************************************* 
Sub GoBack() 
Response.write ("<script>history.go(-1)</script>") 
End Sub 

'******************************************************************* 
' 重定向另外的连接 
'******************************************************************* 
Sub Go(url) 
Response.write ("<script>location.href('" & url & "')</script>") 
End Sub 
'******************************************************************* 
' 我比较喜欢将以上三个结合起来使用 
'******************************************************************* 
Function Alert(message,gourl) 
message = replace(message,"'","\'") 
If gourl="-1" then 
Response.Write ("<script language=javascript>alert('" & message & "');history.go(-1)</script>") 
Else 
Response.Write ("<script language=javascript>alert('" & message & "');location='" & gourl &"'</script>") 
End If 
Response.End() 
End Function 
'******************************************************************* 

'******************************************************************* 
' 指定秒数重定向另外的连接 
'******************************************************************* 
sub GoPage(url,s) 
s=s*1000 
Response.Write "<SCRIPT LANGUAGE=JavaScript>" 
Response.Write "window.setTimeout("&chr(34)&"window.navigate('"&url&"')"&chr(34)&","&s&")" 
Response.Write "</script>" 
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), "</P><P> ") 
fString = Replace(fString, CHR(10), "<BR> ") 

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), "</P><P>") 
fString = Replace(fString, CHR(34), "") 
fString = Replace(fString, CHR(10), "<BR>") 
HTMLcode = fString 
end if 
end function