复制代码 代码如下:
<%OnErrorResumeNext%>
<%
dimp,ppic,id,body,myCache
randomize
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
Else
body=GetWebData(HttpUrl)
myCache.addbody,dateadd("d",1,now)
EndIf

IfErr.Number=0Then
Response.CharSet="UTF-8"
Response.ContentType="application/octet-stream"
Response.BinaryWritebody
Response.Flush
Else
Wscript.EchoErr.Description
Endif

'取得数据
PublicFunctionGetWebData(ByValstrid)
Dimcidpath
cidpath=Mid(strid,1,Instr(8,strid,"/"))
DimRetrieval
SetRetrieval=Server.CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"Get",strid,False,"",""
.setRequestHeader"Referer",cidpath
.Send
GetWebData=.ResponseBody
EndWith
SetRetrieval=Nothing
EndFunction
%>