复制代码代码如下:
<%OnErrorReSumenext%>
<%
DIMP, PPIC, ID, Corpo, Mycache
randomizar
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
corpo = mycache.value
Outro
corpo = getwebdata (httpurl)
mycache.addbody, dataAdd ("d", 1, agora)
Endif
Iferr.number = 0then
Response.Charset = "UTF-8"
Response.ContentType = "Application/Octet-Stream"
Response.BinaryWriteBody
Response.flush
Outro
Wscript.echoerr.description
Endif
'取得数据
PublicFunctionGetwebdata (ByValstrid)
DimcidPath
Cidpath = Mid (Strid, 1, Instr (8, Strid, "/"))
Dimretrieval
Setretrieval = server.createObject ("Microsoft.xmlHttp")
Withretrieval
.Pope "Get", Strid, False, "", ""
.SetRequestHeader "Referent", Cidpath
.Enviar
GetWebdata = .Responsebody
ENDWITH
Setretrieval = nada
Função final
%>