con_jswz_main.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 66 行

<%
sub jswz_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&jswz_bar_top(ncname,1)
    sql="select top "&n_num&" id,topic,tim,username,counter,emoney,power from jswz 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&jswz_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&jswz_bar_end("<a href='jswz_list.asp?action=more&c_id="&ncid&"'>浏览更多…</a>",1)
    crs.movenext
  loop
  crs.close
  set crs=nothing
end sub


sub jswz_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&jswz_bar_top(ncname,1)
sql="select top "&n_num&" id,topic,tim,username,counter,emoney,power from jswz 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&jswz_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&jswz_bar_end("<a href='jswz_list.asp?action=more&c_id="&ncid&"'>浏览更多…</a>",1)
%></td><%
if i+1 mod 2=0 then %></tr><%end if
if i=1 then %><img src="image/nvxing.jpg" width="580" height="60"><%end if
crs.movenext
i=i+1
loop
crs.close
set crs=nothing
%></table><%
end sub
%>