اكتب ASP البرنامج لتنزيل جميع الموارد في صفحة الويب

٪

server.scriptTimeout = 9999

وظيفة savetofile (من ، tofile)

عند استئناف الخطأ التالي

Dim geturl ، objstream ، imgs

geturl = trim (من)

mybyval = getttpstr (geturl)

تعيين OBJStream = server.createBject (ADODB.Stream)

objstream.type = 1

objstream.Open

objstream.write mybyval

objstream.savetofile tofile ، 2

objstream.close ()

اضبط OBJStream = لا شيء

إذا err.number <> 0 err.clear

وظيفة نهاية

وظيفة geturlencodel (url byval) 'تحويل اسم الملف الصيني

قاتمة ، رمز

geturlencodel =

إذا تقطع (url) = ثم الخروج وظيفة

لأني = 1 إلى لين (URL)

الكود = ASC (Mid (url ، i ، 1))

إذا كان رمز <0 thatn code = رمز 65536

إذا رمز ＞ 255 ثم

geturlencodel = geturlencodel & ٪ & left (hex (code) ، 2) & ٪ & right (hex (code) ، 2)

آخر

geturlencodel = geturlencodel & mid (url ، i ، 1)

إنهاء إذا

التالي

وظيفة نهاية

وظيفة gethttppage (url)

عند استئناف الخطأ التالي

خافت HTTP

تعيين http = server.createObject (msxml2.xmlhttp)

http.open الحصول على ، url ، خطأ

http.send ()

إذا كان http.readyState <> 4 وظيفة الخروج

gethtpage = bytes2bsstr (http.responsebody)

تعيين http = لا شيء

إذا err.number <> 0 err.clear

وظيفة نهاية

وظيفة bytes2bstr (VIN)

قاتمة ستريتن

Dim I ، thischarcode ، nextCharcode

streturn =

لأني = 1 إلى lenb (vin)

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

إذا thischarcode <& h80 ثم

Streturn = Streturn & CHR (thischarcode)

آخر

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

Streturn = Streturn & CHR (CLNG (thischarcode) * & H100 Cint (NextCharcode))

أنا = أنا 1

إنهاء إذا

التالي

bytes2bstr = streturn

وظيفة نهاية

وظيفة getFilename (اسم ملف Byval)

إذا instr (اسم الملف ،/) ＞ 0 ثم

filext_a = split (اسم الملف ،/)

getFiLename = lace (fileext_a (ubound (filext_a))

إذا instr (getFilename ،؟) ＞ 0 ثم

getFilename = يسار (getFilename ، Instr (getFilename ،؟)-1)

إنهاء إذا

آخر

getFilename = اسم الملف

إنهاء إذا

وظيفة نهاية

وظيفة gethttpstr (url)

عند استئناف الخطأ التالي

خافت HTTP

تعيين http = server.createObject (msxml2.xmlhttp)

http.open الحصول على ، url ، خطأ

http.send ()

إذا كان http.readyState <> 4 وظيفة الخروج

gethttpstr = http.responsebody

تعيين http = لا شيء

إذا err.number <> 0 err.clear

وظيفة نهاية

وظيفة CreatedIR (Byval LocalPath) لإنشاء برنامج دليل ، إذا كان هناك دليل متعدد ، ثم المستوى وإنشاء مستوى واحد

عند استئناف الخطأ التالي

LocalPath = استبدال (LocalPath ، /، /)

set fileObject = server.createObject (scripting.filesystemObject)

patharr = split (localpath ، /)

path_level = ubound (patharr)

لأني = 0 إلى path_level

إذا i = 0 thatn pathtmp = patharr (0) و / else pathtmp = pathtmp & patharr (i) و /

CPATH = LEFT (PATHTMP ، LEN (PATHTMP) - 1)

إذا لم يكن fileObject.foldrexist (cpath) fileObject.createfolder cpath

التالي

تعيين fileObject = لا شيء

إذا err.number <> 0 ثم

Createdir = false

err.clear

آخر

Createdir = صحيح

إنهاء إذا

وظيفة نهاية

وظيفة getFilext (اسم ملف Byval)

filext_a = split (اسم الملف ،.)

getFilext = lace (fileext_a (ubound (filext_a))

وظيفة نهاية

وظيفة getVirtual (Str ، Path ، urlhead)

إذا ترك (str ، 7) = http: // ثم

url = str

elseif left (str ، 1) =/ thens

start = instrev (str ،/)

إذا ابدأ = 1 ثم

url =/

آخر

url = اليسار (str ، ابدأ)

إنهاء إذا

url = urlhead و url

elseif left (str ، 3) = ../ ثم

str1 = mid (str ، instrev (str ، ../) 2) 2)

AR = انقسام (str ، ../)

lv = ubound (ar) 1

ar = انقسام (مسار ،/)

url =/

لأني = 1 إلى (ubound (ar) -lv)

url = url & ar (i)

التالي

url = url & str1

url = urlhead و url

آخر

url = urlhead وقوي

إنهاء إذا

getVirtual = url

وظيفة نهاية

"مثال رمز

قاتمة DLPATH

Virtual =/Download/

truepath = server.mappath (افتراضي)

إذا طلب (url) <> ثم

url = طلب (url)

fn = getFilename (url)

urlhead = اليسار (url ، (instr (استبدال (url ، // ،) ،/))

urlpath = استبدال (يسار (url ، instrev (url ،/)) ، urlhead ،)

strcontent = gethttppage (url)

myster = strcontent

تعيين objregexp = جديد regexp

objregexp.ignorecase = صحيح

objregexp.global = صحيح

objregexp.pattern = (src | href) =.

تعيين المطابقات = objregexp.execute (strcontent)

لكل مباراة في المباريات

str = match.value

str = استبدال (str ، src = ،)

str = استبدال (str ، href = ،)

str = استبدال (str ،،)

str = استبدال (str ، '،)

اسم الملف = getFilename (Str)

getRet = getVirtual (str ، urlpath ، urlhead)

temp = استبدال (getret ، // ، **)

start = instr (temp ،/)

endt = instrev (temp ،/)-ابدأ 1

إذا ابدأ ＞ 0 ثم

REPL = Virtual & Mid (temp ، start) &

'Response.write repl & <br>

mystr = استبدال (mystr ، str ، repl)

dir = mid (temp ، start ، endt)

temp = truepath & replies (dir ،/،/)

Createir (درجة الحرارة)

'Response.write getret & ||

savetofile getret ، اختبار واسم الملف

إنهاء إذا

التالي

تعيين المباريات = لا شيء

إنهاء إذا

٪>