Exemple de bibliothèque Pure IP d'appel ASP

Recommandé: instance ASP: visiteurs récents de l'ASP Implementation Space
En raison des relations de travail, nous travaillons sur un espace utilisateur. Pour utiliser les visiteurs les plus récents dans l'espace, consultez le code ASP:% username = request.Querystring (nom d'utilisateur) 'Le nom d'utilisateur dans la colonne au sol est votre nom d'utilisateur si TRIM (request.cookies (user_name)), alors `` La page d'accueil doit déterminer si l'accès est connecté, uniquement connecté à peut être enregistré.

Lorsque je travaille sur un projet, j'ai rencontré le problème d'ASP appelant la bibliothèque IP innocente. Maintenant, permettez-moi de parler de la solution.

<%

'====================================================================.

'Return IP Information Disp_ipaddressData (IP, 0)

'====================================================================.

Fonction look_ip (ip)

DIM WRY, IPTYPE, QQWRYVERSION, IPCOUNTER

'Définir l'objet de classe

Set wry = new tqqwry

'Commencez à rechercher et à revenir aux résultats de la recherche

«Vous pouvez déterminer si l'adresse IP existe dans la base de données en fonction de la valeur de retour QQWRY (IP). S'il n'existe pas, vous pouvez effectuer d'autres opérations.

'Par exemple, si vous créez une base de données pour la poursuite, je n'expliquerai pas en détail ici

IpType = wry.qqwry (ip)

'Pays: Pays: Country Field

'Localstr: Province, ville et autres domaines d'information

Look_ip = wry.country & & wry.localtr

'' '' 'Look_ip = wry.country &

Fonction finale

'====================================================================.

«Renvoie des informations IP JS Appel

'====================================================================.

Fonction disp_ipaddressdata (ip, stype)

DIM WRY, IPTYPE

Set wry = new tqqwry

IpType = wry.qqwry (ip)

Sélectionner le cas STYPE

Cas 1 Disp_ipAddressData = IP

Cas 2 Disp_ipAddressData = Wry.Country

Cas 3 Disp_ipaddressData = wry.localtr

'Cas else disp_ipaddressdata = wry.country & & wry.localtr

Cas else disp_ipaddressdata = wry.country

Fin de sélection

Fonction finale

'====================================================================.

'Retour aux informations QQwry

'====================================================================.

Fonction wryinfo ()

Dim Wry, ipType, qqwry_tem (0), qqwry_tem1 (1)

'Définir l'objet de classe

Set wry = new tqqwry

IpType = wry.qqwry (255.255.255.254)

«Lire les informations de la version de la base de données

Qqwry_tem (0) = wry.country & & wry.localtr

'Lisez le nombre d'adresses IP de base de données

Qqwry_tem1 (1) = wry.recordCount + 1

Wryinfo = qqwry_tem (0) & & qqwry_tem1 (1)

Fonction finale

Partager: ASP empêche les attaques post-injection et le serveur et enregistre IP
% 'Empêcher Get, Post Injection et Server Attack' Utiliser la méthode pour inclure ce fichier dans le fichier qui doit être noté, alors veuillez noter que les attaques post-attaques et obtenir des attaques ici ne sont pas nécessairement des attaques. Veuillez prêter attention à les utiliser dans la version anglaise 'Feng Xu Modified Session.abandon () dim fxjt111_attack_post, fxjt111_attack_get, fxjt111_attack_sys