<%
'***************************************************
'Holen Sie sich IP -Adresse
'***************************************************
FunctionuSerip ()
DimgetClientip
„Wenn der Client einen Proxy -Server verwendet, sollte er die Methode ServerVariable (" http_x_forwarded_for ") verwenden
GetClientip = request.servervariables ("http_x_forwarded_for")
IfgetClientip = "" orisnull (getClientip) oriseMpty (getClientip) dann
'Wenn der Client keinen Proxy verwendet, sollte die Methode für die Anforderung verwendet werden.
GetClientip = request.servervariables ("remote_addr")
Endif
Userip = getClientip
Endfunktion
'***************************************************
'IP -Adresse konvertieren
'***************************************************
Funktionsabschnitt (SIP)
Tipp = CSTR (SIP)
SIP1 = links (Tipp, Cint (Instrument (Tipp, ")-1))
Tipp = Mid (Tipp, Cint (Instrument (Tipp, ")+1))
SIP2 = links (Tipp, Cint (Instrument (Tipp, ")-1))
Tipp = Mid (Tipp, Cint (Instrument (Tipp, ")+1))
SIP3 = links (Tipp, Cint (Instrument (Tipp, ")-1))
SIP4 = MID (TIPP, CINT (Instrument (Tipp, ")+1))
cip = cint (sip1)*256*256*256+cint (sip2)*256*256+cint (sip3)*256+cint (sip4)
Endfunktion
'***************************************************
'Das Dialogfeld wird angezeigt
'***************************************************
Subalert (Nachricht)
message = ersetzen (message, "'", "/'")
Response.write ("<Script> alert ('" & message & "') </script>")
Ende
'***************************************************
'Kehren Sie zur vorherigen Seite zurück, die normalerweise nach der Beurteilung verwendet wird, ob die Informationen vollständig eingereicht werden
'***************************************************
Subgoback ()
Response.write ("<Script> history.go (-1) </script>")
Ende
'***************************************************
'Eine andere Verbindung umleiten
'***************************************************
Subgo (URL)