لقد قرأت مقالة حول صفحة الويب
تنزيل؟ url = صفحة الويب التي تريد تنزيلها
رمز تنزيل. 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 ، اختبار واسم الملف إنهاء إذا التالي تعيين المباريات = لا شيء إنهاء إذا ٪> |