Code ASP pour obtenir l'adresse IP de Tencent

ASP utilise ASP pour stocker le code permettant d'obtenir l'adresse IP de Tencent et les données qui y sont lues. Question:

Copiez le code comme suit :

<script type=text/javascript src=http://fw.qq.com/ipaddress></script>

<type de script=texte/javascript>

var hehe1=DonnéesIP[2]

var hehe2=DonnéesIP[3]

alerte(hehe1);

alerte(hehe2);

document.write(IPData.join(' '));

</script>

Comment utiliser ASP pour stocker les données lues ci-dessus.

répondre:

Copiez le code comme suit :

<%

fonction GetResStr(URL,code)

err.clear

dimHttp,ReturnStr

Définir Http=server.createobject(Microsoft.XMLHTTP)

Http.open GET,URL,Faux

Http.Envoyer()

Si Http.Readystate =4 Alors

Si Http.status=200 Alors

ReturnStr=BytesToBstr(http.responseBody,code)

GetResStr=ReturnStr

Fin si

Fin si

Fonction de fin

'Nom de la fonction : OctetsVersBstr

'Fonction : Convertir les données binaires en caractères

'Paramètres : données corps-binaires, méthode d'encodage Cset-texte

Fonction BytesToBstr(Corps,Cset)

Dim Objstream

Définir Objstream = Server.CreateObject (adodb.stream)

objstream.Type = 1

objstream.Mode =3

objstream.Ouvrir

objstream.Écrire le corps

objstream.Position = 0

objstream.Type = 2

objstream.Charset =Cset

BytesToBstr = objstream.ReadText

objstream.Fermer

définir objstream = rien

Fonction de fin

faible vUrl, TempStr

vUrl=http://fw.qq.com/ipaddress

TempStr=GetResStr(vUrl,gb2312)

réponse.write Votre IP est (asp obtient la vraie IP) :&split(TempStr,)(1) &split(TempStr,)(5) &replace(split(TempStr,)(7),city,)

%>