ASP实现头像图像随机变换

246 阅读 0 评论 163 点赞

我是靠谱客的博主明亮丝袜，最近开发中收集的这篇文章主要介绍ASP实现头像图像随机变换，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

复制代码代码如下:

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