Empfohlen: ASP -Instanz: Die jüngsten Besucher von ASP Implementation Space Aufgrund von Arbeitsbeziehungen arbeiten wir an einem Benutzerbereich. Um die neuesten Besucher im Raum zu verwenden
Bei der Arbeit an einem Projekt stieß ich auf das Problem, dass ASP die unschuldige IP -Bibliothek aufrief. Lassen Sie mich jetzt über die Lösung sprechen.
<%
"======================================================================================================================================
'IP -Informationen zurückgeben disp_ipaddressData (IP, 0)
"======================================================================================================================================
Funktion Look_IP (IP)
Dim Wry, Iptype, QQWryVersion, IPcounter
'Setzen Sie das Klassenobjekt
Legen Sie Wry = New tqqwry ein
'Beginnen Sie mit der Suche und kehren Sie zu Suchergebnissen zurück
'Sie können feststellen, ob die IP -Adresse in der Datenbank basierend auf dem Return -Wert von QQWRY (IP) vorhanden ist. Wenn es nicht existiert, können Sie einige andere Operationen ausführen.
„Wenn Sie beispielsweise eine Datenbank zur Verfolgung erstellen, werde ich hier nicht im Detail erklären
IpType = Wry.qqwry (IP)
'Land: Land: Landfeld
'Einheimischer: Provinz, Stadt und andere Informationsfelder
Look_IP = Wry.country & & Wry.localstr
'' '' Look_IP = Wry.country &
Endfunktion
"======================================================================================================================================
'IP -Informationen zurückgeben JS -Anruf
"======================================================================================================================================
Funktion disp_ipaddressData (IP, Stype)
Dim Wry, iptype
Legen Sie Wry = New tqqwry ein
IpType = Wry.qqwry (IP)
Wählen Sie den Fallstyp
Fall 1 disp_ipaddressData = ip
Fall 2 disp_ipaddressData = Wry.country
Fall 3 disp_ipaddressData = Wry.localstr
'Case sonst disp_ipaddressData = wry.country & & wry.localstr
Fall sonst disp_ipaddressData = wry.country
Ende auswählen
Endfunktion
"======================================================================================================================================
'Kehren Sie zu QQWRY -Informationen zurück
"======================================================================================================================================
Funktion Wryinfo ()
Dim Wry, iptype, qqwry_tem (0), qqwry_tem1 (1)
'Setzen Sie das Klassenobjekt
Legen Sie Wry = New tqqwry ein
IpType = Wry.qqwry (255.255.255.254)
'Datenbankversionsinformationen lesen
Qqwry_tem (0) = wry.country & & wry.localstr
'Lesen Sie die Anzahl der Datenbank -IP -Adressen
Qqwry_tem1 (1) = wry.recordCount + 1
WryInfo = qqwry_tem (0) & & qqwry_tem1 (1)
Endfunktion
Share: ASP verhindert Get, Post -Injektion und Serverangriffe und zeichnet IP auf % "Verhindern Sie GET, Post Injection und Server Attack" Verwenden Sie diese Datei in die Datei, die beachtet werden muss. Bitte beachten Sie, dass nach Angriffen und Angriffe hier nicht unbedingt Angriffe sind. Bitte achten Sie darauf, sie in der englischen Version 'Feng Xu Modified Session zu verwenden.
4 Seiten in der Gesamtseite der vorherigen Seite 1234Next