ASP常用函数收藏乱七八糟未整理版

<%

'*******************************************************************

'取得IP地址

'*******************************************************************

FunctionUserip()

DimGetClientIP

'如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法

GetClientIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")

IfGetClientIP=""orIsNull(GetClientIP)orIsEmpty(GetClientIP)Then

'如果客户端没用代理，应该用Request.ServerVariables("REMOTE_ADDR")方法

GetClientIP=Request.ServerVariables("REMOTE_ADDR")

EndIf

Userip=GetClientIP

EndFunction

'*******************************************************************

'转换IP地址

'*******************************************************************

Functioncip(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)

EndFunction

'*******************************************************************

'弹出对话框

'*******************************************************************

Subalert(message)

message=Replace(message,"'","/'")

Response.Write("<script>alert('"&message&"')</script>")

EndSub

'*******************************************************************

'返回上一页，一般用在判断信息提交是否完全之后

'*******************************************************************

SubGoBack()

Response.Write("<script>history.go(-1)</script>")

EndSub

'*******************************************************************

'重定向另外的连接

'*******************************************************************

SubGo(url)