复制代码代码如下：
<％onerresumenext％>
<％
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
别的
身体= getwebdata（httpurl）
mycache.addbody，dateadd（“ D”，1，现在）
Endif
iferr.number = 0
响应。charset=“ UTF-8”
响应。conttype=“应用程序/八位字节”
响应。BinaryWriteBoby
响应
别的
wscript.echoerr.Description
Endif
'取得数据
PublicFunctionGetWebData（byvalstrid）
DimcidPath
cidpath = mid（strid，1，inser（8，strid，“/”））
Dimretrieval
setRetRieval = server.createobject（“ microsoft.xmlhttp”）
撤消
开机“ get”，strid，false，“”，“”
.setRequestheader“推荐人”，Cidpath
。发送
getWebData = .responsebody
端
setRetRieval =没有
最终功能
％>