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