Question

求助ASP程序修改，asp新闻两列怎么做

求助，asp 如何两列展示，一般程序都只有一列，两列要怎么修改呢，麻烦帮我修改下代码，很抱歉没有分了。

set rs=server.createobject("adodb.recordset")
sql="select top 100 title,content,file_path,[url],time from [article] where "&ClassSQL&"='"&ItemID&"' and view_yes=1 and ArticleType=1 order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
for i=1 to 100
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=ArticleContent_FolderName&"/"&rs("file_path")
end if
WebNewNewsList=WebNewNewsList&"<tr><td width='75%'>· <a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),19)&"</a></td>"
WebNewNewsList=WebNewNewsList&"<td width='25%'><span>"&year(rs("time"))&"-"&month(rs("time"))&"-"&day(rs("time"))&"</span></td></tr>"
rs_0.close
set rs_0=nothing
rs.movenext
next
else
WebNewNewsList=WebNewNewsList&"暂无信息。"
end if
rs.close
set rs=nothing

Answer 1

dim j
set rs=server.createobject("adodb.recordset")
sql="select top 100 title,content,file_path,[url],time from [article] where "&ClassSQL&"='"&ItemID&"' and view_yes=1 and ArticleType=1 order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
j=1
for i=1 to 100
rs_url=""
if rs("url")<>"" then
rs_url=rs("url")
else
rs_url=ArticleContent_FolderName&"/"&rs("file_path")
end if
WebNewNewsList=WebNewNewsList&"<td><table width='100%'><tr><td width='75%'>· <a href='"&rs_url&"' target='_blank' title='"&rs("title")&"'>"&left(rs("title"),19)&"</a></td>"
WebNewNewsList=WebNewNewsList&"<td width='25%'><span>"&year(rs("time"))&"-"&month(rs("time"))&"-"&day(rs("time"))&"</span></td></tr></table></td>"
rs_0.close
set rs_0=nothing
if j mod 2=0 then response.write "</tr><tr>"
rs.movenext
j=j+1
next
else
WebNewNewsList=WebNewNewsList&"暂无信息。"
end if
rs.close
set rs=nothing

追问

应该是可以的，细节要修改下，显示是变成一列一列了，每个都竖着怎么办，我只要两列，他每个都竖着一列一列

追答

每个都竖着一列一列 = if j mod 2=0 then response.write "" 没起作
把j改成i试下
if i mod 2=0 then WebNewNewsList=WebNewNewsList&""
或
if j mod 2=0 then WebNewNewsList=WebNewNewsList&""

Answer 2

WebNewNewsList是在table中调用的吗？

追问

这个是在html文件中调用，这个代码要生成静态的

追答

我给你试试吧。一次性不一定能成功。只有这些代码没法调试。

追问

好的，谢谢哈， 我在网上查到说，用rs.movenext 还有的说用，dim j j=j+1 do while not rs.eof 之类的方法

追答

rs_0.close是干什么的？前面没有对象啊

追问

前面好像没有rs_0这个

追答

把以下代码放到中间，不要放中
"" then
rs_url=rs("url")
else
rs_url=ArticleContent_FolderName&"/"&rs("file_path")
end if
WebNewNewsList="·"&left(rs("title"),19)&""
WebNewNewsList=WebNewNewsList&""&year(rs("time"))&"-"&month(rs("time"))&"-"&day(rs("time"))&""
rs_0.close
set rs_0=nothing
if i mod column = 0 then
Response.Write ""
end if
rs.movenext
loop
else
WebNewNewsList=WebNewNewsList&"暂无信息。"
end if
rs.close
set rs=nothing
%>
试试吧

采纳田响的吧，他回答的快

追问

我试试哈

追答

我看了效果一样的。我给你聊天了，让他抢先啦