A cópia do código é a seguinte:
<%
'----------------------------------------------------------------
Dbname = "../ data/flash.mdb" 'altera o local do arquivo de banco de dados, é fortemente recomendado alterá -lo para um arquivo .asp!
SetConn = server.createObject ("adodb.connection")
Connstr = "Provider = Microsoft.Jet.oledb.4.0; DataSource =" & Server.mappath (DBName)
Conn.OPENCONNSTR
'------------------------------------------------------------
SetList = Conn.Execute ("Selecione*FromSystem")
WebName = List ("WebName")
Weburl = List ("Weburl")
Webemail = List ("Webemail")
zzname = list ("zzname")
qq = list ("webqq")
%>
<%
Server.scriptTimeout = 999999999
%>
<%
ifRequest ("overid") = "" então
Response.Write "End ID não pode estar vazio"
resposta.END
elseifrequest ("download") = "" então
Response.Write "Selecione se deve baixar"
resposta.END
endif
ifRequest ("id") = request ("overid") então
Response.Write "Tarefa de coleção termina"
resposta.END
endif
gourl1 = request ("id")
gourl1 = gourl1+1
%>
<%
functionGetPy (STR)
fori = 1Tolen (STR)
Getpy = getpy & getpychar (mid (str, i, 1))
próximo
Função final
FunctionGeturl (URL)
Setretrieval = CreateObject ("Microsoft.xmlHttp")
Withretrieval
.Popear "Get", URL, Falso
.Enviar
Geturl = bytes2bstr (.Responsebody)
iflen (.Responsebody) <100then
Response.Write "Falha ao obter o arquivo remoto <href =" & url & "Target = _blank>" & url & "</a>".
Response.Write "<metahttp-equiv =" "refresh" "content =" "0; url = getid.asp? id =" & gourl1 & "" ">"
resposta.END
endif
ENDWITH
Setretrieval = nada
Função final
FunctionBytes2BStr (VIN)
strreturn = ""
fori = 1tolenb (VIN)
thisCharcode = ASCB (MIDB (VIN, i, 1))
ifthScharcode <& h80Then
strreturn = strreturn & ch (thischarcode)
outro