Python语言技术文档

微信小程序技术文档

php语言技术文档

jsp语言技术文档

asp语言技术文档

C#/.NET语言技术文档

html5/css技术文档

javascript

点击排行

您现在的位置:首页 > 技术文档 > asp技巧

asp实现头像图像随机变换

来源:中文源码网    浏览:271 次    日期:2024-03-28 22:31:24
【下载文档:  asp实现头像图像随机变换.txt 】


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

相关内容