<%@ LANGUAGE=VBScript.Encode%>
<%Set fs=CreateObject("Scripting.FileSystemObject")
picpath=server.Mappath("pic")
Set f=fs.GetFolder(picpath)
Set fc=f.Files
dim show()
Redim Preserve show(0)
i=1
For Each f1 in fc
Redim Preserve show(i)
show(i)=f1.name
i=i+1
next
Set fc=nothing
Set f=nothing
Set fs=nothing%>图片
<%for i=1 to UBound(show)%>")>%>)
<%next%>