ใช้ ASP เพื่อรับเนื้อหาที่ระบุของเว็บเพจระยะไกลคุณสามารถรับเนื้อหาที่ระบุบางส่วนของหน้าเว็บของผู้อื่นได้อย่างง่ายดาย
รหัสมีดังนี้:
-
'ใช้ ASP เพื่อรับเนื้อหาที่ระบุของหน้าเว็บเป้าหมายระยะไกลรหัสนี้จัดทำโดยเว็บไซต์กวางโจวเพื่อสร้าง http://www.vevb.com
เมื่อเกิดข้อผิดพลาดต่อไป
Server.ScriptTimeOut = 9999999
ฟังก์ชั่น gethttppage (เส้นทาง)
t = getBody (เส้นทาง)
gethttppage = bytestobstr (t, gb2312)
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น Newstring (WSTR, StrNG)
NewString = Instr (LCASE (WSTR), LCASE (STRNG))
ถ้า newstring <= 0 แล้ว newstring = len (wstr)
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น bytestobstr (body, cset)
สลัว objstream
ตั้งค่า objstream = server.createObject (adodb.stream)
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write?
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readText
objstream.close
ตั้งค่า objstream = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น getbody (url)
เมื่อเกิดข้อผิดพลาดต่อไป
Set Retrieval = CreateObject (microsoft.xmlhttp)
ด้วยการดึง
.Opeen get, url, false ,,,,,,
.ส่ง
getBody = .ResponseBody
จบลงด้วย
setRieval = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'ASP ได้รับเนื้อหาที่ระบุของการเริ่มต้นเว็บเพจระยะไกลเริ่มต้น
Dim Wstr, str, url, start, over, dtime
A = เริ่มเนื้อหา 'ASP รับเนื้อหาหน้าเว็บเป้าหมายและเริ่มทำเครื่องหมาย
b = เนื้อหา end 'ASP เพื่อให้ได้เครื่องหมายสิ้นสุดเนื้อหาเว็บ
url = http://sc.vevb.com/
WSTR = GETHTTPPAGE (URL)
start = newstring (wstr, a)
over = newstring (Wstr, b)
Body = Mid (WSTR, Start, Over-start)
Response.write & Body & 'เอาต์พุตที่ได้รับเนื้อหาเว็บเพจ
'ASP รับเนื้อหาที่ระบุของหน้าเว็บระยะไกลสิ้นสุดลง
-
รหัสข้างต้นสามารถรับเนื้อหาของหน้าเว็บที่ระบุ
รหัสหลัก:
'ASP ได้รับเนื้อหาที่ระบุของการเริ่มต้นเว็บเพจระยะไกลเริ่มต้น
Dim Wstr, str, url, start, over, dtime
url = http://sc.vevb.com/
WSTR = GETHTTPPAGE (URL)
ร่างกาย = WSTR