config_forum.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="config.asp" -->
<!-- #include file="skin.asp" -->
<%
'论坛事件-------开始---------
dim forum_mode,forum_table1,forum_table2,forum_table3,forum_table4,ptnums,ffk
'论坛事件-------结束---------
dim classid,classname,forumf,forumn,forumw,forumid,viewid,forumname,forumpower,forumtype,forumtopicnum,forumdatanum,forumreadonly,forumpro,word_size,word_remark,color,bb      '后台论坛主题加色和加粗的变量定义(color,bb)
forum_table1=format_table(1,3)
forum_table2=format_table(5,2)
forum_table3=format_table(3,5)
forum_table4=format_table(3,1)
forumid=trim(request.querystring("forum_id"))
viewid=trim(request.querystring("view_id"))
ffk="fk4"
index_url="forum"
tit_fir=format_menu(index_url)
ptnums=web_var_num(web_setup,6,1)

'-------------------------------------初始化 1--------------------------------------
sub forum_first()
  sql="select bbs_class.class_name,bbs_forum.class_id,bbs_forum.forum_f,bbs_forum.forum_n,bbs_forum.forum_w,bbs_forum.forum_name,bbs_forum.forum_power,bbs_forum.forum_topic_num,bbs_forum.forum_data_num,bbs_forum.forum_type,bbs_forum.forum_pro " & _
      "from bbs_class inner join bbs_forum on bbs_forum.class_id=bbs_class.class_id where bbs_forum.forum_id="&forumid&" and bbs_forum.forum_hidden=0"
'--------------------------------------------------------------------------
  set rs=conn.execute(sql)
  if rs.eof and rs.bof then
    rs.close:set rs=nothing
    call close_conn()
    call cookies_type("forum_id")
  end if
  classid=rs("class_id"):classname=rs("class_name")
  forumf=int(rs("forum_f")):forumn=int(rs("forum_n")):forumw=rs("forum_w")
  forumname=rs("forum_name"):forumpower=rs("forum_power")
  forumtopicnum=rs("forum_topic_num"):forumdatanum=rs("forum_data_num")
  forumtype=rs("forum_type"):forumpro=rs("forum_pro")
  rs.close
  if not(isnumeric(forumpro)) then forumpro=0
  page_power=format_forum_type(forumtype,0,forumpro)
  
end sub
'-------------------------------------论坛导航--------------------------------------
sub forum_grade()
  dim sql,rs,fo
  call forum_grade_board(forumf,fo)
response.write ukong&"<table border=1 width='98%' cellspacing=1 cellpadding=1 bordercolor="&web_var(web_color,3)&">" & _
		 vbcrlf&"<tr><td height=25><table border=0 width='100%' "&forum_table3& "><tr><td width='100%' class=bw>"&img_small(ffk)&"&nbsp;&nbsp;<a href='forum.asp'>"&tit_fir&"</a>&nbsp;→&nbsp;<font class=gray>"&code_html(classname,1,0)&"</font>"&fo&"&nbsp;→&nbsp;<a href='forum_list.asp?forum_id="&forumid&"'>"&code_html(forumname,1,0)&"</a></td></tr></table></td></tr>" & _
		 vbcrlf&"</table>"
end sub

sub forum_grade_board(fid,fo)
  if int(fid)<1 then exit sub
  dim sql,rs,f_f,fname:f_f=0
  sql="select forum_f,forum_name from bbs_forum where forum_id="&fid
  set rs=conn.execute(sql)
  if not(rs.eof and rs.bof) then f_f=int(rs(0)):fname=rs(1)
  rs.close:set rs=nothing
  fo="&nbsp;→&nbsp;<a href='forum_list.asp?forum_id="&fid&"'>"&code_html(fname,1,0)&"</a>"&fo
  if int(f_f)>0 then call forum_grade_board(f_f,fo)
end sub

'-------------------------------------论坛标头--------------------------------------
function forum_top(ft)
  forum_top=vbcrlf & "<table border=0 width=760>" & _
     vbcrlf & "<tr height=30>" & _
     vbcrlf & "<td>"
if forumreadonly=0 then
  forum_top=forum_top& vbcrlf & "<a href='forum_write.asp?forum_id="&forumid&"'><img src='images/"&web_var(web_config,5)&"/new_topic.gif' align=absMiddle border=0 title='在 "&forumname&" 里发表新贴子'></a>" &_
	               vbcrlf & "<a href='forum_write.asp?forum_id="&forumid&"&poll=yes'><img src='images/"&web_var(web_config,5)&"/new_poll.gif' align=absMiddle border=0 title='在 "&forumname&" 里发表我的投票'></a>" &_
                       vbcrlf & "<a href='xzb_write.asp?forum_id="&forumid&"&xzb=yes'><img src='images/"&web_var(web_config,5)&"/xzb_poll.gif' align=absMiddle border=0 title='在 "&forumname&" 里发表小字报'></a>&nbsp;"&ft&"</td>"
