احصل على فلاش عن بعد وحفظه إلى محلي

نسخة الكود كما يلي:

<٪

'-------------------------------------------------------------

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")

٪>

<٪

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

Response.write "فشل في الحصول على الملف البعيد <ahref =" & url & "target = _blank>" & url & "</a>."

Response.write "<metahttp-equiv =" "refresh" "content =" "0 ؛ url = getId.asp؟ id =" & gourl1 & "" ">"

استجابة

Endif

endwith

setRetRieval = لا شيء

الوظيفية

functionBytes2bst (VIN)

streturn = ""

fori = 1tolenb (vin)

thischarcode = ASCB (MIDB (VIN ، I ، 1))

IfThischarcode <& h80then

Streturn = Streturn & CHR (thischarcode)

آخر