<%On Error Resume Next%> <% dim p, ppic, id, body, myCache randomize p=Int((3*rnd)+1) id= Request.QueryString("id") HttpUrl="http://sms.2e7.net/可爱卡通0"&p&".gif"   Set myCache = new cache   myCache.name = "picindex"&id   If myCache.valid Then           body = myCache.value   Else           body = GetWebData(HttpUrl)           myCache.add body,dateadd("d",1,now)   End If   If Err.Number = 0 Then         Response.CharSet = "UTF-8"         Response.ContentType = "application/octet-stream"         Response.BinaryWrite body         Response.Flush   Else         Wscript.Echo Err.Description   End if '取得数据 Public Function GetWebData(ByVal strid) Dim cidpath cidpath = Mid(strid,1,Instr(8,strid,"/")) Dim Retrieval Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", strid, False,"","" .setRequestHeader "Referer", cidpath .Send GetWebData =.ResponseBody End With Set Retrieval = Nothing End Function %>