asp文件遍历代码的扩展

<%
TruePath=Server.MapPath("../pic" )'pic下面的所以文件
set fso=CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(TruePath)then
Set theFolder=fso.GetFolder(TruePath)

adid=1
For Each theFile In theFolder.Files
response.Write("var objAD = new ObjectAD();")&chr(10)
response.Write ("objAD.ADID = "&adid&";")&chr(10)
response.Write("objAD.ADType = 1;")&chr(10)
response.Write("objAD.ImgUrl =")&chr(34)&("pic/")&theFile.name&chr(34)&(";")&chr(10)
response.Write("objAD.ImgWidth = 340;")&chr(10)
response.Write("objAD.ImgHeight = 151;")&chr(10)
response.Write("ZoneAD_1.AddAD(objAD);")&chr(10)&chr(10)&chr(10)
adid=adid+1
next
response.Write chr(10)&chr(10)&("ZoneAD_1.Show();")
else
response.write "找不到文件夹！可能是配置有误！"
end if
set fso=nothing
%>

上面的这个和js一起用

======================
<%
TruePath=Server.MapPath("../pic" )'pic下面的所以文件
set fso=CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(TruePath)then
Set theFolder=fso.GetFolder(TruePath)
For Each theFile In theFolder.Files
response.Write theFile.name
next
else
response.write "找不到文件夹！可能是配置有误！"
end if
%>