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