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