复制代码代码如下:
<%OnerRorresUMenext%>
<%
DIMP, PPIC, ID, Tubuh, Mycache
mengacak
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
body = mycache.value
Kalau tidak
body = getWebData (httpurl)
mycache.addbody, dateadd ("d", 1, sekarang)
Endif
Iferr.number = 0then
Response.charset = "UTF-8"
Response.contentType = "Aplikasi/Octet-Stream"
Response.binarywriteBody
Response.flush
Kalau tidak
Wscript.echoerr.description
Endif
'取得数据
PublicFunctionGetWebData (BYVALSTRID)
Dimcidpath
cidpath = mid (strid, 1, instr (8, strid, "/"))
Dimretrieval
SetRetrieval = server.createObject ("microsoft.xmlhttp")
Tanpa retrieval
.Open "get", strid, false, "", ""
.setRequestheader "Referer", Cidpath
.Mengirim
GetWebData = .ResponseBody
Endwith
SetRetrieval = tidak ada
Fungsi endfungsi
%>