การคัดลอกรหัสมีดังนี้:
บังคับให้รีเฟรชของหน้าเว็บ
-
'การรีเฟรชบังคับของรหัสการตรวจสอบแบบสุ่ม
'ให้รหัสการตรวจสอบแบบสุ่มจะถูกรีเฟรชโดยอัตโนมัติทุกครั้งที่ปุ่มย้อนกลับ IE ถูกกดที่ปุ่มย้อนกลับของ IE
Response.expires = -1
Response.addheader "Pragma", "No-Cache"
Response.addheader "Cache-Control", "No-store"
-
ตรวจสอบว่าที่อยู่ไฟล์นั้นถูกต้องหรือไม่
การคัดลอกรหัสมีดังนี้:
-
'ผู้แต่งต้นฉบับ: Xiaoyi QQ: 52093 เวลา: 2005.6.30
Response.write ("<head> <style> <!-span {font-size: 9pt}-> </style> </head>"
onerrorresumenext
dimthisurl, thistext
thisurl = คำขอ ("thisurl") 'กำหนดที่อยู่ไฟล์ (เอกสารรูปแบบที่ไม่ใช่ HTML)!
ifthisurl = "" แล้ว
Response.write ("<pan> โปรดป้อนที่อยู่ไฟล์ก่อน! </span>")
Response.end
endif
functionObjxmlhttp (xmlurl)
onerrorresumenext
setObjxml = createObject ("microsoft.xmlhttp"))
objxml.open "get", xmlurl, false
objxml.setRequestheader "ประเภทเนื้อหา", "แอปพลิเคชัน/x-www-form-urlencoded"
objxml.send
objxmlhttp = objxml.responsebody
Iferrthen
err.lear
Response.write ("<span> การเชื่อมต่อล้มเหลวในการสร้างไฟล์ไม่มีอยู่หรือมีปัญหาเครือข่าย!; เหตุผลข้อผิดพลาด:" & err.description & "!
</span> ")
Response.end
endif
endfunction
FunctionByTes2BSTR (VIN)
strreturn = ""
fori = 1tolenb (vin)
thischArcode = ascb (midb (vin, i, 1))
ifthisCharcode <& h80 จากนั้น
strreturn = Strreturn & Chr (ThisCharcode)
อื่น
NextCharcode = ASCB (MIDB (VIN, I+1,1)))
strreturn = strreturn & chr (clng (thischarcode)*& h100+cint (nextcharcode))
i = i+1
endif
ต่อไป
bytes2bstr = streturn
endfunction
thisurl2 = split (thisurl, ",")
foreachiiinthisurl2
thistext = bytes2bstr (objxmlhttp (ii))
ifinstr (thistext, "<html>") <> 0 แล้ว
Response.write ("<span>" & II & "<b> × </b> </span> <br>")
อื่น
Response.write ("<span>" & II & "<b> √ </b> </span> <br>")
endif