نسخة الكود كما يلي:
<٪
'-------------------------------------------------------------
DBName = "../ data/flash.mdb" "يغير موقع ملف قاعدة البيانات ، يوصى بشدة بتغييره إلى ملف .asp!
setConn = server.createObject ("adodb.connection")
connstr = "provider = microsoft.jet.oledb.4.0 ؛ datasource =" & server.mappath (dbname)
Conn.Openconnstr
'-----------------------------------------------------------
setList = conn.execute ("SELECT*FROMSYSTEM")
WebName = قائمة ("WebName")
weburl = list ("weburl")
WebEmail = قائمة ("WebEmail")
ZzName = قائمة ("zzname")
QQ = قائمة ("WebQQ")
٪>
نسخة الكود كما يلي:
<٪
Ifrequest ("id") Andrequest ("OverId") Andrequest ("Download") <> "" ثم
Response.redirect "getId.asp؟ id =" & request ("id") و "& overid =" & request ("overid") & "& download =" & request ("Download")
آخر
٪>
<body>
<p> </p>
<formName = "form1" method = "get" Action = "getId.asp">
رقم معرف الألبوم الذي بدأ جمع:
<pectedName = "id" type = "text" id = "id" size = "10">
معرف النهاية:
<pectedName = "overid" type = "text" id = "overid" size = "10">
سواء كنت لتنزيل البيانات محليا: نعم
<inputType = "Radio" Name = "Download" value = "Yes">
لا
<pectedName = "Download" type = "radio" value = "no" checked>
<pecttype = "إرسال" name = "إرسال" value = "submit">
</form>
</body>
</html>
<٪ endif ٪>
نسخة الكود كما يلي:
<!-#includefile = "conn.asp"->
<٪
server.scriptTimeout = 999999999
٪>
<٪
ifrequest ("overid") = "" ثم
استجابة. "لا يمكن أن يكون معرف النهاية فارغًا"
استجابة
elseifrequest ("تنزيل") = "" ثم
الرد. "يرجى تحديد ما إذا كان سيتم التنزيل"
استجابة
Endif
ifrequest ("id") = طلب ("OverId") ثم
استجابة. "تنتهي مهمة التجميع"
استجابة
Endif
Gourl1 = طلب ("معرف")
Gourl1 = Gourl1+1
٪>
<٪
FunctionGetPy (STR)
fori = 1tolen (Str)
getPy = getpy & getPychar (Mid (Str ، i ، 1))
التالي
الوظيفية
FunctionGeturl (url)
setRetRieval = createObject ("microsoft.xmlhttp")
withretrival
. OPEN "Get" ، url ، false
.يرسل
geturl = bytes2bsstr (.ResponseBody)
iflen (.ResponseBody) <100then