Кода -копия выглядит следующим образом:
Принудительно обновить веб -страницу
<%
«Обязательное обновление кода случайной проверки
«Пусть код случайной проверки будет автоматически обновляться каждый раз, когда кнопка обратной части IE нажимается на задней кнопке IE.
Response.expires = -1
Ответ.
Ответ.
%>
Определите, действителен ли файл адрес
Кода -копия выглядит следующим образом:
<%
'Оригинальный автор: 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 ("<pran> Пожалуйста, сначала введите адрес файла! </Span>")
Response.end
Эндиф
FunctionObjxmlhttp (xmlurl)
OnerRorResumenext
SetObjxml = createObject ("microsoft.xmlhttp")
objxml.open "get", xmlurl, false
objxml.setrequestheader "Контент-тип", "Application/x-Www-form-Urlencoded"
objxml.send
objxmlhttp = objxml.responsebody
Iferrthen
Err.clear
Response.write ("<pran> Соединение не смогло установить, файл не существует или есть сетевая проблема!;; Ошибка Причина:" & err.description & "!
</span> ")
Response.end
Эндиф
Конечная функция
Functionbytes2bstr (VIN)
strreturn = ""
Fori = 1tolenb (vin)
ThisChode = ASCB (MIDB (VIN, I, 1))
IfThischarcode <& H80Then
strreturn = strreturn & chr (this charcode)
Еще
NextChode = ASCB (MIDB (VIN, I+1,1)))
strreturn = strreturn & chr (clng (thisChode)*& h100+cint (nextcharcode))
i = i+1
Эндиф
Следующий
Bytes2bstr = strreturn
Конечная функция
thisURL2 = разделить (Thisurl, ",")
Foreachiiinthisurl2
thistext = bytes2bstr (objxmlhttp (ii))
ifinstr (thistext, "<html>") <> 0then
Response.write ("<pan>" & ii & "<b> × </b> </span> <br>")
Еще
Response.write ("<pan>" & ii & "<b> √ </b> </span> <br>")
Эндиф