<%
Sub forum_bar_top(tit,body,tt)
  dim tmp
  if tt<>1 then body="<tr class=bbs_tr><td>"&body&"</td></tr>"
  tmp=CMS_Skin.GetDB("forum_bartop")&vbcrlf&"{$body}"&vbcrlf&CMS_Skin.GetDB("forum_barend")
  tmp=Replace(tmp,"{$web_skin}",joekoe_cms.web_dir_skin) 
  tmp=Replace(tmp,"{$img}",img_skin(web_img_m))
  tmp=Replace(tmp,"{$tit}",tit)
  tmp=Replace(tmp,"{$body}",body)
  tmp=Replace(tmp,"{$ukong}",CMS_Skin.skukong)
  Response.Write(vbcrlf&tmp)
end Sub

function login_forum()
  dim tmp
  if login_mode="" then
    tmp=CMS_Skin.GetDB("login_forum1")
    tmp=Replace(tmp,"{$web_skin}",joekoe_cms.web_dir_skin)
    login_forum=tmp
    exit function
  end if
  tmp=CMS_Skin.GetDB("login_forum2")
  tmp=Replace(tmp,"{$web_skin}",joekoe_cms.web_dir_skin)
  tmp=Replace(tmp,"{$login_username}",login_username)
  tmp=Replace(tmp,"{$login_mode}",format_power(login_mode,1))
  tmp=Replace(tmp,"{$login_integral}",login_integral)
  tmp=Replace(tmp,"{$login_emoney}",login_emoney)
  tmp=Replace(tmp,"{$login_msg}",login_msg)
  login_forum=tmp
end function

function forum_main()
  dim classid,forum_w,forum_w2,f_remark,fcid,forum_new_info,f_new_view,mdim,mnum,n,n2,o_dim,j,f_online
  fcid=0
  sql="select l_forum_online from user_login where l_forum_online<>0"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if not rs.eof then o_dim=rs.getrows()
  rs.close

  sql="select forum_id,forum_n,forum_w,forum_name,forum_type,forum_pro,forum_new_info,forum_new_num,forum_topic_num,forum_data_num,forum_power,forum_remark,forum_pic,class_id,forum_user,forum_config from bbs_forum where forum_hidden=0 and forum_star<2 order by class_id,forum_order,forum_star"

  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if not rs.eof then mdim=rs.getrows()
  rs.close
  mnum=-1
  if isarray(mdim) then mnum=ubound(mdim,2)
  
  for i=0 to mnum
    classid=mdim(13,i)
    if cint(fcid)<>cint(classid) then
      if cint(classid)>cint(fcid) and cint(fcid)>0 then response.write vbcrlf&forum_main_end()
      response.write vbcrlf&forum_main_head()&"<tr><td class=bbs_td colspan=3>"&mdim(3,i)&"</td></tr>"
      fcid=classid
    else
      forum_w=mdim(2,i)
      f_remark=mdim(11,i)
      forum_w2=1
      if forum_w=false then forum_w2=0
      forum_new_info=""
      f_new_view=forum_new_view_true(mdim(4,i),mdim(14,i))
      if f_new_view=true then
        forum_new_info=mdim(6,i)
      end if
	  f_online=0
      if isarray(o_dim) then
       for j=0 to ubound(o_dim,2)
        if o_dim(0,j)=mdim(0,i) then f_online=f_online+1
       next
      end if
      response.write vbcrlf&forum_main_body(mdim(0,i),mdim(1,i),forum_w2,mdim(3,i),mdim(4,i),mdim(5,i),forum_new_info,mdim(7,i),mdim(8,i),mdim(9,i),mdim(10,i),f_remark,mdim(12,i),f_new_view,mdim(15,i),f_online)
      response.buffer
    end if
  next
  
  if mnum>=0 then erase mdim
  if isarray(o_dim) then erase o_dim
  if cint(fcid)>0 then response.write vbcrlf&forum_main_end()
end function

