新闻和文章频道首页两列列表For 1.2

sub news_main_list2(n_num,c_num)
%><table width='100%' valign='top'><%
  dim ncid,ncname,crs,csql,sqla,n_username,n_topic,n_tim
  i=0
  csql="select c_id,c_name from jk_class where nsort='"&n_sort&"' order by c_order"
  set crs=joekoe_cms.exec(csql,1)
  do while not crs.eof
    ncid=crs("c_id")
    ncname=crs("c_name")
    sqla=" and c_id="&ncid
  if i mod 2=0 then
%>
  <tr>
<%
  end if
%>
  <td width='50%' valign='top'>
<%
response.write vbcrlf&news_bar_top(ncname,1,(i mod 2)+1,"news_list.asp?action=more&c_id="&ncid)
    sql="select top "&n_num&" id,topic,tim,username,counter,ispic from news where hidden=1 and c_id="&ncid&" order by id desc"
    set rs=conn.execute(sql)
    do while not rs.eof
      n_username=rs("username")
      n_topic=rs("topic")
      n_tim=rs("tim")
      n_tim=joekoe_cms.time_type(n_tim,1)
      response.write vbcrlf&news_topic_type(c_num,rs("id"),n_username,n_topic,n_tim,rs("counter"),rs("ispic"),2)
      rs.movenext
    loop
    rs.close
    response.write vbcrlf&news_bar_end("<a href='news_list.asp?action=more&c_id="&ncid&"'>浏览更多…</a>",1)
%>
</td>
<%
if i+1 mod 2=0 then
%>
</tr>
<%
end if
if i=1 then
%>
<tr><td height=1></td></tr>
<%
end if
  crs.movenext
  i=i+1
  loop
  crs.close
  set crs=nothing
%></table><%
end sub

sub article_main_list2(n_num,c_num)
%><table width='100%' valign='top'><%
dim ncid,ncname,crs,csql,sqla,n_username,n_topic,n_tim
i=0
csql="select c_id,c_name from jk_class where nsort='"&n_sort&"' order by c_order"
set crs=joekoe_cms.exec(csql,1)
do while not crs.eof
ncid=crs("c_id")
ncname=crs("c_name")
sqla=" and c_id="&ncid
if i mod 2=0 then %><tr><%end if
%><td width='50%' valign='top'><%
response.write vbcrlf&article_bar_top(ncname,1)
sql="select top "&n_num&" id,topic,tim,username,counter,emoney,power from article where hidden=1 and c_id="&ncid&" order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
n_username=rs("username")
n_topic=rs("topic")
n_topic=joekoe_cms.code_js(n_topic,1)
n_tim=rs("tim")
n_tim=joekoe_cms.time_type(n_tim,1)
response.write vbcrlf&article_topic_type(c_num,rs("id"),n_username,n_topic,n_tim,rs("counter"),false,2,rs("emoney"),rs("power"))
rs.movenext
loop
rs.close
response.write vbcrlf&article_bar_end("<a href='article_list.asp?action=more&c_id="&ncid&"'>浏览更多…</a>",1)
%></td><%
if i+1 mod 2=0 then %></tr><%end if
if i=1 then %><tr><td height=1></td></tr><%end if
crs.movenext
i=i+1
loop
crs.close
set crs=nothing
%></table><%
end sub