复制代码 代码如下:

<%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

%>