ASP实现头像图像随机变换

时间:2021-03-17 人气:0

想了解ASP实现头像图像随机变换的相关内容吗，在本文为您仔细讲解的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：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 
%> 

加载全部内容