ASP ใช้ ASP เพื่อจัดเก็บโค้ดสำหรับรับที่อยู่ IP ของ Tencent และข้อมูลจะอ่านจากนั้น คำถาม:
คัดลอกรหัสรหัสดังต่อไปนี้:
<ประเภทสคริปต์=ข้อความ/javascript src=http://fw.qq.com/ipaddress></script>
<ประเภทสคริปต์=ข้อความ/จาวาสคริปต์>
var hehe1=ข้อมูล IP[2]
var hehe2=ข้อมูล IP[3]
แจ้งเตือน(อิอิ1);
แจ้งเตือน(อิอิ2);
document.write(IPData.join(' '));
</สคริปต์>
วิธีใช้ ASP เพื่อเก็บข้อมูลที่อ่านจากด้านบน
คำตอบ:
คัดลอกรหัสรหัสดังต่อไปนี้:
-
ฟังก์ชั่น GetResStr (URL, รหัส)
ผิดพลาดชัดเจน
dimHttp, ReturnStr
ตั้งค่า Http=server.createobject(Microsoft.XMLHTTP)
Http.open GET, URL, เท็จ
Http ส่ง()
ถ้า Http.Readystate =4 แล้ว
ถ้า Http.status=200 แล้ว
ReturnStr=BytesToBstr(http.responseBody,รหัส)
GetResStr=ReturnStr
สิ้นสุดถ้า
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'ชื่อฟังก์ชัน: BytesToBstr
'ฟังก์ชัน: แปลงข้อมูลไบนารีเป็นอักขระ'
'พารามิเตอร์: ข้อมูล Body-binary, วิธีการเข้ารหัสข้อความ Cset
ฟังก์ชั่น BytesToBstr (เนื้อความ, Cset)
ดิม ออบสตรีม
ตั้งค่า Objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.เปิด
objstream เขียนเนื้อหา
objstream ตำแหน่ง = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.ปิด
ตั้ง 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,)
-