Question

ASP如何让同一条新闻列表成两列显示，修改代码！

让同一条新闻列表成两列显示，比如新闻是4条数据，就让他显示两行两列！
原代码入下：本人不是很精通这个，所以需要大家修改好源码，直接能用，万分感谢！

<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="hg">
<tr>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext1="select top 9 * from news where BigClassName='最新动态' order by AddDate desc"
rs_news.open sqltext1,conn,1,1
%>
<%do while not rs_news.eof%>
<td width="5%"><img src="images/d.gif" width="6" height="5" /></td>
<td width="95%"><a href="Shownews.asp?id=<%=rs_news("id")%>" target="_blank"><%=left(rs_news("title"),20)%></a></td>
</tr>
<%rs_news.movenext
loop
rs_news.close
%>
<tr>
<td colspan="2" align="right"><a href="changshi.asp"><img src="images/more.gif" alt="查看更多" width="50" height="17" border="0" /></a></td>
</tr>
</table>

Answer 1

<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="hg">
<tr>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext1="select top 9 * from news where BigClassName='最新动态' order by AddDate desc"
rs_news.open sqltext1,conn,1,1
i=0
%>
<%do while not rs_news.eof
i=i+1
%>
<td width="5%"><img src="images/d.gif" width="6" height="5" /></td>
<td width="95%"><a href="Shownews.asp?id=<%=rs_news("id")%>" target="_blank"><%=left(rs_news("title"),20)%></a></td>
</tr>
<%rs_news.movenext
if i mod 2=0 then//i对2求余
%>
</tr><tr>
<%end if
loop
rs_news.close
%>
<tr>
<td colspan="2" align="right"><a href="changshi.asp"><img src="images/more.gif" alt="查看更多" width="50" height="17" border="0" /></a></td>
</tr>
</table>
希望对你有用，祝你成功！

追问

提示缺少语句！

追答

1 :把i在前面定义一下
2://i对2求余

追问

不是很明白！

追答

" target="_blank">

if i mod 2=0 then
%>

追问

dim i=0 错误提示：名称重定义！

追答

晕；把i改为其他的不就是了吗，如m

Answer 2

<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="hg">
<tr>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext1="select top 9 * from news where BigClassName='最新动态' order by AddDate desc"
rs_news.open sqltext1,conn,1,1
%>
<%
for i=1 to rs_news.recordcount
if rs_news.eof or rs_news.bof then exit for
%>
<td width="5%"><img src="images/d.gif" width="6" height="5" /></td>
<td width="95%"><a href="Shownews.asp?id=<%=rs_news("id")%>" target="_blank"><%=left(rs_news("title"),20)%></a></td>
<%
if i mod 2 =0 then
Response.write("</tr><tr>")
end if
rs_news.movenext
next
%>
</tr>
<%
rs_news.close
%>
<tr>
<td colspan="2" align="right"><a href="changshi.asp"><img src="images/more.gif" alt="查看更多" width="50" height="17" border="0" /></a></td>
</tr>
</table>

你自己试试看，有什么问题可以给我留言。

追问

显示的数据错位！！

追答

" target="_blank">
")
end if
if rs_news.recordcount mod 2 0 then
%>

你再试试看，还有你要弄懂我加得那么代码是什么意思。

Answer 3

我看你这里用的是DIV+CSS~你可以修改你的CSS样式 将原有表格内的数据改宽~这样就会出现两列了~不过宽度一定要控制好~不然会出现三列或者多列！ 希望可以帮到你.!