sub forum_user_stat(w_num)
  dim temp1,tmp
  temp1=application(joekoe_cms.web_cookies&"_forum_cast")
  if var_null(temp1)="" then
    sql="select top "&w_num&" id,topic,tim from bbs_cast where sort='forum' order by id desc"
    set rs=joekoe_cms.exec(sql,1)
    if not rs.eof then
      temp1="<a href='../common/update.asp?action=forum#"&rs("id")&"' target=_blank>"&joekoe_cms.code_html(rs("topic"),1,0)&"</a> <font class=tims>"&joekoe_cms.time_type(rs("tim"),4)&"</font>"
    end if
    rs.close
    application(joekoe_cms.web_cookies&"_forum_cast")=temp1
  end if
  tmp=CMS_Skin.GetDB("forum_data")
  tmp=Replace(tmp,"{$hei}",m_hei)
  tmp=Replace(tmp,"{$web_skin}",joekoe_cms.web_dir_skin)
  tmp=Replace(tmp,"{$num_topic}",num_topic)
  tmp=Replace(tmp,"{$num_data}",num_data)
  tmp=Replace(tmp,"{$new_num}",new_num)
  tmp=Replace(tmp,"{$last_num}",bbs_lday)
  tmp=Replace(tmp,"{$num_reg}",num_reg)
  tmp=Replace(tmp,"{$online_num}",online_num)
  tmp=Replace(tmp,"{$new_user}",format_user_name(new_username,0,""))
  tmp=Replace(tmp,"{$gg}",temp1)
  tmp=Replace(tmp,"{$login_forum}",login_forum())
call forum_bar_top("论坛数据",tmp,1)
end sub

sub forum_down()
  dim udim,counter_r,tmp,recycle,birthday,f_online_view
  sql="select count(*) from user_login where l_type=0"
  set rs=joekoe_cms.exec(sql,1)
  counter_r=rs(0)
  rs.close
  if forum_super_true=true then  recycle="<td width=30 align=center><img src="&joekoe_cms.web_dir_skin&"forum/other_forum.gif border=0></td><td><a href=recycle.asp>论坛回收站</a></td>"
  if format_mid_num(42)<>1 then
    birthday="<td width=30 align=center><img src="&joekoe_cms.web_dir_skin&"forum/other_forum.gif border=0 align=absmiddle></td><td><a href=forum.asp?birthday=view>打开今日生日栏</a></td>"
    if trim(request.querystring("birthday"))="view" then birthday="<td width=30 align=center><img src="&joekoe_cms.web_dir_skin&"forum/other_forum.gif border=0 align=absmiddle></td><td><a href=forum.asp>关闭今日生日栏</a></td>"
  end if
  f_online_view="<td width=30 align=center><img src="&joekoe_cms.web_dir_skin&"forum/other_forum.gif border=0></td><td><a href=../common/online1.asp?action=forum_view>查看在线用户论坛位置</a></td>"
  tmp=CMS_Skin.GetDB("forum_more")
  tmp=Replace(tmp,"{$img_user}",img_user)
  tmp=Replace(tmp,"{$user_ip}",user_ip)
  tmp=Replace(tmp,"{$user_sys}",user_sys_type(user_sys))
  tmp=Replace(tmp,"{$hei}",m_hei)
  tmp=Replace(tmp,"{$online_num}",online_num)
  tmp=Replace(tmp,"{$counter_r}",counter_r)
  tmp=Replace(tmp,"{$guest_num}",(online_num-counter_r))
  tmp=Replace(tmp,"{$web_skin}",joekoe_cms.web_dir_skin)
  tmp=Replace(tmp,"{$f_online_view}",f_online_view)
  tmp=Replace(tmp,"{$birthday}",birthday)
  tmp=Replace(tmp,"{$recycle}",recycle)
  tmp=Replace(tmp,"{$now_time}",joekoe_cms.now_time)
  call forum_bar_top("论坛图例",tmp,1)
end sub

