Código ASP para obter o endereço IP Tencent

ASP usa ASP para armazenar o código para obter o endereço IP da Tencent e os dados lidos dele. Pergunta:

Copie o código do código da seguinte forma:

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

<tipo de script=texto/javascript>

var hehe1=Dados IP[2]

var hehe2=Dados IP[3]

alerta(hehe1);

alerta(hehe2);

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

</script>

Como usar ASP para armazenar os dados lidos acima.

responder:

Copie o código do código da seguinte forma:

<%

função GetResStr(URL,código)

err.claro

dimHttp, ReturnStr

Definir Http=server.createobject(Microsoft.XMLHTTP)

Http.open GET,URL,Falso

Http.Enviar()

Se Http.Readystate =4 então

Se Http.status=200 Então

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

GetResStr=ReturnStr

Terminar se

Terminar se

Função final

'Nome da função:BytesToBstr

'Função: Converte dados binários em caracteres

'Parâmetros: dados binários do corpo, método de codificação de texto Cset

Função BytesToBstr(Body,Cset)

Escurecer Objstream

Definir Objstream = Server.CreateObject(adodb.stream)

objstream.Type = 1

objstream.Modo =3

objstream.Open

objstream.Escrever corpo

objstream.Posição = 0

objstream.Type = 2

objstream.Charset =Cset

BytesToBstr = objstream.ReadText

objstream.Fechar

definir objstream = nada

Função final

dim vUrl,TempStr

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

TempStr=GetResStr(vUrl,gb2312)

response.write Seu IP é (asp obtém o IP real):&split(TempStr,)(1) &split(TempStr,)(5) &replace(split(TempStr,)(7),city,)

%>