else
 if format_power(login_mode,0)="admin" then
forum_top=forum_top& vbcrlf & "<a href='forum_write.asp?forum_id="&forumid&"'><img src='images/"&web_var(web_config,5)&"/new_topic.gif' align=absMiddle border=0 title='在 "&forumname&" 里发表新贴子'></a>" &_ 
	               vbcrlf & "<a href='forum_write.asp?forum_id="&forumid&"&poll=yes'><img src='images/"&web_var(web_config,5)&"/new_poll.gif' align=absMiddle border=0 title='在 "&forumname&" 里发表我的投票'></a>" &_
                       vbcrlf & "<a href='xzb_write.asp?forum_id="&forumid&"&xzb=yes'><img src='images/"&web_var(web_config,5)&"/xzb_poll.gif' align=absMiddle border=0 title='在 "&forumname&" 里发表小字报'></a>&nbsp;"&ft&"</td>"
 else
forum_top=forum_top& vbcrlf & "<b><font class=red>[ 本论坛为只读论坛 ]</font></b>&nbsp;&nbsp;"&ft&"</td>"
 end if
end if
  forum_top=forum_top& vbcrlf & "<td>&nbsp;" & _

	    vbcrlf & "<td align=right>"&forum_power(forumpower,ptnums)&"&nbsp;" & _
	    vbcrlf & "<font class=gray>[<a href='forum_list.asp?forum_id="&forumid&"&action=isgood'>精华</a>]&nbsp;" & _
	    vbcrlf & "[<a href='forum_even.asp?forum_id="&forumid&"'>事件</a>]&nbsp;" & _
	    vbcrlf & "[<a href='forum_list.asp?forum_id="&forumid&"&action=manage'>管理</a>]</font></td>" & _
	    vbcrlf & "</tr></table>"
		
end function

'-------------------------------------数据生成--------------------------------------
sub forum_word()
  word_size=web_var(web_num,6)
  word_remark=web_var(web_error,3)&"<br>长度<="&word_size&"KB"
end sub

'-------------------------------------论坛版主--------------------------------------
function forum_power(forum_admin,ft)
  dim forumadmin,k
  forum_power="<img src='images/small/forum_power.gif' title='论坛版主' align=absmiddle border=0>&nbsp;"
  if ft=0 then forum_power=forum_power&"<select onchange=""if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}""><option>本版版主</option><option>--------</option>"
  if forum_admin<>"" and not isnull(forum_admin) then
    forumadmin=split(forum_admin, "|")
    for k=0 to ubound(forumadmin)
      if ft=0 then
        forum_power=forum_power&"<option value='user_view.asp?username=" & server.urlencode(forumadmin(k)) & "'>"&forumadmin(k)&"</option>"
      else
        forum_power=forum_power & "<a href='user_view.asp?username=" & server.urlencode(forumadmin(k)) & "' title='查看（版主）" & forumadmin(k) & " 的详细资料' target=_blank>" & forumadmin(k) & "</a>&nbsp;"
      end if
    next
    erase forumadmin
  else
    if ft=0 then
      forum_power=forum_power&"<option>还没呢</option>"
    else
      forum_power=forum_power & "<font class=gray>还没呢&nbsp;</font>"
    end if
  end if
  if ft=0 then forum_power=forum_power&"</select>"
end function

'-------------------------------------论坛等级--------------------------------------
function format_forum_type(fvars,ft,fpros)
  if isnumeric(fpros) and int(ft)=1 then
    if int(fpros)=1 then format_forum_type="只读论坛":exit function
  end if
  dim fdim,fvar:fvar=fvars-1:format_forum_type=""
  fdim=split(forum_type,"|")
  for i=0 to ubound(fdim)
    if int(ft)=0 then
      if fvar=i then format_forum_type=left(fdim(i),instr(fdim(i),":")-1):exit for
    else
      if fvar=i then format_forum_type=right(fdim(i),len(fdim(i))-instr(fdim(i),":")):exit for
    end if
  next
  erase fdim
end function
'-----------------------------------主题转移操作------------------------------------
sub forum_moved(fid,vid)
  if not(isnumeric(fid)) or not(isnumeric(vid)) or (login_mode<>format_power2(1,1) and login_mode<>format_power2(2,1)) then response.write "<script language=javascript>alert(""转移主题失败：\n\n可能是您进行了不适合的操作！"");</script>":exit sub
