回复一次图片变一次的原理
来源:互联网 发布:qt tcp 连接的端口号 编辑:程序博客网 时间:2024/05/17 01:42
最近在网上看到了一些图片,回复一次就可以变一次,大家以为很神奇,说穿了其实不值一提。就是利用刷新一次换一次图片的原理。因为回复后页面都会自动刷新。大家先把鼠标放到图片上点右键,点属性,可以看到联接并不是一张图片,而是一个联接到asp页面的链接。呵呵,那我们也做一个asp程序就可以了!
'使用实例: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,2004528115924.htm,address,str
list = trim(Request.QueryString("list"))
if list = "" then
Response.write "本页需要正确参数引入,您缺少相关的参数!正确格式如下:"&AllPath&"img.asp?list=(需要修改的地方)"
Response.End()
end if
2004528115924.htm = ShowFileList("./"&list&"/")
if 2004528115924.htm = "NO" then
Response.write "您指定的目录<b>"&list&"</b>不存在,请重新指定!"
Response.End()
end if
if 2004528115924.htm = "" then
Response.write "您指定的目录<b>"&list&"</b>没有相关的图片文件存在,请重新指定!"
Response.End()
end if
str = right(2004528115924.htm,3)
if str<>"jpg" and str<>"gif" then
2004528115924.htm = "erro.gif"
end if
address = AllPath&list&"/"
address = address&2004528115924.htm
%>
<%Response.redirect(address)%>
- 回复一次图片变一次的原理
- 刷新一次变一次的图片代码-PHP随机显示图片代码:可制作头像或签名
- 一次服务器突然变慢的优化
- 每刷新一次就换一次图片的代码
- c# 刷新一次图片随机变换一次的页面代码
- 一次U盘文件变乱码的恢复
- 一次神奇的图片"消失"的事件
- 一次
- 最后一次正确配置的原理
- 一次ionic3上传图片的经历
- 一次显示图片
- 记一次VS Code崩溃的解决(Win10扫描自动回复系统文件)
- 一次设置,电脑变身路由器~
- 一次sqlserver变慢优化过程
- 一个将图片点击放大的简单demo,点击一次,放大一次
- “一次编译,到处运行”原理
- 一次滑动一个图片 slide
- gallery一次滑动一张图片
- [英语阅读]平安夜美国犹太单身大聚会
- byte[]和String类型之间的转换
- 学习symbian的好网站
- 发展瓶颈
- Ants in one's pants 热锅上的蚂蚁
- 回复一次图片变一次的原理
- [双语阅读]全球变暖加剧 白色圣诞成奢望
- [英语阅读]梦是黑白的还是彩色的
- 如何摆脱一个话痨
- Christmas morning 圣诞的早晨
- 第一天上来
- Setting an Application's Entry Point
- SPI
- 一些被遗忘的算法