Принудительно обновить веб-страницу
<%
'Обязательное обновление случайного проверочного кода
«Пусть случайный код проверки автоматически обновляется каждый раз, когда вы нажимаете кнопку «Назад» в IE, чтобы вернуться на страницу входа.
Response.expires=-1
Response.AddHeaderpragma, без кэша
Response.AddHeadercache-control, no-store
%>
Определите, действителен ли адрес файла
<%
'Первоначальный автор: Сяои QQ:52093 Время: 2005.6.30
Ответ.Запись()
При ошибке Возобновить Далее
Уменьшить этот URL, этот текст
thisurl=Request(thisurl) 'Определить адрес файла (документ в формате, отличном от HTML)!
если этот URL=то
Response.Write(Сначала введите адрес файла!)
Ответ.Конец
Конец, если
Функция objxmlhttp(xmlurl)
При ошибке Возобновить Далее
Установите objxml = CreateObject(Microsoft.XMLHTTP)
objxml.Open get,xmlurl,false
objxml.setrequestheader тип контента, приложение/x-www-form-urlencoded
objxml.send
objxmlhttp = objxml.responsebody
если Эрр, то
Ошиб.Очистить
Ответ.Запись (Не удалось установить соединение, файл не существует или проблемы с сетью!; Причина ошибки: &Ошибка.Описание&!)
Ответ.Конец
Конец, если
Конечная функция
Функция bytes2BSTR(vIn)
стрReturn =
Для i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Если ЭтотCharCode < &H80 Тогда
стрReturn = strReturn & Chr(ThisCharCode)
Еще
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
я = я + 1
Конец, если
Следующий
bytes2BSTR = стрReturn
Конечная функция
thisurl2=Разделить(thisurl,,)
Для каждого ii в этом URL2
thistext=bytes2BSTR(objxmlhttp(ii))
если InStr(thistext,)<>0 тогда
Response.Write(& ii & ×
)
Еще
Response.Write(& ii & √
)
Конец, если
Следующий
если Эрр, то
Ошиб.Очистить
Response.Write(Неожиданно!; Причина ошибки: &Err.Description&!)
Ответ.Конец
Конец, если
%>