[这个贴子最后由77877在 2006/06/13 01:39pm 第 3 次编辑]
我想达到的效果是读取到的数据,按每行2列显示,直到把所有数据显示出来为止.如果有6个数据,那么排列为:
6 5
4 3
2 1
---------------------------
dim i,strTemp
i=0
strTemp= strTemp & "
"
do while not rsArticle.eof
strTemp= ""
strTemp= strTemp & "| "
strTemp= strTemp & ""
strTemp= strTemp & " | "
if i mod 2 <>0 then
end if
if i mod 2 =0 then
strTemp= strTemp & "
"
strTemp= strTemp & "
"
end if
rsArticle.movenext
response.write strTemp
i=i+1
if i>=MaxPerPage then exit do
loop
end sub
(省略了读取数据库的代码)
----------------------------------
执行上面的代码显示效果:
6
5 4
3 2
1
同一行里每列的距离很大.因为左列(5, 3 ,1)的表格太宽.不知道是什么原因.
--------------------------
如果把strTemp= ""去掉.那效果是(数据重复显示):
1
1
2
1
2 3
1
2 3
4
1
3 2
4 5
6
5 4
3 2
1
----------------------
请问如何修改上面的代码达到我要求的效果? 谢谢
|
|
|
