复制代码代码如下:
<%onerrorresumenext%>
-
DIMP, PPIC, ID, Body, 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
body = mycache.value
อื่น
body = getWebData (httpurl)
mycache.addbody, dateadd ("d", 1, ตอนนี้)
endif
iferr.number = 0 แล้ว
Response.charset = "UTF-8"
Response.contentType = "แอปพลิเคชัน/อ็อกเท็ต-สตรีม"
Response.binaryWritebody
Response.flush
อื่น
wscript.echoerr.description
endif
'取得数据
PublicFunctionGetWebData (byvalstrid)
dimcidpath
cidpath = mid (strid, 1, instr (8, strid, "/"))
เกี่ยวกับสิ่งมีชีวิต
setRetrieval = server.createObject ("microsoft.xmlhttp"))
เกี่ยวกับการแก้ไข
.Open "get", strid, false, "", ""
.SetRequestheader "ผู้อ้างอิง", cidpath
.ส่ง
getWebData = .ResponseBody
จบลงด้วย
setRetrieval = ไม่มีอะไร
endfunction
-