UC知道谁能帮我分析一下这段代码？怎么使用？？加奖励！！
来源：百度知道 编辑：UC知道 时间：2024/06/07 02:59:32
介绍的越详细越好
<%@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
nume = Int((count*rnd)+1)
S = 0
ShowFileList = ""
For Each objFile in objFolder.Fi
<%@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
nume = Int((count*rnd)+1)
S = 0
ShowFileList = ""
For Each objFile in objFolder.Fi
这段代码是用来上传图片到服务器端的脚本。
使用的组件是SoftArtisans FileUp，这是一个专门上传文件的IIS组件.
需要在服务器段配置好，才可以上传文件
fucnction AllPath是获得存储路径
Function ShowFileList检查上传的文件
首先你需要下载SoftArtisans FileUp，配置SoftArtisans FileUp。
最后，知道怎么调用这个组件。
这个代码本身应该没有问题，如果你是copy的你用不上， 要根据你的情况来写。
耐心点，不复杂。
具体参见这个http://www.cnblogs.com/sopestar/archive/2005/04/05/132486.html
可以复制到 记事本里面
然后保存下 不能保存 txt 格式
试试 吧
有事在说
首先说明,这个程序我电脑运行不起来,不知道是不是代码有错,我没有义务去改程序,
分析:这个是随机显示你指定目录下的一个图片,图片格式为jpg" and gif"
调用方式为:"文件名.asp?list=你指定的文件夹"这个文件夹和本ASP文件在同一目录下.
可以直接在HTML文件中<img src="文件名.asp?list=你指定的文件夹" >