sub user_birthday()
  dim tmp,temp1,nnum,username,power,ta
  temp1=""
  nnum=0
  ta="'"
  sql="select username,sex,power,tim,last_tim from user_data where hidden=1 and month(birthday)="&month(joekoe_cms.now_time)&" and day(birthday)="&day(joekoe_cms.now_time)&" order by id"
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,1
  do while not rs.eof
    temp1=temp1&"<tr>"
    for i=1 to 5
      if rs.eof then exit for
      username=rs(0)
      power=rs(2)
      temp1=temp1&"<td>"&user_view_sex(rs(1),rs(4))&"&nbsp;<a href='../user/view.asp?username="&server.urlencode(username)&"' alt='用户类型："&format_power(power,1)&"<br>注册时间："&joekoe_cms.time_type(rs(3),1)&"' target=_blank>"&username&"</a></td>"
      rs.movenext
      nnum=nnum+1
    next
    temp1=temp1&"</tr>"
  loop
  rs.close
             tmp=vbcrlf&"<tr><td class=bbs_td  >今天过生日的用户（共 <font class=red>"&nnum&"</font>&nbsp;人）</td></tr><tr class=bbs_tr><td align=center>" & _
                 vbcrlf&"  <table border=0 width='98%' cellspacing=0 cellpadding=2>" & _
                 vbcrlf&"  <tr><td width='20%' height=5></td><td width='20%'></td><td width='20%'></td><td width='20%'></td><td width='20%'></td></tr>"
  if temp1="" then
    tmp=tmp&vbcrlf&"<tr><td colspan=5 class=gray>&nbsp;&nbsp;&nbsp;今天没有过生日的用户</td></tr>"
  else
    tmp=tmp&temp1
  end if
  tmp=tmp&vbcrlf&"  <tr><td height=5></td></tr>" & _
                 vbcrlf&"  </table>" & _
                 vbcrlf&"</td></tr>" 
  call forum_bar_top("今天过生日的用户（共 <font class=red>"&nnum&"</font>&nbsp;人）",tmp,1)				 
end sub

sub forum_links()
dim tmp1
tmp1="<tr><td class=bbs_td >论坛链接</td></tr><tr class=bbs_tr><td><script language=javascript src='../style/data_link_forum_main.js'></script><br><script language=javascript src='../style/data_link_ftxt.js'></script></td></tr>"
  call forum_bar_top("论坛链接",tmp1,1)
  end sub


function forum_main_head()
  dim temp1
  temp1=CMS_Skin.GetDB("forum_bartop")
  forum_main_head=replace(temp1,"{$web_skin}",joekoe_cms.web_dir_skin)
end function

function forum_main_end()
  dim temp1
   temp1=CMS_Skin.GetDB("forum_barend")
   temp1=replace(temp1,"{$ukong}",ukong)
   temp1=replace(temp1,"{$web_skin}",joekoe_cms.web_dir_skin)
   forum_main_end=temp1
end function

function forum_main_body(f_id,f_n,f_w,f_name,f_type,f_pro,f_new_info,f_new_num,f_topic_num,f_data_num,f_power,f_remark,f_pic,f_new_view,f_config,f_online)
  dim temp1,ddim,temp_pic,fj,pic_type,forum_type,list_data,tmp,tmp_dim,tmp_f_config_1
  pic_type=f_type
  if f_new_num>0 then pic_type=pic_type&"n"
  if int(f_type)=0 then
    forum_type="认证论坛"
  else
    ddim=split(web_forum_type,"|")
    for fj=0 to ubound(ddim)
      if int(f_type)=int(fj+1) then
        forum_type=ddim(fj)
        exit for
      end if
    next
	if int(f_pro)=1 then  forum_type="只读论坛"
  end if
  if isarray(ddim) then erase ddim
  if var_null(f_pic)<>"" and  f_pic<>"" then
    temp_pic=f_pic
    if left(temp_pic,1)="$" then
      temp_pic=right(temp_pic,len(temp_pic)-1)
      temp_pic="../images/forum_pic/"&temp_pic
      temp_pic=vbcrlf&"<img src='"&temp_pic&"' border=0>"
    end if
  end if
  if f_w=1 then
    if f_new_view then
      f_new_info=split(f_new_info,"|")
      if int(ubound(f_new_info))=3 then
        list_data=CMS_Skin.GetDB("forum_board_base")
        list_data=Replace(list_data,"{$forum_id}",f_id)
        list_data=Replace(list_data,"{$view_id}",f_new_info(2))
        list_data=Replace(list_data,"{$topics}",joekoe_cms.code_html(f_new_info(3),1,0))
        list_data=Replace(list_data,"{$topic}",joekoe_cms.code_html(f_new_info(3),1,24))
        list_data=Replace(list_data,"{$username}",format_user_name(f_new_info(0),0,""))
        list_data=Replace(list_data,"{$tim}",f_new_info(1))
      else
        list_data="<font class=gray>暂无</font>"
      end if
    else
      list_data="<p align=center class=gray>您没有浏览最后更新的权限</p>"
    end if
  else
    list_data="<p align=center><a href='list.asp?forum_id="&f_id&"' class=gray>点击浏览分论坛（<font class=red>"&f_n&"</font>个）信息</a></p>"
  end if
  tmp_dim=split(f_config,"|")
  tmp_f_config_1=tmp_dim(1)
  erase tmp_dim

  tmp=CMS_Skin.GetDB("forum_board")
  tmp=Replace(tmp,"{$web_skin}",joekoe_cms.web_dir_skin)
  tmp=Replace(tmp,"{$pic_type}",pic_type)
  tmp=Replace(tmp,"{$name}",f_name)
  tmp=Replace(tmp,"{$forum_type}",forum_type)
  tmp=Replace(tmp,"{$new_num}",f_new_num)
  tmp=Replace(tmp,"{$topic_num}",f_topic_num)
  tmp=Replace(tmp,"{$data_num}",f_data_num)
  tmp=Replace(tmp,"{$id}",f_id)
  tmp=Replace(tmp,"{$forum_super_view}",forum_super_view(f_power,tmp_f_config_1,99))
  tmp=Replace(tmp,"{$remark}",replace(f_remark,vbcrlf,"<br>"))
  tmp=Replace(tmp,"{$temp_pic}",temp_pic)
  tmp=Replace(tmp,"{$list_data}",list_data)
  tmp=Replace(tmp,"{$forum_online_num}",f_online)
  forum_main_body=tmp
