Die Codekopie lautet wie folgt:
<%
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dbname = "../ data/flash.mdb" 'ändert den Datenbankdateispeicherort. Es wird dringend empfohlen, ihn in eine .asp -Datei zu ändern!
SetConn = server.createObject ("adodb.Connection")
Connstr = "Provider = microsoft.jet.oledb.4.0; dataSource =" & server.mappath (dbname)
Conn.openconnstr
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
SetList = conn.execute ("ausgewählt*aus System")
Webname = list ("webname")
Weburl = list ("weburl")
webemail = list ("webemail")
zzname = list ("zzname")
qq = list ("webqq")
%>
<%
Server.ScriptTimeout = 999999999
%>
<%
IFREQUEST ("OverID") = "" Dann
Antwort.Write "End -ID kann nicht leer sein"
Antwort.end
ElseIfRequest ("Download") = "" Dann
Antwort.Write "Bitte wählen Sie, ob Sie herunterladen möchten"
Antwort.end
Endif
IFREQUEST ("ID") = Request ("OverID") dann
response.write "Sammlungsaufgabe endet"
Antwort.end
Endif
gourl1 = request ("id")
gourl1 = gourl1+1
%>
<%
functionGetpy (str)
fei = 1tolen (str)
Getpy = getPy & getPychar (Mid (str, i, 1))
nächste
Endfunktion
Functionurl (URL)
SetRevalal = createObject ("microsoft.xmlhttp")
Withrieval
.Open "GET", URL, falsch
.Schicken
Geturl = bytes2bstr (.responseBody)
iflen (.responsebody) <100Then
response.write "Die Remotedatei nicht erhalten <Ahref =" & url & "target = _blank>" & url & "</a>".
response.write "<metahttp-äquiv =" "refresh" content = "" 0; url = getId.asp? id = "& gourl1 &" ""> "
Antwort.end
Endif
Endwith
SetReval = nichts
Endfunktion
functionBytes2bstr (vin)
Streturn = ""
fei = 1tolenb (vin)
thischarcode = ascb (Midb (vin, i, 1))
IFTHISCHARCODE <& H80Then
Streturn = Streturn & chrt (thisharcode)
anders