Кода -копия выглядит следующим образом:
<%
'---------------------------------------------------------------
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")
%>
Кода -копия выглядит следующим образом:
<%
ifrequest ("id") andrequest ("uperid") andrequest ("скачать") <> "" "
response.redirect "getId.asp? id =" & request ("id") & "& upid =" & request ("uperid") & "& скачать =" & request ("Скачать")
еще
%>
<тело>
<p> </p>
<formname = "form1" method = "get" action = "getId.asp">
Идентификационный номер альбома, который начал собирать:
<inputname = "id" type = "text" id = "id" size = "10">
Конечный идентификатор:
<inputname = "upidid" type = "text" id = "upid" size = "10">
Скачать ли данные локально: да
<inputType = "radio" name = "download" value = "yes">
нет
<inputname = "Загрузить" type = "radio" value = "no" проверено>
<inputType = "Отправить" name = "отправить" value = "отправить">
</form>
</body>
</html>
<%endif%>
Кода -копия выглядит следующим образом:
<!-#includefile = "conn.asp"->
<%
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