Código ASP para obtener la dirección IP de Tencent

ASP utiliza ASP para almacenar el código para obtener la dirección IP de Tencent y los datos leídos de ella. Pregunta:

Copie el código de código de la siguiente manera:

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

<tipo de script=texto/javascript>

var jeje1=IPData[2]

var jeje2=IPData[3]

alerta(jeje1);

alerta(jeje2);

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

</script>

Cómo utilizar ASP para almacenar los datos leídos desde arriba.

respuesta:

Copie el código de código de la siguiente manera:

<%

función GetResStr(URL,código)

errar.claro

dimHttp,ReturnStr

Establecer Http=server.createobject(Microsoft.XMLHTTP)

Http.open OBTENER, URL, Falso

Http.Enviar()

Si Http.Readystate = 4 Entonces

Si Http.status = 200 entonces

ReturnStr=BytesToBstr(http.responseBody,código)

GetResStr=RetornoStr

Terminar si

Terminar si

Función final

'Nombre de la función:BytesToBstr

'Función: Convertir datos binarios a caracteres

'Parámetros: datos binarios del cuerpo, método de codificación de texto Cset

Función BytesToBstr(Cuerpo,Cset)

Corriente de objetos tenue

Establecer Objstream = Server.CreateObject(adodb.stream)

objstream.Tipo = 1

objstream.Modo =3

objstream.Abrir

objstream.Escribir cuerpo

objstream.Posición = 0

objstream.Tipo = 2

objstream.Charset =Cset

BytesToBstr = objstream.ReadText

objstream.Cerrar

establecer objstream = nada

Función final

URL tenue, TempStr

vUrl=http://fw.qq.com/direcciónip

TempStr=GetResStr(vUrl,gb2312)

respuesta.escribir Su IP es (asp obtiene la IP real):&split(TempStr,)(1) &split(TempStr,)(5) &replace(split(TempStr,)(7),ciudad,)

%>