Este artigo apresenta principalmente a atualização forçada do ASP das páginas da web e do juíza do código de endereço do arquivo.
Força atualização da página da web
- <%
- 'Atualização obrigatória do código de verificação aleatória
- 'Deixe o código de verificação aleatória ser atualizado automaticamente toda vez que o botão traseiro do IE é pressionado,
- Response.Expires = -1
- Response.AddHeaderPragma, sem cache
- Response.AddHeaderCache-Control, sem lojas
- %>
Determinar se o endereço do arquivo é válido
- <%
- Response.Write ()
- OnErrorReSumenext
- Dimthisurl, ThisText
- theurl = request (theurl) 'define o endereço do arquivo (documento de formato não-html)!
- ifthisurl = então
- Response.Write (insira o endereço do arquivo primeiro!)
- Resposta.END
- Endif
- FunctionObjxmlHttp (xmlurl)
- OnErrorReSumenext
- SetObjxml = CreateObject (Microsoft.xmlHttp)
- objxml.openget, xmlurl, false
- objxml.setRequestHeadecontent-type, Application/X-Www-Form-Urlencoded
- objxml.send
- objxmlHttp = objxml.ResponseBody
- iferrThen
- Err.clear
- Response.Write (falhou em estabelecer a conexão, o arquivo não existe ou há um problema de rede!; Razão de erro: & err.Description &!)
- Resposta.END
- Endif
- Função final
- FunctionBytes2BStr (VIN)
- strreturn =
- Fori = 1tolenb (VIN)
- ThisCharcode = ASCB (MIDB (VIN, i, 1))
- IfthScharcode <& h80Then
- strreturn = strreturn & ch (thischarcode)
- Outro
- NextcharCode = ASCB (MIDB (VIN, I+1,1))
- strreturn = strreturn & ch (clng (thischarcode)*& h100+cint (nextcharcode))
- i = i+1
- Endif
- Próximo
- bytes2bstr = strreturn
- Função final
- thesurl2 = split (theurl ,,)
- Para eachiiinthisurl2
- thisText = bytes2bstr (objxmlhttp (ii))
- ifinstr (thisText) <> 0then
- Response.write (& ii & ×
- )
- Outro
- Response.write (& ii & √
- )
- Endif
- Próximo
- iferrThen
- Err.clear
- Response.write (encontrei um acidente!; Razão de erro: & err.description &!)
- Resposta.END
- Endif
- %>
O acima é o código para a refrescamento forçado das páginas da web e do endereço de arquivo de julgamento.