UC知道回复一次变一次的图片
来源：百度知道 编辑：UC知道 时间：2024/09/27 05:54:11
网络空间是 http://mushi5.vip5944.com
图片存放在根目录下 images里
下面的代码应该怎么修改才能用？谢谢
还有他说插入asp页面里 应该怎么插入 在什么位置插入？
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
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<
图片存放在根目录下 images里
下面的代码应该怎么修改才能用？谢谢
还有他说插入asp页面里 应该怎么插入 在什么位置插入？
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
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<
从程序上看，这是个asp程序，需要你空间支持FSO
系统返回的网址：“img.asp?list=mm”这句
里面的mm应该换成你的目录吧
http://mushi5.vip5944.com/index.asp?list=images我试了一下，还是不行。
提示说images不存在。
1、请检查，是否存在images文件夹
做个随机函数