复制代码 代码如下:<%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 %>

　　推荐阅读

　　一个可以自动创建多级目录的函数

<% '创建多级目录，可以创建不存在的根目录 '参数：要创建的目录名称，可以是多级 '返回逻辑值，True成功，False失败 '创建目录的根目录从当前目录开始 '--------------------------------------------------- Fun>>>详细阅读

本文标题：ASP实现头像图像随机变换

地址：http://www.17bianji.com/kaifa2/ASP/32772.html

 1/2    1