Question

ASP循环显示文件名称

有一个文档 display.asp
代码如下，主要是显示根目录下面的文件名
<%
Set Fso=server.createobject("Scripting.FileSystemObject")
set mydir=fso.getfolder(server.mappath("/"))
set fsoDelfile = server.createobject("scripting.FileSystemObject")

for each item in mydir.files
on error resume next
dname=item.path
htmfile=replace(dname,mydir&"\","")'将路完整文件和名径中的目录名替换掉，保留下来的就是纯文件名
response.write ""&htmfile&"<br>"
next
%>
现在要求修改一下，不显示它本身，也就是不显示display.asp这一个文档，其它的都要显示出来。如何修改

Answer 1

htmfile=replace(dname,mydir&"\","")'将路完整文件和名径中的目录名替换掉，保留下来的就是纯文件名
response.write ""&htmfile&"<br>"
加入一个判断
htmfile=replace(dname,mydir&"\","")'将路完整文件和名径中的目录名替换掉，保留下来的就是纯文件名
if htmfile<>"display.asp" then
response.write ""&htmfile&"<br>"
end if