การคัดลอกรหัสมีดังนี้:
-
-
ClassEngineERSearch
'laolong: [email protected]
': จำลอง XML เพื่อรับทรัพยากรแท็ก HTTP (คุณจะรู้ว่าทำไม XML จึงมีประโยชน์หลังจากใช้งาน :))
'ใช้การค้นหาเอ็นจิ้น (แสดงข้อมูลเครื่องยนต์หรือข้อมูลบนเว็บไซต์ HyperConnected หรือข้อมูลที่เกี่ยวข้องโดยตรงในหน้าระบุโดยใช้ปกติและ XMLHTTP
'การใช้โปรแกรมจำเป็นต้องสร้างความสม่ำเสมอ)
-
Privateoreg, Oxmlhttp'a ปกติ, Microsoft XMLHTTP
-
publicsubclass_initialize () 'ทริกเกอร์การสร้างวัตถุ
setreg = newregexp
Oreg.global = true
Oreg.ignorecase = true
setoxmlhttp = server.createObject ("microsoft.xmlhttp"))
enddub
-
publicsubclass_terminate () 'ทริกเกอร์การทำลายวัตถุ
setreg = ไม่มีอะไร 'วัตถุที่สร้างขึ้นเองในคลาสจะต้องเปิดตัวด้วยตนเองและ ASP จะปล่อยวัตถุที่กำหนดโดยคลาสโดยอัตโนมัติเท่านั้น
setoxmlhttp = ไม่มีอะไร
iftypename (tempreg) <> "ไม่มีอะไร" แล้ว 'วิธีการปล่อยทรัพยากรในวัตถุในร่างกาย
setTempreg = ไม่มีอะไร
endif
enddub
-
'การค้นหาระดับเครื่องยนต์
PublicFunctionEngineer (URL, วิศวกร)
'ฟังก์ชั่นบทนำ: รับข้อมูลการส่งคืนของ URL (โดยปกติจะใช้สำหรับการค้นหาเครื่องยนต์), แยกข้อมูลเฉพาะของวิศวกรและส่งคืนคอลเลกชันการจับคู่ไปที่
'ชื่อฟังก์ชั่น รับผลลัพธ์การสืบค้น URL ค้นหาผลลัพธ์ที่กำหนดโดย ENGINEERREG ENGOUTION และสร้างคอลเลกชันที่ตรงกัน
'เนื่องจากเป็นไปไม่ได้ที่จะสร้างคอลเลกชันและใช้งานจำนวนชุด (VBScript) จึงเป็นการดีที่สุดที่จะสำรวจชุดตัวเองหรือพิจารณาอาร์เรย์สองมิติ
dimstrconent
strcontent = oxmlhttp.open ("รับ", url, false)
onerrorresumenext
oxmlhttp.send ()
iferr.number <> 0 แล้ว
exitfunction
endif
strContent = bytes2bstr (oxmlhttp.responsebody)
ifisnull (วิศวกร) จากนั้น
Engineer = AbsoluteUrl (strcontent, url)
อื่น
Oreg.pattern = EngineerReg
SetEngineer = Oreg.execute (AbsoluteUrl (strcontent, url))
endif
endfunction
-
'การเข้ารหัสตัวละครจีน (บุคคลออนไลน์)
PublicFunctionByTes2BSTR (VIN)
strreturn = ""
fori = 1tolenb (vin)
thischArcode = ascb (midb (vin, i, 1))
ifthisCharcode <& h80 จากนั้น
strreturn = Strreturn & Chr (ThisCharcode)
อื่น
NextCharcode = ASCB (MIDB (VIN, I+1,1)))