首页
资讯
学习
软文
休闲
网站
悦文
图库
广告
广
告
免费收录各行各业网站
在线玩玩经典扫雷游戏
免外链纯文本网站目录
百度sem账户优化技巧
怎么选择
灵活用工平台
b2b网站大全
企业区
北京双壁波纹管厂
直供
SEM有效关键词
竞价托管
贪吃蛇!我也来玩玩!
广东化工溶剂产品公司
我是空闲的广告位置哦
中国书画艺术行业门户
我是空闲的广告位置哦
我是空闲的广告位置哦
消防维保
消防主机维修
我是空闲的广告位置哦
我是空闲的广告位置哦
北京波纹管厂
波纹管直销
我是空闲的广告位置哦
我是空闲的广告位置哦
全球暖通展
全球制冷展
ASP编程
IOS开发
android开发
PHP编程
JavaScript
ASP.NET
ASP编程
JSP编程
Java编程
易语言
Ruby编程
Perl编程
AJAX
正则表达式
C语言
编程开发
刷一次变一次图的ASP代码
2018-04-06 10:41:17
次阅读
稿源:
互联网
零七广告
刷一次变一次图的ASP代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% ---------------------------------------------------------------------------------------- 转发时请保留松 餍畔?这段声明不并会影响你的显示速度! ************************* 随机图片显示 **************************** 使用实例:img.asp?list=图片存放目录 使用注意:图片目录放于本文件同目录下!需要FSO支持! 说明:只要将变化图片放于一个目录下,修改下面程序的(需要修改的地方)成你的目录名称! 上传本程序和图片文件夹到同一目录下,在发帖时候使用UBB代码形如:即可! ---------------------------------------------------------------------------------------- Function AllPath() Dim Domain,GFilePath Domain = Request.ServerVariables("SERVER_NAME") GFilePath = Request.ServerVariables("PATH_INFO") GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/"))) AllPath = "http://"&Domain&GFilePath End Function Function ShowFileList(folderspec) Dim Path,objFSO,objFolder,count,objFile,nume,S Path = Server.MapPath(folderspec) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(Path) Then Set objFolder = objFSO.GetFolder(Path) count = 0 For Each objFile in objFolder.Files count = count+1 Next randomize nume = Int((count*rnd)+1) S = 0 ShowFileList = "" For Each objFile in objFolder.Files S = S + 1 If S = nume Then ShowFileList = objFile.Name Exit For End If Next Set objFolder = Nothing Else ShowFileList = "NO" End If Set objFSO = Nothing End Function Dim list,filename,address,str list = trim(Request.QueryString("list")) if list = "" then Response.write "本页需要正确参数引入,您缺少相关的参数!正确格式如下:"&AllPath&"img.asp?list=(需要修改的地方)" Response.End() end if filename = ShowFileList("./"&list&"/") if filename = "NO" then Response.write "您指定的目录<b>"&list&"</b>不存在,请重新指定!" Response.End() end if if filename = "" then Response.write "您指定的目录<b>"&list&"</b>没有相关的图片文件存在,请重新指定!" Response.End() end if str = right(filename,3) if str<>"jpg" and str<>"gif" then filename = "erro.gif" end if address = AllPath&list&"/" address = address&filename %> <%Response.redirect(address)%>
点赞
收藏
零七网部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与零七网进行文章共享合作。
零七广告
零七广告
最新ASP编程
也谈跨站脚本攻击与防御
先锋海盗类
eWebEditor:网站中的隐形炸弹
也谈采集入库的技术
一个查ASP木马的小东东
XSS测试语句大全
XML相关技术资料
跨站脚本执行漏洞详解与防护
Mssql高级注入笔记II
asp存储过程使用大全
零七广告
热点ASP编程
邹建的分页存储过程改了一下
先锋海盗类
如何从Html页面中提取所有汉字
如何判断conn.Execute成功 或失败?
[视频]Visual Studio 2005入门之类-共
ASP+ACCESS实现的无限级目录树
asp存储过程使用大全
利 用 ISAPI 实 现 向 数 据 库 中 添
XML相关技术资料
Mssql高级注入笔记II
零七广告