复制代码代码如下:
<٪ onerrorresumenext ٪>
<٪
dimp ، ppic ، id ، الجسم ، mycache
عشوائي
p = int ((3*rnd) +1)
id = request.querystring ("id")
httpurl = "http://sms.2e7.net/ 可爱卡通 0" & p & ". gif"
setMyCache = NewCache
mycache.name = "picIndex" & id
ifmycache.validthen
الجسم = mycache.value
آخر
body = getWebData (httpurl)
mycache.addbody ، dateadd ("D" ، 1 ، الآن)
Endif
iferr.number = 0then
استجابة. charset = "utf-8"
استجابة. contenttype = "التطبيق/ثنائي الثماني"
استجابة
استجابة
آخر
wscript.echoerr.description
Endif
'取得数据
publicfunctiongetWebData (ByvalStrid)
dimcidpath
cidpath = mid (strid ، 1 ، instr (8 ، strid ، "/"))
dimretrival
setRetRieval = server.createBject ("Microsoft.xmlhttp")
withretrival
.OPEN "Get" ، strid ، false ، "" ، ""
.SetRequestHeader "المرجع" ، Cidpath
.يرسل
getWebData = .responseBody
endwith
setRetRieval = لا شيء
الوظيفية
٪>