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

"ضبط المهلة."

Server.ScriptTimeout=9999

'##############

'وظيفة حفظ الملف

'#############

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

على خطأ استئناف المقبل

خافت geturl،objStream،imgs

geturl = تقليم (من)

Mybyval=getHTTPstr(geturl)

تعيين objStream = Server.CreateObject(ADODB.Stream)

objStream.Type =1

objStream.Open

objstream.write Mybyval

objstream.SaveToFile إلى الملف،2

objstream.Close()

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

إذا كان err.number<>0 ثم err.Clear

وظيفة النهاية

'##############

'استبدال معالجة الأحرف

'#############

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

خافت أنا، رمز

geturlencodel=

إذا تقليم (Url) = ثم اخرج من الوظيفة

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

كود = تصاعدي (منتصف (Url، ط، 1))

إذا كود <0 ثم كود = كود + 65536

إذا كان الكود> 255 ثم

geturlencodel=geturlencodel&%&Left(Hex(Code),2)&%&Right(Hex(Code),2)

آخر

geturlencodel=geturlencodel&mid(Url,i,1)

نهاية إذا

التالي

وظيفة النهاية

'##############

'يبدأ الحصول على XML للصفحة البعيدة

'#############

وظيفة getHTTPage(url)

على خطأ استئناف المقبل

خافت http

تعيين http=Server.createobject(Msxml2.XMLHTTP)

Http.open الحصول على، URL، خطأ

المتشعب.إرسال ()

إذا كان Http.readystate<>4 ثم قم بالخروج من الوظيفة

getHTTPPage=bytes2BSTR(Http.responseBody)

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

إذا كان err.number<>0 ثم err.Clear

وظيفة النهاية

البايتات الدالة 2BSTR(vIn)

عودة خافتة

خافت أنا، ThisCharCode، NextCharCode

strReturn =

لأني = 1 إلى LenB(vIn)

ThisCharCode = AscB(MidB(vIn,i,1))

إذا كان ThisCharCode < &H80 إذن

strReturn = strReturn & Chr(ThisCharCode)

آخر

NextCharCode = AscB(MidB(vIn,i+1,1))

strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

ط = ط + 1

نهاية إذا

التالي

bytes2BSTR = strReturn

وظيفة النهاية

'##############

'ينتهي الحصول على XML للصفحات البعيدة. هذا القسم شائع في جميع برامج اللصوص.

'#############

'##############

'قم بتحليل العنوان واحصل على اسم الملف

'#############

وظيفة getFileName (اسم الملف byval)

إذا instr(filename,/)>0 ثم

fileExt_a=split(اسم الملف,/)

getFileName=lcase(fileExt_a(ubound(fileExt_a)))

إذا instr(getFileName,?)>0 ثم

getFileName=left(getFileName,instr(getFileName,?)-1)

نهاية إذا

آخر

getFileName=filename

نهاية إذا

وظيفة النهاية

'##############

"احصل على وظيفة الصفحة البعيدة."

'#############

الدالة getHTTPstr(url)

على خطأ استئناف المقبل

خافت http

تعيين http=server.createobject(MSXML2.XMLHTTP)

Http.open الحصول على، URL، خطأ

المتشعب.إرسال ()

إذا كان Http.readystate<>4 ثم قم بالخروج من الوظيفة

getHTTPstr=Http.responseBody

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

إذا كان err.number<>0 ثم err.Clear

وظيفة النهاية

'##############

'وظيفة معالجة FSO، إنشاء دليل

'#############

الوظيفة CreateDIR(ByVal LocalPath) 'برنامج لإنشاء دليل إذا كان هناك مستويات متعددة من الدلائل، فقم بإنشائها واحدًا تلو الآخر.

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

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

تعيين FileObject = server.CreateObject(Scripting.FileSystemObject)

Patharr = سبليت (LocalPath، /)

path_level = UBound(patharr)

لأني = 0 إلى مستوى المسار

إذا كنت = 0 فإن pathtmp = patharr(0) & / وإلا فإن pathtmp = pathtmp & patharr(I) & /

cpath = اليسار (pathtmp، Len (pathtmp) - 1)

إذا لم يكن FileObject.FolderExists(cpath) ثم FileObject.CreateFolder cpath

التالي

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

إذا Err.Number <> 0 ثم

CreateDIR = خطأ

خطأ.واضح

آخر

CreateDIR = صحيح

نهاية إذا

وظيفة النهاية

وظيفة GetfileExt (اسم الملف byval)

fileExt_a=split(اسم الملف,.)

GetfileExt=lcase(fileExt_a(ubound(fileExt_a)))

وظيفة النهاية

'##############

'كيفية الحصول على المسار الافتراضي

'#############

وظيفة getvirtual (شارع، مسار، عنوان URL)

إذا بقي (str،7) = http:// ثم

url=str

elseif left(str,1)=/ إذن

ابدأ = instrRev (شارع،/)

إذا كانت البداية=1 إذن

رابط =/

آخر

URL = اليسار (شارع، بداية)

نهاية إذا

url=urlhead&url

elseif left(str,3)=../ إذن

str1=mid(str,inStrRev(str,../)+2)

ع = سبليت (شارع،../)

lv=ubound(ar)+1

ع = تقسيم (المسار،/)

رابط =/

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

url=url&ar(i)

التالي

url=url&str1

url=urlhead&url

آخر

url=urlhead&str

نهاية إذا

getvirtual=url

وظيفة النهاية

'قم بإنشاء مجلد لتخزين البيانات المكتسبة

الظاهري = / داونويب /

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

إذا كان الطلب (url) <> إذن

رابط = طلب (رابط)

fn=getFileName(url)

urlhead=left(url,(instr(replace(url,//,),/)+1))

urlpath=replace(left(url,instrRev(url,/))),urlhead,)

strContent = getHTTPPage(url)

mystr=strContent

تعيين objRegExp = New Regexp

objRegExp.IgnoreCase = صحيح

objRegExp.Global = صحيح

objRegExp.Pattern = (src|href)=.[^/>]+?

تعيين التطابقات =objRegExp.Execute(strContent)

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

str=Match.Value

str=replace(str,src=,)

str=replace(str,href=,)

شارع = استبدال (شارع،،)

str=replace(str,',)

اسم الملف = GetfileName (شارع)

getRet=getVirtual(str,urlpath,urlhead)

درجة الحرارة = استبدال (getRet، //، **)

ابدأ = instr (درجة الحرارة، /)

endt=instrRev(temp,/)-start+1

إذا ابدأ> 0 ثم

repl=virtual&mid(temp,start)&

'response.اكتب الرد&<br>

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

دير = منتصف (درجة الحرارة، البداية، النهاية)

درجة الحرارة = truepath&Replace(دير،/،/)

كريتدير (مؤقت)

استجابة.اكتب getRet&||&temp&filename&<br>

نجحت الاستجابة.Write في الحصول على الملف &اسم الملف&<br>

استجابة.اكتب &اسم الملف& واحفظه في &درجة الحرارة&<br><br>

استجابة.اكتب <HR>

SaveToFile getRet ودرجة الحرارة واسم الملف

نهاية إذا

التالي

تعيين التطابقات = لا شيء

نهاية إذا

%>