Эта статья в основном представляет ASP насильственное обновление веб -страниц и оценки кода экземпляра адреса файла.
Принудительно обновить веб -страницу
- <%
- «Обязательное обновление кода случайной проверки
- 'Пусть код случайной проверки будет автоматически обновляться каждый раз, когда нажата кнопка на задней части IE,
- Response.expires = -1
- Response.addheaderpragma, без кэша
- Response.addheadercache-Control, без магазина
- %>
Определите, действителен ли файл адрес
- <%
- Response.write ()
- OnerRorResumenext
- DimThisurl, Thistext
- ThisURL = запрос (ThisURL) 'Определяет адрес файла (документ не-HTML формата)!
- ifThisurl = then
- Response.write (сначала введите адрес файла!)
- Response.end
- Эндиф
- FunctionObjxmlhttp (xmlurl)
- OnerRorResumenext
- SetObjxml = createObject (microsoft.xmlhttp)
- objxml.openget, xmlurl, false
- objxml.setrequestheadercontent-type, приложение/x-www-form-urlencoded
- objxml.send
- objxmlhttp = objxml.responsebody
- Iferrthen
- Err.clear
- Response.write (не удалось установить соединение, файл не существует или есть сетевая проблема!;; Ошибка Причина: & err.description &!)
- 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 = split (thisurl ,,)
- Foreachiiinthisurl2
- thistext = bytes2bstr (objxmlhttp (ii))
- ifinstr (thistext,) <> 0then
- Response.write (& ii & ×
- )
- Еще
- Response.write (& ii & √
- )
- Эндиф
- Следующий
- Iferrthen
- Err.clear
- Response.write (я столкнулся с несчастным случаем!; Ошибка Причина: & err.description &!)
- Response.end
- Эндиф
- %>
Выше приведено код для принудительного освещения веб -страниц и оценки файла.