'论坛事件-------开始---------
  dim frs,fsql,ip,fmt,fmu,topic,username
topic=trim(request.querystring("topic"))
username=trim(request.querystring("username"))
'论坛事件-------结束---------
  fsql="select forum_id from bbs_topic where id="&vid
  set frs=conn.execute(fsql)
  if frs.eof and frs.bof then
    frs.close:set frs=nothing:close_conn
    call cookies_type("view_id"):exit sub
  end if
  frs.close:set frs=nothing
  fsql="update bbs_topic set forum_id="&fid&" where id="&vid
  conn.execute(fsql)
  fsql="update bbs_data set forum_id="&fid&" where reply_id="&vid
  conn.execute(fsql)
'论坛事件-------开始---------
ip=Request.ServerVariables("REMOTE_ADDR")
fsql="insert into log (l_announceid,l_boardid,l_touser,l_username,l_content,l_ip) values ("&vid&","&fid&",'"&username&"','"&login_username&"','转移贴子《"&topic&"》，分值操作：没有','"&ip&"')"
  conn.execute(fsql)
'论坛事件-------结束---------
  response.write "<script language=javascript>alert(""转移主题成功！"");</script>"
end sub

'-------------------------------------主题转移--------------------------------------

function forum_move(fmfid,fmid,fmt,fmu)
  dim rsclass,strsqlclass,rsboard,strsqlboard,fid,fb,cid
  forum_move=vbcrlf & "<select onchange=""if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}"">" & _
	   vbcrlf & "<option selected>将此主题转移至...</option>"
  strsqlclass="select class_id,class_name from bbs_class order by class_order"
  set rsclass=conn.execute(strsqlclass)
  if not(rsclass.bof and rsclass.eof) then
    do while not rsclass.eof
      cid=rsclass("class_id")
      call forum_move_board(cid,0,fmfid,fmid,0,fb)
      forum_move=forum_move & vbcrlf & "<option class=bg_2>╋ "& rsclass("class_name") &"</option>"
      forum_move=forum_move & fb
      fb=""
      rsclass.movenext
    loop
  end if
  set rsclass=nothing:set rsboard=nothing
  forum_move=forum_move & vbcrlf & "</select>"
end function

sub forum_move_board(cid,fid,fmfid,fmid,ff,fo)
  dim rsboard,strsqlboard,forumid,forumname,fi,foo,fmt,fmu,topic,username
  topic=trim(request.querystring("topic"))
  username=trim(request.querystring("username"))
  strsqlboard="select forum_id,forum_name,forum_power,forum_hidden from bbs_forum where forum_hidden=0 and forum_f="&fid&" and class_id=" & cid & " order by forum_order"
  set rsboard=conn.execute(strsqlboard)
  if rsboard.eof and rsboard.bof then
    rsboard.close:set rsboard=nothing
    exit sub
  end if
  do while not rsboard.eof
    forumid=rsboard("forum_id"):forumname=rsboard("forum_name")
    foo=vbcrlf & "<option"
    if int(forumid)<>int(fmfid) then  foo=foo&" value='forum_list.asp?action=move&view_id="&fmid&"&forum_id=" &forumid& "&topic="&fmt&"&username="&fmu&"'"
    foo=foo&">"
    for fi=0 to ff
      if fi=ff then
        foo=foo&"├"
      else
        foo=foo&"│"
      end if
    next
    foo=foo&forumname & "</option>"");"
    fo=fo&foo
    call forum_move_board(cid,forumid,fmfid,fmid,ff+1,fo)
    rsboard.movenext
  loop
  rsboard.close:set rsboard=nothing
end sub

'-------------------------------------论坛跳转--------------------------------------
sub forum_go_board(cid,fid,ff,fo)
  dim rsboard,strsqlboard,forumid,forumname,fi,foo
  strsqlboard="select forum_id,forum_name,forum_power,forum_hidden from bbs_forum where forum_f="&fid&" and class_id=" & cid & " order by forum_order"
  set rsboard=conn.execute(strsqlboard)
  if rsboard.eof and rsboard.bof then
    rsboard.close:set rsboard=nothing
    exit sub
  end if
  do while not rsboard.eof
    forumid=rsboard("forum_id"):forumname=rsboard("forum_name")
    foo=vbcrlf&"document.write (""<option value='forum_list.asp?forum_id=" &forumid& "'>"
    for fi=0 to ff
      if fi=ff then
        foo=foo&"├"
      else
        foo=foo&"│"
      end if
    next
    foo=foo&forumname & "</option>"");"
    fo=fo&foo
    call forum_go_board(cid,forumid,ff+1,fo)
    rsboard.movenext
  loop
  rsboard.close:set rsboard=nothing