<%
'*********************************
'Funktion: userIP ()
'Parameter: Keine
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: Rufen Sie die Client -IP -Adresse ein
Beispiel: <%= userIP ()%>
'*********************************
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 -Adressfunktion konvertieren
Die Codekopie lautet wie folgt:
<%
'*********************************
'Funktion: CIP (SIP)
'Parameter: SIP, IP -Adresse
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: IP -Adressfunktion konvertieren
'Beispiel: <%= CIP ("219,16,73,120")%>
'*********************************
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
%>