نسخة الكود كما يلي:
قوة تحديث صفحة الويب
<٪
"تحديث إلزامي لرمز التحقق العشوائي
"دع رمز التحقق العشوائي يتم تحديثه تلقائيًا في كل مرة يتم فيها الضغط على زر العودة إلى زر الخلفي من IE.
استجابة. expires = -1
Response.addheader "pragma" ، "عدم وجود آثار"
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 = request ("thisurl") "يحدد عنوان الملف (مستند تنسيق غير HTML)!
ifThisurl = "" ثم
Response.write ("<span> الرجاء إدخال عنوان الملف أولاً! </span>")
استجابة
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.clear
Response.write ("<span> فشل الاتصال في تأسيسه ، الملف غير موجود أو هناك مشكلة في الشبكة! ؛ سبب خطأ:" & err.description & "!
</span> ")
استجابة
Endif
الوظيفية
functionBytes2bst (VIN)
streturn = ""
fori = 1tolenb (vin)
thischarcode = ASCB (MIDB (VIN ، I ، 1))
IfThischarcode <& h80then
Streturn = Streturn & CHR (thischarcode)
آخر
NextCharCode = ASCB (MIDB (VIN ، I+1،1))
Streturn = Streturn & CHR (CLNG (thischarcode)*& H100+Cint (NextCharCode))
i = i+1
Endif
التالي
bytes2bstr = streturn
الوظيفية
thisurl2 = split (thisurl ، "،")
foreachiiinthisurl2
ThisText = bytes2bsstr (OBJXMLHTTP (II))
ifinstr (thisText ، "<html>") <> 0then
Response.write ("<span>" & ii & "<b> × </b> </span> <br>")
آخر
Response.write ("<span>" & ii & "<b> √ </b> </span> <br>")
Endif