Кода -копия выглядит следующим образом:
<%
'---------------------------------------------------------------
Dbname = "../ data/flash.mdb" 'изменяет местоположение файла базы данных, настоятельно рекомендуется изменить его на файл .asp!
SetConn = server.createObject ("adodb.connection")
Connstr = "Provider = microsoft.jet.oledb.4.0; dataSource =" & server.mappath (dbname)
Conn.openconstr
'--------------------------------------------------------------
SetList = conn.execute ("select*utsystem")
Webname = list ("webname")
Weburl = list ("weburl")
webemail = list ("web -адрес")
zzname = list ("zzname")
QQ = List ("webQQ")
%>
<%
Server.scriptTimeout = 999999999
%>
<%
ifrequest ("uperid") = "" then
response.write "End Id не может быть пустым"
response.end
elseifrequest ("скачать") = "" тогда
response.write "Пожалуйста, выберите, скачать ли"
response.end
эндиф
ifrequest ("id") = request ("Overid") затем
response.write "Задача сбора заканчивается"
response.end
эндиф
gourl1 = запрос ("id")
Gourl1 = Gourl1+1
%>
<%
functiongetpy (str)
fori = 1tolen (str)
Getpy = getpy & getpychar (mid (str, i, 1))
следующий
конечная функция
Functiongeturl (url)
Setretrieval = createObject ("microsoft.xmlhttp")
Безрельтивел
.Open "Get", URL, ложь
.Отправлять
Geturl = bytes2bstr (. -Responsebody)
iflen (. -responsebody) <100then
response.write "Не удалось получить удаленный файл <ahref =" & url & "target = _blank>" & url & "</a>".
response.write "<metahttp-equiv =" "refresh" "content =" "0; url = getId.asp? id =" & gourl1 & ""> "
response.end
эндиф
Энд
Setretrieval = ничего
Конечная функция
functionbytes2bstr (VIN)
strreturn = ""
fori = 1tolenb (vin)
ThisChode = ASCB (MIDB (VIN, I, 1))
IfThischarcode <& H80Then
strreturn = strreturn & chr (this charcode)
еще