end function


function forum_msg(frvar,tt)
  dim tmp1
  tmp1=vbcrlf&"<tr><td colspan=2 class=bg_td align=center height=200><font class=red><b>"&frvar&"</b></font></td></tr>"
  call forum_bar_top("",tmp1,tt)
end function

function forum_today_star()
dim temp1,zsjrs,zsjrsyyy
zsjrsyyy=1
'======今日论坛之星=====
if joekoe_cms.web_vt=1 then
sql="select top 4 username,count(username) from bbs_topic where datediff(dd,tim,Getdate())<1 group by username order by count(username) desc"
else
sql="select top 4 username,count(username) from bbs_topic where datediff('d',tim,#"&now&"#)<1 group by username order by count(username) desc"
end if
set zsjrs=joekoe_cms.exec(sql,1)
if not zsjrs.eof then
  temp1="<tr><td align=center width=25% bgcolor=#f7f7f7>"
  temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 冠 军</div></font>"
  temp1=temp1 & "<a href='../user/view.asp?username="&server.urlencode(zsjrs("username"))&"' target=_blank>"
  sql="select * from user_data where username='" & zsjrs("username") & "'"
  set rs=joekoe_cms.exec(sql,1)
  temp1=temp1 & "<img src='" & rs("face") & "' border=0 width='" & rs("face_w") & "' height='" & rs("face_h") & "'><br>"
  temp1=temp1 & rs("username") & "</a>"
  temp1=temp1 & "<br>今天发表的主题帖：" & zsjrs(1)
zsjrsyyy=zsjrs(1)
  temp1=temp1 & "</td>"
  zsjrs.movenext '已经确定有一个了，移动到下一人
  temp1=temp1 & "<td align=center width=25% bgcolor=#f7f7f7>"
  if not zsjrs.eof then '确定今天发了主题帖的至少有两个
  sql="select * from user_data where username='" & zsjrs("username") & "'"
  set rs=joekoe_cms.exec(sql,1)
if zsjrsyyy=zsjrs(1) then
 temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 冠 军</div></font>"
else
 temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 亚 军</div></font>"
end if
  temp1=temp1 & "<a href='../user/view.asp?username="&server.urlencode(zsjrs("username"))&"' target=_blank>"
  temp1=temp1 & "<img src='" & rs("face") & "' border=0 width='" & rs("face_w") & "' height='" & rs("face_h") & "'><br>"
  temp1=temp1 & rs("username") & "</a>"
  temp1=temp1 & "<br>今天发表的主题帖：" & zsjrs(1)
