A cópia do código é a seguinte:
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ório ser atualizado automaticamente toda vez que o botão Voltar do IE for pressionado no botão traseiro do IE.
Response.Expires = -1
Response.addheader "Pragma", "No-Cache"
Response.Addheader "Controle de cache", "sem lojas"
%>
Determinar se o endereço do arquivo é válido
A cópia do código é a seguinte:
<%
'Autor original: Xiaoyi QQ: 52093 Tempo: 2005.6.30
Response.Write ("<head> <yoy> <!-span {font-size: 9pt}-> </style> </head>")
OnErrorReSumenext
Dimthisurl, ThisText
theurl = request ("theurl") 'define o endereço do arquivo (documento de formato não-html)!
ifthisurl = "" então
Response.Write ("<span> Por favor, digite o endereço do arquivo primeiro! </span>")
Resposta.END
Endif
FunctionObjxmlHttp (xmlurl)
OnErrorReSumenext
SetObjxml = CreateObject ("Microsoft.xmlHttp")
objxml.open "get", xmlurl, false
objxml.setRequestHeader "Tipo de conteúdo", "Application/X-Www-Form-Urlencoded"
objxml.send
objxmlHttp = objxml.ResponseBody
iferrThen
Err.clear
Response.Write ("<Span> A conexão falhou em estabelecer, o arquivo não existe ou há um problema de rede!; Razão de erro:" & err.description & "!
</span> ")
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
theurl2 = split (theurl, ",")
Para eachiiinthisurl2
thisText = bytes2bstr (objxmlhttp (ii))
ifinstr (thisText, "<html>") <> 0then
Response.Write ("<span>" & ii & "<b> × </b> </span> <br>")
Outro
Response.Write ("<span>" & ii & "<b> √ </b> </span> <br>")
Endif