การคัดลอกรหัสมีดังนี้:
-
-
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")
-
-
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 แล้ว
Response.write "ล้มเหลวในการรับไฟล์ระยะไกล <ahref =" & url & "target = _blank>" & url & "</a>"
Response.write "<metahttp-equiv =" "Refresh" "content =" "0; url = getid.asp? id =" & gourl1 & ""> "
Response.end
endif
จบลงด้วย
setRetrieval = ไม่มีอะไร
endfunction
FunctionByTes2BSTR (VIN)
strreturn = ""
fori = 1tolenb (vin)
thischArcode = ascb (midb (vin, i, 1))
ifthisCharcode <& h80 จากนั้น
strreturn = Strreturn & Chr (ThisCharcode)
อื่น