ASP常用函数

2021-07-18 02:12:27
取得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
码农公寓

相关文章