zsjrsyyy=zsjrs(1)
  zsjrs.movenext '已经确定有一个了，移动到下一人
  temp1=temp1 & "<td align=center width=25% bgcolor=#f7f7f7>"
  if not zsjrs.eof then '确定今天发了主题帖的至少有两个
  sql="select * from user_data where username='" & zsjrs("username") & "'"
  set rs=joekoe_cms.exec(sql,1)
if zsjrsyyy=zsjrs(1) then
 temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 亚 军</div></font>"
else
 temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 季 军</div></font>"
end if
  temp1=temp1 & "<a href='../user/view.asp?username="&server.urlencode(zsjrs("username"))&"' target=_blank>"
  temp1=temp1 & "<img src='" & rs("face") & "' border=0 width='" & rs("face_w") & "' height='" & rs("face_h") & "'><br>"
  temp1=temp1 & rs("username") & "</a>"
  temp1=temp1 & "<br>今天发表的主题帖：" & zsjrs(1)
zsjrsyyy=zsjrs(1)
  zsjrs.movenext '已经确定有一个了，移动到下一人
  temp1=temp1 & "<td align=center width=25% bgcolor=#f7f7f7>"
  if not zsjrs.eof then '确定今天发了主题帖的至少有两个
  sql="select * from user_data where username='" & zsjrs("username") & "'"
  set rs=joekoe_cms.exec(sql,1)
if zsjrsyyy=zsjrs(1) then
 temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 季 军</div></font>"
else
 temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 第4名</div></font>"
end if
  temp1=temp1 & "<a href='../user/view.asp?username="&server.urlencode(zsjrs("username"))&"' target=_blank>"
  temp1=temp1 & "<img src='" & rs("face") & "' border=0 width='" & rs("face_w") & "' height='" & rs("face_h") & "'><br>"
  temp1=temp1 & rs("username") & "</a>"
  temp1=temp1 & "<br>今天发表的主题帖：" & zsjrs(1)
  else '今天有发主题帖的只有一个
    temp1=temp1 & "发新帖抢占位置咯！"
  end if
  temp1=temp1 & "</td>"
  else '今天有发主题帖的只有一个
    temp1=temp1 & "发新帖抢占位置咯！<td align=center bgcolor=#f7f7f7>发新帖抢占位置咯！</td>"
  end if
  temp1=temp1 & "</td>"
  else '今天有发主题帖的只有一个
    temp1=temp1 & "发新帖抢占位置咯！<td align=center bgcolor=#f7f7f7>发新帖抢占位置咯！</td><td align=center bgcolor=#f7f7f7>发新帖抢占位置咯！</td>"
  end if
  temp1=temp1 & "</td></tr>"
else
  temp1="<tr><td align=center bgcolor=#f7f7f7>发新帖抢占位置咯！</td><td align=center bgcolor=#f7f7f7>发新帖抢占位置！</td><td align=center bgcolor=#f7f7f7>发新帖抢占位置咯！</td><td align=center bgcolor=#f7f7f7>发新帖抢占位置！</td></tr>"
end if 
  response.write vbcrlf & "<table cellspacing=1 cellpadding=4 class=bbs_table><tr><td class=bbs_td colspan=4>今日论坛之星</td></tr>"&temp1&"</table>"
zsjrs.close
end function

sub forum_song() 
%> 
<table cellspacing=1 cellpadding=4 class=bbs_table><tr><td class=bbs_td colspan=2>点歌祝福</td></tr>
<tr><td height=50 class=bg_td>
<div id=demo style=overflow:hidden;height:50;width:'600'>
<div id=demo1> 
<%  
dim UserName,Musicid,Name,data,musicname,content,ishidden,ismaster,issupermaster,rcount 
sql="select top 10 * from music_mail Order By id Desc" 
set rs=conn.execute(sqL)      
if rs.eof and rs.bof then 
%> 
当前没有点歌列表 
<%   
else 
%> 
<%rcount=0 
do while not rs.eof and rcount<8 
%> 
  <img src=../images/music/song.gif border=0>  <a href=../user/view.asp?username=<%=rs("s_user")%> target=_blank)><font color=#ff5050><b><%response.write joekoe_cms.code_html(rs("s_user"),1,10)%></b></font></a>  
