Tencent IP アドレスを取得するための ASP コード

ASP は、Tencent の IP アドレスを取得するためのコードと、そこから読み取られたデータを保存するために ASP を使用します。質問：

次のようにコードをコピーします。

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

<script type=text/javascript>

var hehe1=IPData[2]

var hehe2=IPData[3]

アラート(hehe1);

アラート(hehe2);

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

</script>

ASP を使用して上から読み取ったデータを保存する方法。

答え：

次のようにコードをコピーします。

<%

関数 GetResStr(URL,コード)

エラークリア

dimHttp,ReturnStr

Http=server.createobject(Microsoft.XMLHTTP) を設定します。

Http.open GET、URL、False

Http.Send()

Http.Readystate =4 の場合

Http.status=200 の場合

ReturnStr=BytesToBstr(http.responseBody,code)

GetResStr=ReturnStr

終了の場合

終了の場合

終了機能

'関数名:BytesToBstr

'機能: バイナリデータを文字に変換します

'パラメータ: 本体バイナリデータ、Csetテキストエンコード方式

関数 BytesToBstr(Body,Cset)

薄暗いオブジェクトストリーム

Objstream = Server.CreateObject(adodb.stream) を設定します。

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.本体の書き込み

objstream.Position = 0

objstream.Type = 2

objstream.Charset =Cset

BytesToBstr = objstream.ReadText

objstream.Close

objstream = 何も設定しない

終了機能

dim 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,)

%>