日期:2014-05-17 浏览次数:20833 次
<% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 %> <% web=request.Form("selname2") webs=split(web,",") %> <% Dim paths,fso,objFolder,file,foldFiles,mm url = "/fujitec1/" paths="imagin/" & webs(0) & "/" &webs(1) '图片文件所在的文件夹 Set fso=Server.CreateObject("Scripting.FileSystemObject") Set objFolder = fso.GetFolder(Server.MapPath(paths)) Set foldFiles = objFolder.files i=1 For Each file In foldFiles imagin=split(file,"\") files=imagin(ubound(imagin)) urls=url &"/" &paths & "/" & files response.write "<td><a href='"&urls&"'>"&files&"<br><br></td>" Next Set objFolder=nothing Set objSubFolders=nothing Set foldFiles=nothing Set fso=nothing %>