Question

下面的asp代码怎么分成两列显示

<%
sSql="Select ClassID,ClassName,ParentPath,Child From NewsClass Where ParentID=0 and classid =5"
oRs.Open sSql,oConn,1,1
%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
</table>
<TABLE cellSpacing=0 cellPadding=0 width="80%" align=center
border=0>
<TBODY>
<TR>
<TD height=29 align=middle> </TD>
</TR>
<TR>
<TD vAlign=center align=middle height=16><%
if oRs("ClassID")>0 then
if oRs("Child")>0 then
ChildID=""
set tClass=oConn.execute("select ClassID from NewsClass where ParentID=" & oRs("ClassID") & " or ParentPath like '" & oRs("ParentPath") & "," & oRs("ClassID") & ",%'")
do while not tClass.eof
if ChildID="" then
ChildID=tClass(0)
else
ChildID=ChildID & "," & tClass(0)
end if
tClass.movenext
loop
else
ChildID=oRs("ClassID")
end if
end if
Set zRs=Server.CreateObject("ADODB.Recordset")
zSql="Select top "&W_HomeArtRecoNum&" D_ID,D_ClassID,D_Title,D_Count From NewsData Where D_ClassID in (" & ChildID & ") and d_recycle=false ORDER BY d_id DESC"
zRs.Open zSql,oConn,1,1
%><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
If Not zRs.Eof Then
Do While Not zRs.Eof
%><tr><td width="13" height="20"><div align="center"><img src="../images/zw017.gif" width="4" height="4"></div></td><td width="187"><a href="ArticleShow.asp?ArtID=<%=zRs("D_ID")%>" title="文章标题：<%=zRs("D_Title")&vbcrlf%>点击次数：<%=zRs("D_Count")%>次"><%=gotTopic(zRs("D_Title"),26)%></a></td></tr><tr><td height="10"colspan="2"></td>
</tr><%
zRs.MoveNext
Loop
Else
%><tr><td width="13" height="19"><div align="center"><img src="../images/zw017.gif" width="4" height="4"></div></td>
<td width="187">暂无文章信息！</a></td>
</tr>
<tr>
<td height="2" colspan="2"></td>
</tr>
<%
End If
zRs.Close
%>
</table></TD>
</TR>
<TR>
<TD vAlign=center align=middle> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD>
</TD>
</TR>
<TR>
<TD><IMG height=10
src="../images/ad_xzgxb.gif"
width=750></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>

Answer 1

你的代码很乱..也可以说是编程习惯没有得到改善.我也不想看这么多了.以下向你介绍一下方法:

先利用for循环,例如你每一列显示6条吧.那么你就开始判断了
if i=6 then
exit for
end if
好了..到第二列开始就由
if i=7 and i<=12 then
显示内容
end if

这样就可以了.

Answer 2

在前面定义个i变量
i=0

("D_Title"),26)%></a></td></tr><tr><td height="10"colspan="2"></td>
<%if i mod 2=0 then
response.write("<tr>")
end if%>
<%
zRs.MoveNext
i=i+1
Loop
Else

这样改试下。
原理就是：在I=2的时候输出一个<tr>
让他换行