仿 3.0 的论坛样式！

sub forum_istops()
  if var_null(application(joekoe_cms.web_cookies&"_forum_istops_state"))<>"" then
    exit sub
  end if
  sql="select id,forum_id,username,topic,tcolor,tbb,icon,tim,istop,isgood,isvote,counter,re_counter,re_username,re_tim,vote_num from bbs_topic where istop=2 order by re_tim desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if not rs.eof then
    application.lock
    application(joekoe_cms.web_cookies&"_forum_istops_state")="yes"
    application(joekoe_cms.web_cookies&"_forum_istops")=forum_get_istop(rs.getrows())
    application.unlock
  else
    application.lock
    application(joekoe_cms.web_cookies&"_forum_istops_state")="kong"
    application(joekoe_cms.web_cookies&"_forum_istops")=""
    application.unlock
  end if
  rs.close
end sub

function forum_get_istop(ttdim)
  if not isarray(ttdim) then
    forum_get_istop=""
    exit function
  end if
  dim ttnum,tbb,topic,temp1
  ttnum=ubound(ttdim,2)
  for i=0 to ttnum
    tbb=1
    if ttdim(5,i)=false then
      tbb=0
    end if
    topic=joekoe_cms.code_html(ttdim(3,i),1,0)
    isvote=0
    if ttdim(10,i) then
      isvote=1
    end if
    temp1=temp1&vbcrlf&forum_list_body_istop(ttdim(0,i),ttdim(1,i),ttdim(2,i),topic,ttdim(4,i),tbb,ttdim(6,i),ttdim(7,i),ttdim(8,i),ttdim(9,i),isvote,ttdim(11,i),ttdim(12,i),ttdim(13,i),ttdim(14,i),ttdim(15,i))
  next
  erase ttdim
  forum_get_istop=temp1
end function

sub forum_list_istop()
  page=trim(request.querystring("page"))
  if not(isnumeric(page)) then page=1
  if int(page)>1 or action="manage" then exit sub
  dim istop_true,forum_istop_var
  istop_true=false
  forum_istop_var=application(joekoe_cms.web_cookies&"_forum_istop_"&forumid)
  if application(joekoe_cms.web_cookies&"_forum_istops_state")="yes" or var_null(forum_istop_var)<>"" then istop_true=true
  if instr(application(joekoe_cms.web_cookies&"_forum_istop_state"),","&forumid&",")=0 or var_null(application(joekoe_cms.web_cookies&"_forum_istop_state_"&forumid))="" or var_null(forum_istop_var)="" then
    sql="select id,forum_id,username,topic,tcolor,tbb,icon,tim,istop,isgood,isvote,counter,re_counter,re_username,re_tim,vote_num from bbs_topic where forum_id="&forumid&" and istop=1 order by re_tim desc"
    call joekoe_cms.exec(sql,-1)
    rs.open sql,conn,1,1
    application.lock
    if not rs.eof then
      application(joekoe_cms.web_cookies&"_forum_istop_state_"&forumid)="yes"
      application(joekoe_cms.web_cookies&"_forum_istop_"&forumid)=forum_get_istop(rs.getrows())
      istop_true=true
    else
      application(joekoe_cms.web_cookies&"_forum_istop_state_"&forumid)="kong"
      application(joekoe_cms.web_cookies&"_forum_istop_"&forumid)=""
    end if
    application(joekoe_cms.web_cookies&"_forum_istop_state")=application(joekoe_cms.web_cookies&"_forum_istop_state")&","&forumid&","
    application.unlock
    rs.close
    forum_istop_var=application(joekoe_cms.web_cookies&"_forum_istop_"&forumid)
  end if
  if istop_true then response.write vbcrlf&forum_list_istop_top()
  if application(joekoe_cms.web_cookies&"_forum_istops_state")="yes" then response.write application(joekoe_cms.web_cookies&"_forum_istops")
  if var_null(forum_istop_var)<>"" then  response.write forum_istop_var
  if istop_true then
    response.write vbcrlf&forum_list_istop_end()
    call web_branch(0)
  end if
end sub

'Record 修改段落↓ 修改过
function forum_list_istop_top()
  dim temp1
temp1=temp1&vbcrlf&"<table cellspacing=1 cellpadding=1 class=table1>" & _
              vbcrlf&"<tr align=center>" & _
              vbcrlf&"<td width=25 class=td1>图</td>" & _
              vbcrlf&"<td width=25 class=td1>例</td>" & _
              vbcrlf&"<td width=* class=td1>主题</td>" & _
              vbcrlf&"<td width=80 class=td1>发布人</td>" & _
              vbcrlf&"<td width=40 class=td1>回复</td>" & _
              vbcrlf&"<td width=40 class=td1>浏览</td>" & _
              vbcrlf&"<td width=160 class=td1>最后回复信息</td>" & _
              vbcrlf&"</tr>"
  forum_list_istop_top=temp1
end function

'Record 修改段落↓ 修改过
function forum_list_body_istop(l_id,l_forum_id,l_username,l_topic,l_tcolor,l_tbb,l_icon,l_tim,l_istop,l_isgood,l_isvote,l_counter,l_re_counter,l_re_username,l_re_tim,l_vote_num)
  dim temp1,l_istop_var,new_win,folder_istop,topic_head,topic_color,topic_bb
...........省略 头换成你的

'Record 修改段落↓ 修改过
function forum_list_top(l_nummer)
  dim temp1
  if page="1" then
  temp1=temp1&vbcrlf&"<table cellspacing=1 cellpadding=1 class=table2>"
  else
  temp1=temp1&vbcrlf&forum_list_istop_top()
  end if
  if action="manage" then temp1=temp1&vbcrlf&"<form name=del_frm action='forum_isaction.asp' method=get>"
  forum_list_top=temp1
end function