La copia del código es la siguiente:
<%
'--------------------------------------------------------------
Dbname = "../ data/flash.mdb" 'Cambia la ubicación del archivo de la base de datos, se recomienda cambiarlo a un archivo .asp.
Setconn = server.createObject ("ADODB.Connection")
Connstr = "Provider = Microsoft.Jet.OLEDB.4.0; DataSource =" & Server.Mappath (DBName)
Conn.openconnstr
'------------------------------------------------------------
SetList = conn.execute ("SELECT*FromSystem")
WebName = list ("WebName")
Weburl = list ("weburl")
webemail = list ("webemail")
zzname = list ("zzname")
qq = list ("webqq")
%>
<%
Server.scripttimeout = 999999999
%>
<%
ifRequest ("overid") = "" entonces
Respuesta. Write "La identificación final no puede estar vacía"
respuesta.
elseifrequest ("descargar") = "" entonces
Response.write "Seleccione si descargar"
respuesta.
endif
ifRequest ("id") = request ("overid") entonces
Respuesta.WRITE "La tarea de recopilación termina"
respuesta.
endif
gourl1 = request ("id")
gourl1 = gourl1+1
%>
<%
functetPy (STR)
fori = 1Tolen (str)
Getpy = Getpy y Getpychar (Mid (Str, I, 1))
próximo
Función final
FunctEgetUrl (URL)
SetRetrieval = createObject ("Microsoft.xmlhttp")
Withrrieval
.Preen "Get", url, falso
.Enviar
GetUrl = bytes2bstr (.ResponseBody)
iflen (.ResponseBody) <100
Respuesta.Write "No pudo obtener el archivo remoto <ahref =" & url & "target = _blank>" & url & "</a>."
Response.write "<metahttp-oquiv =" "refresh" "content =" "0; url = getid.asp? id =" & gourl1 & "" ">"
respuesta.
endif
Fin
SetRetrreieval = nada
Función final
functionbytes2bstr (vin)
strreturn = ""
Fori = 1TolenB (vin)
thisCharCode = ASCB (MidB (Vin, I, 1))
ifthischarcode <& h80Then
strreturn = strreturn & chr (thisCharcode)
demás