บังคับให้รีเฟรชหน้าเว็บ
-
'จำเป็นต้องรีเฟรชรหัสยืนยันแบบสุ่ม'
'ปล่อยให้รหัสยืนยันแบบสุ่มรีเฟรชอัตโนมัติทุกครั้งที่คุณกดปุ่มย้อนกลับของ IE เพื่อกลับไปที่หน้าเข้าสู่ระบบ
การตอบกลับหมดอายุ=-1
Response.AddHeaderpragma ไม่มีแคช
Response.AddHeadercache-control ไม่มีการจัดเก็บ
-
ตรวจสอบว่าที่อยู่ไฟล์ถูกต้องหรือไม่
-
'ผู้เขียนต้นฉบับ: Xiaoyi QQ:52093 เวลา: 2005.6.30
ตอบกลับเขียน()
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
หรี่ thisurl, ข้อความนี้
thisurl=Request(thisurl) 'กำหนดที่อยู่ไฟล์ (เอกสารที่ไม่ใช่รูปแบบ Html)!
ถ้า thisurl=แล้ว
Response.Write(กรุณากรอกที่อยู่ไฟล์ก่อน!)
การตอบสนองสิ้นสุด
จบถ้า
ฟังก์ชั่น objxmlhttp(xmlurl)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
ตั้ง objxml = CreateObject(Microsoft.XMLHTTP)
objxml เปิดรับ xmlurl เท็จ
objxml.setrequestheader ประเภทเนื้อหา application/x-www-form-urlencoded
objxml.ส่ง
objxmlhttp = objxml.responsebody
ถ้าเกิดข้อผิดพลาดแล้ว
ผิดพลาด.เคลียร์
Response.Write (ไม่สามารถสร้างการเชื่อมต่อ ไฟล์ไม่มีอยู่หรือมีปัญหากับเครือข่าย!; สาเหตุของข้อผิดพลาด: &Err.Description&!)
การตอบสนองสิ้นสุด
จบถ้า
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น bytes2BSTR(vIn)
strReturn=
สำหรับ i = 1 ถึง LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
ถ้า ThisCharCode < &H80 แล้ว
strReturn = strReturn & Chr(ThisCharCode)
อื่น
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
ฉัน = ฉัน + 1
สิ้นสุดถ้า
ต่อไป
bytes2BSTR = strReturn
ฟังก์ชันสิ้นสุด
thisurl2=แยก(thisurl,,)
สำหรับแต่ละ ii ใน thisurl2
ข้อความนี้=bytes2BSTR(objxmlhttp(ii))
ถ้า InStr(thistext,)<>0 แล้ว
การตอบสนองเขียน(& ii & ×
-
อื่น
การตอบสนองเขียน(& ii & √
-
จบถ้า
ต่อไป
ถ้าเกิดข้อผิดพลาดแล้ว
ผิดพลาด.เคลียร์
Response.Write (ไม่คาดคิด!; เหตุผลข้อผิดพลาด: &Err.Description&!)
การตอบสนองสิ้นสุด
จบถ้า
-