'********************************************************************************************************************************************************************************* * ***************
' وظيفة
الوظيفة: استخدم التدفقات لحفظ الملفات
'المعلمات: من (عنوان الملف البعيد)، tofile (حفظ موقع الملف)
'********************************************************************************************************************************************************************************* * ***************
ملفات حفظ الوظائف الخاصة (byref from، byref tofile)
بيانات خافتة
البيانات=GetData(من،0)
تم حفظ الاستجابة. الكتابة بنجاح: &formatnumber(len(Datas)/1024*2,2)&Kb
استجابة. فلوش
إذا formatnumber(len(Datas)/1024*2,2)>1 ثم
ADOS.النوع = 1
ADOS.الوضع =3
ADOS.فتح
ADOS.كتابة البيانات
ADOS.SaveToFile server.mappath(tofile),2
ADOS.إغلاق()
آخر
فشل حفظ Response.Write: حجم الملف&formatnumber(len(imgs)/1024*2,2)&Kb، أقل من 1 كيلو بايت
استجابة. فلوش
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * ***************
وظيفة (خاصة)
الوظيفة: استخدم fso لاكتشاف ما إذا كان الملف موجودًا أم لا، فسيُرجع صحيحًا.
'المعلمة: filespes (موقع الملف)
'********************************************************************************************************************************************************************************* * ***************
الوظيفة الخاصة موجودة (byref filespec)
إذا (FSO.FileExists(server.MapPath(filespec))) ثم
موجود = صحيح
آخر
موجود = خطأ
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * ***************
وظيفة (خاصة)
الوظيفة: استخدم fso لاكتشاف ما إذا كان المجلد موجودًا، فإنه يُرجع صحيحًا.
'المعلمة: المجلد (موقع المجلد)
'********************************************************************************************************************************************************************************* * ***************
الوظيفة الخاصة IsFolder (مجلد byref)
إذا كان FSO.FolderExists(server.MapPath(Folder)) إذن
IsFolder = صحيح
آخر
IsFolder = خطأ
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * ***************
وظيفة (خاصة)
الوظيفة: استخدم fso لإنشاء مجلد
'المعلمة: fldr (موقع المجلد)
'********************************************************************************************************************************************************************************* * ***************
وظيفة خاصة CreateFolder (byref fldr)
و
تعيين f = FSO.CreateFolder(Server.MapPath(fldr))
CreateFolder = f.Path
تعيين و = لا شيء
وظيفة النهاية
'********************************************************************************************************************************************************************************* * ***************
وظيفة (عامة)
الوظيفة: حفظ الملفات وإنشاء مجلدات متعددة المستويات تلقائيًا
'المعلمات: fromurl (عنوان الملف البعيد)، tofiles (حفظ الموقع)
'********************************************************************************************************************************************************************************* * ***************
الوظيفة العامة SaveData(byref FromUrl,byref ToFiles)
ToFiles=trim(Replace(ToFiles,//,/))
flName=ToFiles
فلدر =
إذا كان IsExists(flName)=خطأ
GetNewsFold=split(flName,/)
بالنسبة إلى i=0 إلى Ubound(GetNewsFold)-1
إذا فلدر = ثم
fldr=GetNewsFold(i)
آخر
fldr=fldr&/&GetNewsFold(i)
نهاية إذا
إذا كان IsFolder(fldr)=false إذن
إنشاء مجلد fldr
انتهي إذا
التالي
حفظ الملفات من Url، flName
انتهي إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * ***************
وظيفة (عامة)
الوظيفة: الحصول على البيانات عن بعد
'المعلمات: url (عنوان الملف البعيد)، getmode (الوضع: 0 ثنائي، 1 هو ترميز صيني)
'********************************************************************************************************************************************************************************* * ***************
GetData للوظيفة العامة (byref url،byref GetMode)
'عند استئناف الخطأ بعد ذلك
رمز المصدر = OXML.open (GET، URL، خطأ)
OXML.send()
إذا كان OXML.readystate<>4 ثم قم بالخروج من الوظيفة
إذا GetMode = 0 ثم
GetData = OXML.responseBody
آخر
GetData = BytesToBstr(OXML.responseBody)
نهاية إذا
إذا كان err.number<>0 ثم err.Clear
وظيفة النهاية
'********************************************************************************************************************************************************************************* * ***************
وظيفة (عامة)
الوظيفة: تنسيق عنوان الصورة البعيدة كموقع محلي
'المعلمات: imgurl (عنوان الصورة البعيدة)، imgfolder (دليل الصورة المحلي)، الاسم الأول (اسم البادئة المضافة)
'********************************************************************************************************************************************************************************* * ***************
تنسيق الوظيفة العامةImgPath(byref ImgUrl،byref ImgFolder،byref FristName،byref noimg)
strpath=
ImgUrl=ImgUrl
إذا instr(ImgUrl,Nophoto) أو lenb(GetData(ImgUrl,0))<=0 ثم
strpath=noimg
الاستجابة.اكتب &strpath& &vbcrlf
آخر
إذا Instr(ImgUrl,.asp) ثم
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, =)+1)&.jpg
آخر
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, /)+1)
نهاية إذا
strpath = ImgFolder&/&strpath
strpath = استبدال (strpath،//،/)
إذا ترك (strpath,1)=/ ثم strpath=right(strpath,len(strpath)-1)
strpath = تقليم (strpath)
الاستجابة.اكتب &strpath& &vbcrlf
savedataImgUrl,strpath
نهاية إذا
FormatImgPath = strpath
وظيفة النهاية