您正在使用 IPV4 [44.195.23.152] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]保护绿色环境,构建和谐社会       悟空收录网      

【腾讯云】 爆款2核2G3M云服务器首年 61元,叠加红包再享折上折      
[公益] 地球是我家,绿化靠大家      
2024年 清明节 006
2024年 劳动节 033
2025年 元 旦 278
2025年 春 节 306
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
ASP实现头像图像随机变换
内容摘要: %OnErrorResumeNext%%dimp,ppic,id,body,myCacherandomizep=Int((3*rnd)+1)id=Request.QueryString('id')HttpUrl='http://sms.2e7.net/可爱卡通0'p'.gif'SetmyCache=newcachemyCache.name='picindex......
<%OnErrorResumeNext%>

<%

dimp,ppic,id,body,myCache

randomize

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

body=myCache.value

Else

body=GetWebData(HttpUrl)

myCache.addbody,dateadd("d",1,now)

EndIf

IfErr.Number=0Then

Response.CharSet="UTF-8"

Response.ContentType="application/octet-stream"

Response.BinaryWritebody

Response.Flush

Else

Wscript.EchoErr.Description

Endif

'取得数据

PublicFunctionGetWebData(ByValstrid)

Dimcidpath

cidpath=Mid(strid,1,Instr(8,strid,"/"))

DimRetrieval

SetRetrieval=Server.CreateObject("Microsoft.XMLHTTP")

WithRetrieval

.Open"Get",strid,False,"",""

.setRequestHeader"Referer",cidpath

.Send

GetWebData=.ResponseBody

EndWith

SetRetrieval=Nothing

EndFunction

%>

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:asp获取数据库中表名和字段名的代码

 

下一篇:asp解密、还原chrw、chr编码文件的方法

发布日期:2023/5/26
手机扫二维码直达本页
发布时间:13:14:27
点  击:14
录  入:壹家怡园
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....