<%
'*******************************************************************
'取得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)