刷一次变一次图的ASP代码

作者：佚名出处：网络转载时间：06-26 点击：

内容载入中...

刷一次变一次图的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

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

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

收藏本文：

【大中小】【打印页面】【推荐给朋友】【关闭窗口】

<< 上一篇：从数据表中取出第n条到第m条的记录的方

>> 下一篇：asp,php 和 jsp 比较之我见

站长学院

[ASP]
[PHP]
[JSP]
[CGI/perl]
[ASP.NET]
[C#]
[XML]
[编程综合]

推荐信息

本类热点

·ASP判断一个字符串包含在一个长字
·学习ASP前需要准备些什么呢
·用ASP批量更新SQL SERVER数据
·ASP漏洞分析和解决方法(10)
·WScript对象的VBS,VBScript
·ASP漏洞分析和解决方法(3)
·ASP漏洞分析和解决方法(1)
·ASP漏洞分析和解决方法(4)
·ASP漏洞分析和解决方法(2)
·ASP漏洞分析和解决方法(7)

刷一次变一次图的ASP代码

作者：佚名 出处：网络转载 时间：06-26 点击：

站长学院

作者：佚名出处：网络转载时间：06-26 点击：