关于分列显示的问题.

[ssson]

<% call ListFolderContents("C:\Inetpub\wwwroot\htm") %>
<% sub ListFolderContents(path)
dim fs, folder, file, item,File2,FSO
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
total=int(folder.files.count)
for each item in folder.Files
if right(item.Name,4)=".jpg" then
if(total mod 2 = 0 ) then
Set fso = CreateObject("Scripting.FileSystemObject")
response.write filepath&item.Name&""
else
Set fso = CreateObject("Scripting.FileSystemObject")
response.write filepath&item.Name&""
response.write "<br>"
end if
end if
next
end sub
%>



我正在做asp生成静态页，用到fso
有一部是要把文件名读出来，一行显示两个，我用mod　２来判断是不是被２整除来确定是不是要换行
代码如上，可是总是显示不正确，要么就一排显示一个，要么就参差不齐.有的五六七个，有的三四个这样
怎么搞定呢，大虾帮我看看.....

[ssson]

我是想两个一行的.