<%set fso = CreateObject("Scripting.FileSystemObject")targetPath=".. ext"uploadPath = server.mappath(targetPath)Set uploadfolder = fso.GetFolder(uploadPath)set allfiles = uploadfolder.Filesfor each fileitem in allfilessFileName = fileitem.Name''判断文件类型if right(sfilename,3)="png" _or right(sfilename,3)="bmp" _or right(sfilename,4)="aspx" _or right(sfilename,3)="mid" _or right(sfilename,3)="amr" _or right(sfilename,3)="txt" _or right(sfilename,4)="html" _or right(sfilename,3)="htm" _or right(sfilename,3)="jpg" _or right(sfilename,3)="gif" _or right(sfilename,3)="asp" _thenresponse.write "<a href='"&targetPath&sFileName&"' target=_blank>"&sFileName&"</a><br>"end ifnext%>
