<%
'----------احصل على المحتوى عن بعد وقم بتخزين المحتوى على الكمبيوتر المحلي، بما في ذلك أي ملفات! ----------
'---------------استخدام xmlhttp وadodb.stream-----------------
"عند حدوث خطأ في الاستئناف التالي."
'---------------------------------- تحديد تنسيق الإخراج ------------ ------ ---------------
المسار = الطلب (المسار)
إذا كان المسار = إذن
المسار=http://pcqc.86516.com/index.asp
'عنوان URL المحدد هنا هو Baidu، يرجى ملاحظة أنه يجب أن يكون هناك لاحقة للملف
نهاية إذا
sPath = Path
إذا بقي (lcase(path),7) <> http:// ثم
'-------------إذا لم يكن هناك http في المقدمة، فهو ملف محلي ويتم تسليمه إلى LocalFile للمعالجة------------
الملف المحلي (المسار)
آخر
'--------------------------وإلا، فهو ملف بعيد وسيتم التعامل معه بواسطة RemoteFile---------- --------
الملف البعيد (المسار)
نهاية إذا
"الإجابة.اكتب خطأ.الوصف."
'-------------وظيفة المعالجة----------
ملف فرعي (مسار)
'------------------إذا كان ملفًا محليًا، فما عليك سوى الانتقال إلى الصفحة-------------------
"الاستجابة. مسار إعادة التوجيه."
حدث خطأ في Response.write!
نهاية الفرعية
SubRemoteFile(sPath)
'--------------------------------- وظيفة معالجة الملفات عن بعد ------------ ----------------- ----------
اسم الملف = GetFileName(sPath)
'-------------GetFileName هي عملية تحويل عنوان إلى اسم ملف مؤهل------------
اسم الملف = Server.MapPath(ذاكرة التخزين المؤقت/ واسم الملف)
تعيين objFso = Server.CreateObject(Scripting.FileSystemObject)
'الاستجابة.اكتب اسم الملف
إذا objFso.FileExists(FileName) ثم
'-------------تحقق مما إذا كان قد تم الوصول إلى الملف، إذا كان الأمر كذلك، فما عليك سوى الانتقال إلى ---------------------
استجابة. إعادة توجيه ذاكرة التخزين المؤقت/ & GetFileName (المسار)
آخر
'-------------وإلا، استخدم وظيفة GetBody لقراءتها أولاً ---------------------
"الاستجابة.اكتب المسار."
ر = جيتبودي (المسار)
'-----------------استخدم الطريقة الثنائية للكتابة في المتصفح------------------------ -------- --
Response.BinaryWrite ر
الاستجابة. فلوش
'-----------------التخزين المؤقت للإخراج ------------------------------ --- ----------
SaveFile t،GetFileName(path)
'------------------قم بتخزين محتوى الملف مؤقتًا في مسار محلي للوصول التالي -----------
انتهي إذا
تعيين objFso = لا شيء
نهاية الفرعية
وظيفة GetBody(url)
'-----------------------هذه الوظيفة هي وظيفة للحصول على المحتوى عن بعد----------------- ---
'عند استئناف الخطأ بعد ذلك
"الاستجابة. اكتب عنوان URL."
تعيين الاسترداد = CreateObject(Microsoft.XMLHTTP)
'----------------------إنشاء كائن XMLHTTP------------------------ -----
مع الاسترجاع
.افتح Get، url، False،،
'------------------إرسال باستخدام طريقة Get غير المتزامنة-----------------------
.يرسل
'GetBody = .ResponseText
GetBody = .ResponseBody
'------------------ تقوم الوظيفة بإرجاع المحتوى الذي تم الحصول عليه --------------------------
نهاية مع
تعيين الاسترجاع = لا شيء
'رد.اكتب خطأ.الوصف
وظيفة النهاية
الدالة GetFileName(str)
'--------------------------هذه الوظيفة هي وظيفة اسم ملف مؤهلة-------------- - ---
str = استبدال (lcase(str)،http://،)
str = استبدال (lcase(str)،//،/)
شارع = استبدال (شارع،؟،)
شارع = استبدال (شارع،&،)
شارع = استبدال (شارع،/،)
شارع = استبدال (شارع، vbcrlf،)
GetFileName = str
وظيفة النهاية
ملف SaveFile الفرعي (str، fName)
'--------------------------هذه الوظيفة هي وظيفة تحفظ محتوى الدفق------------- - ----
'عند استئناف الخطأ بعد ذلك
تعيين objStream = Server.CreateObject(ADODB.Stream)
'-------------لإنشاء كائن ADODB.Stream، يلزم وجود إصدار ADO 2.5 أو أعلى---------
'objStream.Type = adTypeBinary
objStream.Type = 1
'-------------فتح في الوضع الثنائي-------------------------------- -----
objStream.Open
objstream.write شارع
'--------------------------اكتب محتوى السلسلة في المخزن المؤقت---------------- ---------- ---------- ----
'الاستجابة.اكتب fname
"مسار الاهتمام."
objstream.SaveToFile E:/webroot/pcqc/vip/UploadFile/cache/&fName,2
'objstream.SaveToFile d:/cache/ & fName،adSaveCreateOverWrite
'--------------------------اكتب محتويات مخزنة إلى ملف ------------------ -------- ----
'response.BinaryWrite objstream.Read
objstream.Close()
تعيين objstream = لا شيء
'-----------------------أغلق الكائن وحرر الموارد-------------------- - ----
'رد.اكتب خطأ.الوصف
نهاية الفرعية
وظيفة حفظ الصورة (من، إلى الملف)
خافت geturl،objStream،imgs
geturl = تقليم (من)
imgs=gethttppage(geturl)'عملية الحصول على المحتوى المحدد للصورة
تعيين objStream = Server.CreateObject(ADODB.Stream)' لإنشاء كائن ADODB.Stream، مطلوب ADO 2.5 أو أعلى
objStream.Type =1'مفتوح في الوضع الثنائي
objStream.Open
يكتب objstream.write imgs محتوى السلسلة في المخزن المؤقت
objstream.SaveToFile server.mappath(tofile)،2'-اكتب المحتوى المخزن في الملف
objstream.Close()'أغلق الكائن
تعيين objstream = لا شيء
وظيفة النهاية
%>