为 
<font color=#0000ff><b><%response.write joekoe_cms.code_html(rs("r_user"),1,10)%></b></font>
 点了一首  
<a href='javascript:;' onclick=javascript:open_win('../music/pass.asp?id=<%=rs("m_id")%>','cz3000',310,253,'no');><font color=#996633><b><%response.write joekoe_cms.code_html(rs("m_name"),1,10)%></b></font></a> 并祝福说：<font color=#0000ff><%response.write joekoe_cms.code_html(rs("words"),1,30)%></font>&nbsp;&nbsp;<%response.write joekoe_cms.time_type(rs("tim"),1)%>
<br> 
<% 
rs.movenext 
rcount=rcount+1 
loop 
end if
rs.close 
%> 
</div> 
<div id=demo2></div> 
</div> 
<script> 
var speed=80 
demo2.innerHTML=demo1.innerHTML 
function Marquee(){ 
if(demo2.offsetTop-demo.scrollTop<=0) 
demo.scrollTop-=demo1.offsetHeight 
else{ 
demo.scrollTop++ 
} 
} 
var MyMar=setInterval(Marquee,speed) 
demo.onmouseover=function() {clearInterval(MyMar)} 
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)} 
</script> 
<td class=bg_td width=135 height=40><a href='../music/mail.asp'><img src='../images/music/dg_forum.jpg' align=absmiddle border=0 alt='查看点歌信息'></a></td>
</td></tr>
</table>
<%
end sub

sub main_center_forum(cl_type,cl_desc,cl_tnum,cl_cnum,cl_classid,cl_title)
dim tmp1,tmp_title,tmp_tit,tmp_count,tmp_img,tmp_record,tmp_table,tmp_where,tmp_url,tmp_color,tmp_b
tmp_title=cl_title
tmp_tit="论坛标题"
tmp_count="论坛回复"
tmp_img="forum"
tmp_table="bbs_topic"
tmp_record="id,topic,username,tim,re_counter,tcolor,tbb,forum_id"
tmp_where=cl_classid
if cl_type="" then
sql="select top "&getnum&" "&cl_tnum&" "&tmp_record&" from "&tmp_table&" where "&tmp_where&" order by "&cl_desc&" desc"
else
sql="select top "&getnum&" "&cl_tnum&" "&tmp_record&" from "&tmp_table&" where "&tmp_where&" and "&cl_type&" order by "&cl_desc&" desc"
end if
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
tmp_url="view.asp?forum_id="&rs(7)&"&view_id="&rs(0)
tmp_color=""
tmp_b=""
if var_null(rs(5))<>"" then tmp_color="style=""color:"&rs(5)&";"""
if rs(6)=true then tmp_b="<b>"
'tmp1=tmp1&format_topic_type(img_skin("h_"&tmp_img),rs(2),rs(1),cl_cnum,tmp_url,rs(3),rs(4),false,tmp_tit,tmp_count,0)
tmp1=tmp1&vbcrlf&"<tr><td height="&dim_num(6)&">"&img_skin("h_"&tmp_img)&"<a href='"&tmp_url&"' "&tmp_color&" alt='"&tmp_tit&"："&joekoe_cms.code_html(rs(1),1,0)&"<br>发 布 人："&rs(2)&"<br>"&tmp_count&"："&rs(4)&" 人次<br>整理时间："&rs(3)&"' target=_blank>"&joekoe_cms.code_html(rs(1),1,cl_cnum)&"</a></td></tr>"
'<tr><td height={$t_height}>{$t_jt}<a href='{$t_url}' {$target_blank} alt='{$t_tit}：{$t_topics}{$web_var_br}发 布 人：{$t_username}{$web_var_br}{$t_count}：{$t_counter} 人次{$web_var_br}整理时间：{$t_tim}'>{$t_topic}</a>{$t_img}{$t_tim_type}</td></tr>
rs.movenext
loop
rs.close
tmp1="<table border=0 cellspacing=0 cellpadding=0 width='100%'>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table border=0 width=100% cellspacing=1 cellpadding=4>" & _
vbcrlf&"<tr><td class=bbs_td colspan=2>"&tmp_title&"</td></tr>" & _
vbcrlf&"<tr><td class=bg_td>"&tmp1&"</td></tr>" & _
vbcrlf&"</table>"
end sub
%>
