con_article_main.asp

..不怎么明白。不知道这个市什么只想下个服务端

<%
'****************************************************
' Web: http://www.aouoo.com , http://www.aouoo.net
' Copyright (C) 2007 Aouoo.com All Rights Reserved.
'****************************************************

sub article_main_list(n_num,c_num)
  dim ncid,ncname,crs,csql,sqla,n_username,n_topic,n_tim
  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
    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_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)
    crs.movenext
  loop
  crs.close
  set crs=nothing
end sub

'****************************************************
' Web: http://www.aouoo.com , http://www.aouoo.net
' Copyright (C) 2007 Aouoo.com All Rights Reserved.
'****************************************************
%>