求助web问题

能不能帮我写个获取当前文件架里的文件..

<%

'asp的  没有测试,你自己试一下吧,有问题再问

FolderPath= "./"  '设置路径
 folderspec = server.MapPath(FolderPath)
    Set fs = CreateObject("Scripting.FileSystemObject")
    if fs.FolderExists(folderspec)=false then
 response.write("目录" & redFont & folderspec &"</font>不存在或没有访问权限！")
 response.End()
    end if
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files

 For Each f1 in fc
    filePath = LCase(f1.path)

    fileName=f1.name

response.write "文件名:"&fileName&"--文件路径:"&filePath&"<br>"

 '还可以获得其它信息如文件大小,修改日期,创建日期等
   Next

set fc=nothing
Set fs = nothing
%>