تم تعديل الكود من الإنترنت قليلاً ، ويتم استخدام فئة ذاكرة التخزين المؤقت بالفعل. .
احفظ الرمز كما ، على سبيل المثال ، pic.asp
استخدام: http://www.xxx.com/pic.asp؟url=http://www.aaaa.com/log.gif
ليس فقط 163 ، ولكن أيضا العديد من الصور لمكافحة السرقة يمكن تحقيقها.
<٪
'حكم سرقة الروابط
"ifinstr (request.servervariables (" http_referer ") ،" http: // "& request.servervariables (" server_name ") و") = 0then
'Response.write "رابط غير قانوني"
استجابة
'Endif
ديموورل ، الجسم ، mycache
url = request.querystring ("url")
setMyCache = NewCache
mycache.name = "picIndex" & url
ifmycache.validthen
الجسم = mycache.value
آخر
body = getWebData (url)
mycache.addbody ، dateadd ("D" ، 1 ، الآن)
Endif
iferr.number = 0then
استجابة. charset = "utf-8"
استجابة. contenttype = "التطبيق/ثنائي الثماني"
استجابة
استجابة
آخر
wscript.echoerr.description
Endif
احصل على البيانات
publicfunctiongetWebData (ByvalStrurl)
dimcurlpath
CurlPath = Mid (Strurl ، 1 ، Instr (8 ، Strurl ، "/"))
dimretrival
setRetRieval = server.createBject ("Microsoft.xmlhttp")
withretrival
Open "Get" ، Strurl ، false ، "" ، ""
.SetRequestHeader "المرجع" ، CurlPath
.يرسل
getWebData = .responseBody
endwith
setRetRieval = لا شيء
الوظيفية
فئة ذاكرة التخزين المؤقت
ClassCache
محتوى PrivateObj'Cache
وقت PrivateExpiretime'expiration
privatexpiretimename'expiration اسم التطبيق
PrivateCachename'cache اسم تطبيق تطبيق
PrivatePath'url
privatesubclass_initialize ()
path = request.ServerVariables ("url")
PATH = LEFT (PATH ، Instrrev (PATH ، "/"))
ينتهي
privatesubclass_terminate ()
ينتهي
PublicPropertygetBlespty
هل هو فارغ
ifSempty (OBJ) ثم
Blempty = صحيح
آخر
Blempty = false
Endif
endproperty
PublicPropertygetValid
"سواء كانت متوفرة (منتهية الصلاحية)
ifsempty (obj) ornotisdate (Expiretime) ثم
صالح = خطأ
elseifcdate (Expiretime) <nowthen
صالح = خطأ
آخر
صالح = صحيح
Endif