复制代码代码如下：
<％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、now）
endif
iferr.number = 0then
Response.Charset = "UTF-8"
Response.ContentType = "Application/Octet-Stream"
respons.binarywritebody
Response.Flush
それ以外
wscript.echer.description
endif
'取得数据
publicFunctionGetWebData（byvalstrid）
dimcidpath
cidpath = mid（strid、1、strid（8、strid、 "/"））
Dimretrieval
setretrieval = server.createObject（ "microsoft.xmlhttp"）
withretrieval
。「get」、strid、false ""、 "
.setRequestheader "参照者"、cidpath
。送信
getWebData = .ResponseBody
終わりに
setretrieval =何もない
エンド機能
％>