ASP menggunakan ASP untuk menyimpan kode untuk mendapatkan alamat IP Tencent, dan data dibaca darinya. Pertanyaan:
Copy kode kodenya sebagai berikut:
<skrip tipe=teks/javascript src=http://fw.qq.com/ipaddress></script>
<tipe skrip=teks/javascript>
var hehe1=Data IP[2]
var hehe2=Data IP[3]
waspada(hehe1);
waspada(hehe2);
dokumen.tulis(IPData.join(' '));
</skrip>
Cara menggunakan ASP untuk menyimpan data yang dibaca dari atas.
menjawab:
Copy kode kodenya sebagai berikut:
<%
fungsi GetResStr(URL,kode)
err.jelas
dimHttp,ReturnStr
Setel Http=server.buat objek(Microsoft.XMLHTTP)
Http.buka GET,URL,Salah
Http.Kirim()
Jika Http.Readystate =4 Lalu
Jika Http.status=200 Lalu
ReturnStr=BytesToBstr(http.responseBody,kode)
GetResStr=KembaliStr
Akhiri Jika
Akhiri Jika
Fungsi Akhir
'Nama fungsi:BytesToBstr
'Fungsi: Mengubah data biner menjadi karakter
'Parameter: Data biner tubuh, metode pengkodean teks-Cset
Fungsi BytesToBstr(Badan,Cset)
Redupkan Objstream
Setel Objstream = Server.CreateObject(adodb.stream)
objstream.Jenis = 1
objstream.Mode =3
objstream.Buka
objstream.Tulis isi
objstream.Posisi = 0
objstream.Jenis = 2
objstream.Charset =Cset
BytesToBstr = objstream.ReadText
objstream.Tutup
setel objstream = tidak ada
Fungsi Akhir
redupkan vUrl,TempStr
vUrl=http://fw.qq.com/ipaddress
TempStr=GetResStr(vUrl,gb2312)
respon.tulis IP Anda adalah (asp mendapatkan IP asli):&split(TempStr,)(1) &split(TempStr,)(5) &replace(split(TempStr,)(7),city,)
%>