การคัดลอกรหัสมีดังนี้:
-
-
dbname = "../ data/flash.mdb" 'เปลี่ยนตำแหน่งไฟล์ฐานข้อมูลขอแนะนำอย่างยิ่งให้เปลี่ยนเป็นไฟล์. asp!
setConn = server.createObject ("adodb.connection"))
connstr = "ผู้ให้บริการ = microsoft.jet.oledb.4.0; dataSource =" & server.mappath (dbname)
conn.openconnstr
-
setlist = conn.execute ("เลือก*fromsystem")
webName = list ("webName")
weburl = list ("weburl")
webemail = list ("webemail")
zzname = list ("zzname")
qq = list ("webqq")
-
การคัดลอกรหัสมีดังนี้:
-
ifrequest ("id") Andrequest ("overid") Andrequest ("ดาวน์โหลด") <> ""
Response.redirect "getId.asp? id =" & คำขอ ("id") & "& overid =" & คำขอ ("overid") & "& download =" & คำขอ ("ดาวน์โหลด")
อื่น
-
<body>
<p> </p>
<formName = "form1" method = "get" action = "getId.asp">
หมายเลขอัลบั้ม ID ที่เริ่มรวบรวม:
<inputName = "id" type = "text" id = "id" size = "10">
สิ้นสุด ID:
<inputName = "overId" type = "text" id = "overid" size = "10">
ไม่ว่าจะดาวน์โหลดข้อมูลในเครื่อง: ใช่
<inputType = "วิทยุ" name = "ดาวน์โหลด" value = "ใช่">
เลขที่
<inputName = "ดาวน์โหลด" type = "Radio" value = "no" ตรวจสอบ> ตรวจสอบ>
<inputType = "ส่ง" name = "ส่ง" value = "ส่ง">
</form>
</body>
</html>
<%endif%>
การคัดลอกรหัสมีดังนี้:
<!-#includefile = "conn.asp"->
-
Server.ScriptTimeOut = 999999999
-
-
ifrequest ("overid") = "" แล้ว
Response.write "id id ไม่ว่าง"
Response.end
elseifrequest ("ดาวน์โหลด") = "" แล้ว
Response.write "โปรดเลือกว่าจะดาวน์โหลด"
Response.end
endif
ifrequest ("id") = คำขอ ("overid") จากนั้น
Response.write "งานคอลเลกชันสิ้นสุด"
Response.end
endif
gourl1 = คำขอ ("id")
Gourl1 = Gourl1+1
-
-
FunctionGetPy (STR)
fori = 1tolen (str)
getPy = getPy & getPychar (mid (str, i, 1))
ต่อไป
endfunction
functiongeturl (URL)
setRetrieval = createObject ("microsoft.xmlhttp"))
เกี่ยวกับการแก้ไข
.Open "Get", url, false
.ส่ง
getURL = BYTES2BSTR (.ResponseBody)
iflen (.responsebody) <100 แล้ว