وصف الوظيفة: بعد تحميل ملف الصورة إلى الدليل المحدد، تتم إضافة اسم الملف الذي تم تمريره في عنوان URL إلى الدليل حيث يوجد الملف بناءً على المسار الكامل للملف. ثم تتم كتابة دفق البيانات الثنائية للملف إلى صفحة الخدمة، وبالتالي تحقيق تأثير إخفاء العنوان الحقيقي للصورة ومنع الإشارة الخارجية إلى الصورة.
هنا اقتباس:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<%
الخيار الصريح
Const SysUrl = " http://www.80Boby.com/uImg/ "
وظيفة ReadBinFile (اسم الملف)
خافت objStream، بن
تعيين objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile fileName
bin = objStream.Read
objStream.Close
ReadBinFile = bin
وظيفة النهاية
الدالة هيSelfRefer()
خافت sHttp_Referer، sServer_Name
sServer_Name = CStr(Request.ServerVariables("HTTP_REFERER"))
إذا كان instr(sServer_Name,"80boby.com")<>0 أو instr(sServer_Name,"freeat63.cn")<>0 ثم
IsSelfRefer = صحيح
آخر
IsSelfRefer = خطأ
نهاية إذا
وظيفة النهاية
إذا request.QueryString("Mark")=getPic" إذن
خافت RealUrl، fso
تعتيم uFileName:uFileName=Request.QueryString("x")
RealUrl=Server.MapPath("المسار الحقيقي للملف"&uFileName)
تعيين fso = Server.CreateObject("Scripting.FileSystemObject")
إذا لم يكن (fso.FileExists(RealUrl)) ثم RealUrl=Server.MapPath("logo.gif")
إذا لم يكن (isSelfRefer) ثم
RealUrl=Server.MapPath("logo.gif")
نهاية إذا
Response.contenttype = "صورة/jpeg"
استجابة.BinaryWrite ReadBinFile (RealUrl)
Response.end
نهاية إذا
%>