Este artículo presenta principalmente la actualización forzada de las páginas web y la juzgar el código de instancia de la dirección del archivo.
Force la actualización de la página web
- ＜%
- 'Actualización obligatoria del código de verificación aleatoria
- 'Deje que el código de verificación aleatorio se actualice automáticamente cada vez que se presione el botón Atrás de IE,
- Respuesta.expires = -1
- Respuesta.AddHheaderPragma, No-Cache
- Respuesta
- %＞
Determinar si la dirección del archivo es válida
- ＜%
- Response.write ()
- OnerrorResumEnext
- Dimthisurl, thisText
- thesURL = request (thisUrl) 'define la dirección del archivo (documento de formato no HTML)!
- ifthisurl = entonces
- Response.write (¡ingrese primero la dirección del archivo!)
- Respuesta.
- Endif
- FunctionOBJXMLHTTP (XMLURL)
- OnerrorResumEnext
- Setobjxml = createObject (microsoft.xmlhttp)
- objxml.openget, xmlurl, falso
- objxml.setRequestHeadEcontent-type, aplicación/x-www-form-urlencoded
- objxml.send
- objxmlhttp = objxml.ResponseBody
- iferrthen
- Err.Clear
- Response.write (no pudo establecer la conexión, el archivo no existe o hay un problema de red.
- Respuesta.
- Endif
- Función final
- Functionbytes2bstr (vin)
- strreturn =
- Fori = 1TolenB (vin)
- ThisCharCode = ASCB (MidB (Vin, I, 1))
- Ifthischarcode <& h80Then
- strreturn = strreturn & chr (thisCharcode)
- Demás
- Nextcharcode = ascb (midb (vin, i+1,1))
- strreturn = strreturn & chr (clng (thisCharCode)*& H100+cint (nextcharcode)))
- i = i+1
- Endif
- Próximo
- bytes2bstr = strreturn
- Función final
- thesURL2 = Split (Thisurl ,,)
- Foreachiiinthisurl2
- thisText = bytes2bstr (objxmlhttp (ii))
- ifinstr (thisText,) <> 0then
- Response.Write (& II & ×
- )
- Demás
- Respuesta.Write (& II y √
- )
- Endif
- Próximo
- iferrthen
- Err.Clear
- Response.Write (¡Encontré un accidente!
- Respuesta.
- Endif
- %＞
El anterior es el código para la refrescante de las páginas web y la dirección de juicio.