ASP-Code zum Erhalten der Tencent-IP-Adresse

ASP verwendet ASP, um den Code zum Abrufen der IP-Adresse von Tencent und die daraus gelesenen Daten zu speichern. Frage:

Kopieren Sie den Codecode wie folgt:

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

<script type=text/javascript>

var hehe1=IPData[2]

var hehe2=IPData[3]

alarm(hehe1);

alarm(hehe2);

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

</script>

So verwenden Sie ASP zum Speichern der oben gelesenen Daten.

Antwort:

Kopieren Sie den Codecode wie folgt:

<%

Funktion GetResStr(URL,code)

irr.klar

dimHttp,ReturnStr

Setze Http=server.createobject(Microsoft.XMLHTTP)

Http.open GET,URL,False

Http.Send()

Wenn Http.Readystate =4, dann

Wenn Http.status=200, dann

ReturnStr=BytesToBstr(http.responseBody,code)

GetResStr=ReturnStr

Ende wenn

Ende wenn

Funktion beenden

'Funktionsname:BytesToBstr

'Funktion: Binärdaten in Zeichen umwandeln

'Parameter: Body-Binärdaten, Cset-Text-Kodierungsmethode

Funktion BytesToBstr(Body,Cset)

Dim Objstream

Setze Objstream = Server.CreateObject(adodb.stream)

objstream.Type = 1

objstream.Mode =3

objstream.Öffnen

objstream.Text schreiben

objstream.Position = 0

objstream.Type = 2

objstream.Charset =Cset

BytesToBstr = objstream.ReadText

objstream.Schließen

set objstream = nichts

Funktion beenden

dim vUrl,TempStr

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

TempStr=GetResStr(vUrl,gb2312)

Response.write Ihre IP ist (asp erhält die echte IP):&split(TempStr,)(1) &split(TempStr,)(5) &replace(split(TempStr,)(7),city,)

%>