Die Codekopie lautet wie folgt:
Erzwingen Sie die Aktualisierung der Webseite
<%
'Obligatorische Auffrischung des Zufallsüberprüfungscode
'Lassen Sie den Zufallsüberprüfungscode jedes Mal automatisch aktualisiert werden, wenn der IE -Rückknopf auf der Rücktaste des IE gedrückt wird.
Response.expires = -1
Response.addHeader "Pragma", "No-Cache"
Response.addHeader "Cache-Control", "No-Store"
%>
Stellen Sie fest, ob die Dateiadresse gültig ist
Die Codekopie lautet wie folgt:
<%
'Original Autor: Xiaoyi QQ: 52093 Zeit: 2005.6.30
Response.write ("<head> <style> <!-span {Schriftgröße: 9pt}-> </style> </head>")
OnErrorresumeNext
Dimthisurl, ThisText
thisUrl = request ("thisurl") 'definiert die Dateiadresse (Non-HTML-Formatdokument)!
IFTHISURL = "" Dann
Antwort.Write ("<Pan> Bitte geben Sie zuerst die Dateiadresse ein! </Span>").
Antwort.end
Endif
FunctionObjxmlhttp (xmlurl)
OnErrorresumeNext
SetObjxml = createObject ("microsoft.xmlhttp"))
objxml.open "get", xmlurl, false
objxml.setRequestheader "Content-Typ", "Anwendung/x-www-form-urlencoded"
objxml.send
objxmlhttp = objxml.responseBody
Isterrthen
Err.clear
Response.write ("<span> Die Verbindung hat nicht festgelegt, die Datei existiert nicht oder es gibt ein Netzwerkproblem !; Fehlergrund:" & err.description & "!
</span> ")
Antwort.end
Endif
Endfunktion
FunctionBytes2bstr (vin)
Streturn = ""
Fei = 1tolenb (vin)
Thischarcode = ascb (Midb (vin, i, 1))
IFTHISCHARCODE <& H80Then
Streturn = Streturn & chrt (thisharcode)
Anders
NextCharcode = ASCB (Midb (Vin, I+1,1))
Streturn = Streturn & chrt (clng (thischarcode)*& h100+cint (NextCharCode))
i = i+1
Endif
Nächste
bytes2bstr = Streturn
Endfunktion
thisUrl2 = split (thisurl, ",")
Foreachiiinthisurl2
thisText = bytes2bstr (objxmlhttp (ii))
ifInstr (thisText, "<html>") <> 0Then
Response.write ("<span>" & ii & "<b> × </b> </span> <br>")
Anders
Response.write ("<span>" & ii & "<b> √ </b> </span> <br>")
Endif