网站中那种刷新一次换一张图片这么做?

来源:百度知道 编辑:UC知道 时间:2024/05/10 06:23:57
************************* 随机图片显示 ****************************
’使用实例: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

保存成a.js的文件,然后在应用页面调用
调用方法:
<SCRIPT language=JavaScript1.2 src="a.js"></SCRIPT>

那是用组件的,iis自带的广告轮显组件。MSCW