Forçar atualização da página da web
<%
'Atualização obrigatória do código de verificação aleatório
'Deixe o código de verificação aleatório ser atualizado automaticamente sempre que você pressionar o botão Voltar do IE para retornar à página de login.
Resposta.expires=-1
Response.AddHeaderpragma, sem cache
Response.AddHeadercache-control, sem armazenamento
%>
Determine se o endereço do arquivo é válido
<%
'Autor original: Xiaoyi QQ: 52093 Horário: 30/06/2005
Resposta.Write()
Em caso de erro, retomar o próximo
Escureça este URL, este texto
thisurl=Request(thisurl) 'Defina o endereço do arquivo (documento em formato não HTML)!
se esteurl=então
Response.Write(Por favor, insira o endereço do arquivo primeiro!)
Resposta.Fim
Terminar se
Função objxmlhttp(xmlurl)
Em caso de erro, retomar o próximo
Definir objxml = CreateObject(Microsoft.XMLHTTP)
objxml.Open get,xmlurl,falso
objxml.setrequestheader tipo de conteúdo, aplicativo/x-www-form-urlencoded
objxml.send
objxmlhttp = objxml.responsebody
se Errar então
Err.Limpar
Response.Write (Falha ao estabelecer conexão, o arquivo não existe ou há um problema com a rede!; Motivo do erro: &Err.Description&!)
Resposta.Fim
Terminar se
Função final
Função bytes2BSTR(vIn)
strReturn =
Para i = 1 para LenB(vIn)
EsteCharCode = AscB(MidB(vIn,i,1))
Se ThisCharCode <&H80 Então
strReturn = strReturn & Chr(ThisCharCode)
Outro
PróximoCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
eu = eu + 1
Terminar se
Próximo
bytes2BSTR = strReturn
Função final
thisurl2=Dividir(thisurl,,)
Para cada um ii nesteurl2
estetexto=bytes2BSTR(objxmlhttp(ii))
se InStr(estetexto,)<>0 então
Resposta.Write(& ii & ×
)
Outro
Response.Write(& ii & √
)
Terminar se
Próximo
se Errar então
Err.Limpar
Response.Write(Inesperado!; Motivo do erro: &Err.Description&!)
Resposta.Fim
Terminar se
%>