Question

ASP代码一行显示两列

我想一行显示两个文章名，请高手指点！
sub ArticleContent(intTitleLen)
dim i,strTemp
i=0
do while not rsArticle.eof
strTemp=""
'strTemp = strTemp & ""
strTemp= strTemp & "<table width=50% border=0 cellspacing=3 cellpadding=0>"
strTemp= strTemp & "<tr>"

strTemp= strTemp & "<td width=5% height=18>"
strTemp= strTemp & "※</td>"
strTemp= strTemp & "<td width=45% >"
strTemp= strTemp & "<a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("Title") & ""
strTemp= strTemp & "</a></td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=1 colspan=3 bgcolor=#F6F6F6></td>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "</table>"
response.write strTemp
rsArticle.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
end sub

Answer 1

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
dim i
i=1
set rs=server.createobject("adodb.recordset")
sql="select top 8 * from news order by id desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<td align="center"><table width="154" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="154"><table width="99%" border="0" cellspacing="0" cellpadding="0">

<tr>
<td align="center"><table width="123" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="123" height="18"><%=left(rs("title"),10)%></td>
</tr>

</table></td>
</tr>
</table></td>
</tr>
</table></td>
<%
if i mod 2=0 then
response.write "</tr><tr>"
end if
%>
<%
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>

把news表 换成你的 title字段也换成你的
<%=left(rs("title"),10)%> 是显示标题的前10个字符 避免标题过长 你可以修改
if i mod 2=0 then 2列自动换行 想几列 自己设置

Answer 2

<style type="text/css">
<!--
.STYLE1{float:left;width:250px;display:block;}
-->
</style>

<table width="504" border="1" cellspacing="0" cellpadding="0">
<tr>
<td><span class="STYLE1">我是标题1</span><span class="STYLE1">我是标题2</span><span class="STYLE1">我是标题3</span><span class="STYLE1">我是标题4</span><span class="STYLE1">我是标题5</span></td>
</tr>
</table>

你可以用上面的方法试试，这样控制起来会比较好的，你把上面的复制出去，保存成HTML文件，然后预览一下就会明白了，这样代码也省了好多,祝你好运

Answer 3

sub ArticleContent(intTitleLen)
dim i,strTemp
i=0
strTemp=""
'strTemp = strTemp & ""
strTemp= strTemp & "<table width=50% border=0 cellspacing=3 cellpadding=0>"
do while not rsArticle.eof
if i mod 2=0 then strTemp= strTemp & "<tr>"

strTemp= strTemp & "<td width=5% height=18>"
strTemp= strTemp & "※</td>"
strTemp= strTemp & "<td width=45% >"
strTemp= strTemp & "<a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("Title") & ""
strTemp= strTemp & "</a></td>"
strTemp= strTemp & "<td height=1 bgcolor=#F6F6F6></td>"
if i mod 2=1 then strTemp= strTemp & "<tr>"
rsArticle.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
strTemp= strTemp & "</table>"
response.write strTemp

end sub

Answer 4

关云长正解。这种写法，到时候要修改每行显示多少条标题都很方便。
主要是那行：if i mod 2=1 then ……