Код ASP для получения IP-адреса Tencent

ASP использует ASP для хранения кода получения IP-адреса Tencent и считываемых с него данных. Вопрос:

Скопируйте код кода следующим образом:

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

<тип сценария=текст/javascript>

вар хехе1=IPData[2]

вар hehe2=IPData[3]

оповещение (хе-хе1);

оповещение (хе-хе2);

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

</скрипт>

Как использовать ASP для хранения данных, прочитанных сверху.

отвечать:

Скопируйте код кода следующим образом:

<%

функция GetResStr(URL,код)

ошибка.очистить

dimHttp,ReturnStr

Установите Http=server.createobject(Microsoft.XMLHTTP)

Http.open GET,URL,False

HTTP.Отправить()

Если Http.Readystate = 4 Тогда

Если Http.status=200 Тогда

ReturnStr=BytesToBstr(http.responseBody,код)

GetResStr=ReturnStr

Конец, если

Конец, если

Конечная функция

'Имя функции: BytesToBstr

'Функция: конвертировать двоичные данные в символы

'Параметры: двоичные данные тела, метод кодирования текста Cset.

Функция BytesToBstr(Body,Cset)

Дим Обжстрим

Установите Objstream = Server.CreateObject(adodb.stream)

objstream.Type = 1

objstream.Mode =3

objstream.Открыть

objstream.Напишите тело

objstream.Position = 0

objstream.Type = 2

objstream.Charset =Cset

BytesToBstr = objstream.ReadText

objstream.Close

установить objstream = ничего

Конечная функция

тусклый vUrl, TempStr

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

TempStr=GetResStr(vUrl,gb2312)

response.write Ваш IP (asp получает реальный IP):&split(TempStr,)(1) &split(TempStr,)(5) &replace(split(TempStr,)(7),city,)

%>