复制代码代码如下::
<%OnErrorresumeNext%>
<%
Dimp, PPIC, ID, Körper, Mykache
randomisieren
p = int ((3*rnd) +1)
id = request.queryString ("id")
Httpurl = "http://sms.2e7.net/ 可爱卡通 0" & p & p & ". Gif"
SetMycache = newcache
mycache.name = "picIndex" & id
Ifmycache.validthen
Body = Mycache.Value
Anders
Body = getWebdata (httpurl)
mycache.addbody, dateadd ("D", 1, jetzt)
Endif
Ifer.number = 0Then
Response.charset = "utf-8"
Antwort.ContentType = "Anwendung/Oktett-Stream"
Antwort.BinaryWriteBody
Antwort.Flush
Anders
Wscript.Echoerr.Description
Endif
'取得数据
PublicFunctiongetWebdata (Byvalstrid)
DimcidPath
CidPath = Mid (Strid, 1, Instrument (8, Strid, "/"))
DiMretrieval
SetRevalal = server.createObject ("microsoft.xmlhttp"))
Withrieval
.Open "GET", STRID, FALSE "," "," "
.setRequestheader "Referer", cidPath
.Schicken
GetWebdata = .ResponseBody
Endwith
SetReval = nichts
Endfunktion
%>