config_forum.asp

这是一个师姐请我做的英语爱好者的毕业设计 已经通过东北大学的毕业答辩 有论文数据库结构分析等全套 已经是可以直接用的毕业设计!

<!-- #include file="config.asp" -->
<!-- #include file="skin.asp" -->
<%

dim forum_mode,forum_table1,forum_table2,forum_table3,forum_table4,ptnums,ffk
dim forumid,viewid,forumname,forumpower,forumtype,forumtopicnum,forumdatanum,word_size,word_remark
forum_table1=format_table(1,3)
forum_table2=format_table(3,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 forum_name,forum_power,forum_topic_num,forum_data_num,forum_type " & _
      "from bbs_forum where forum_id="&forumid&" and 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
  forumname=rs("forum_name"):forumpower=rs("forum_power")
  forumtopicnum=rs("forum_topic_num"):forumdatanum=rs("forum_data_num"):forumtype=rs("forum_type")
  rs.close
  page_power=format_forum_type(forumtype,0)
end sub

'-------------------------------------论坛标头--------------------------------------
function forum_top(ft)
  forum_top=vbcrlf & "<table border=0 width=760 class=fr>" & _
	    vbcrlf & "<tr height=30>" & _
	    vbcrlf & "<td><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>&nbsp;&nbsp;" & _
	    vbcrlf & "<a href='forum_list.asp?forum_id="&forumid&"'><b>"&forumname&"</b></a> &nbsp;- &nbsp;"&ft&"</td>" & _
	    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_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)
  dim fdim,fvar:fvar=fvars-1:format_forum_type=""
  fdim=split(forum_type,"|")
  for i=0 to ubound(fdim)
    if 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) then response.write "<script language=javascript>alert(""转移主题失败：\n\n可能是您进行了不适合的操作！"");</script>":exit sub
  dim frs,fsql
  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)
  response.write "<script language=javascript>alert(""转移主题成功！"");</script>"
end sub

'-------------------------------------主题转移--------------------------------------
function forum_move(fmfid,fmid)
  dim rsclass,strsqlclass,rsboard,strsqlboard,fid
  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
      forum_move=forum_move & vbcrlf & "<option class=bg_2>╋ "& rsclass("class_name") &"</option>"
      strsqlboard="select forum_id,forum_name from bbs_forum where class_id=" & rsclass("class_id") & " and forum_hidden=0 order by forum_order"
      set rsboard=conn.execute(strsqlboard)
      if rsboard.eof and rsboard.bof then
        forum_move=forum_move & vbcrlf & "<option>没有论坛</option>"
      else
        do while not rsboard.eof
          fid=rsboard("forum_id")
          forum_move=forum_move & vbcrlf & "<option"
          if int(fid)<>int(fmfid) then  forum_move=forum_move&" value='forum_list.asp?action=move&view_id="&fmid&"&forum_id=" &fid& "'"
          forum_move=forum_move&">　├" & rsboard("forum_name") & "</option>"
	  rsboard.movenext
        loop
      end if
      rsclass.movenext
    loop
  end if
  set rsclass=nothing:set rsboard=nothing
  forum_move=forum_move & vbcrlf & "</select>"
end function

'-------------------------------------论坛跳转--------------------------------------
function forum_go()
  dim rsclass,strsqlclass,rsboard,strsqlboard
  forum_go=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
      forum_go=forum_go & vbcrlf & "<option class=bg_2>╋ "& rsclass("class_name") &"</option>"
      strsqlboard="select forum_id,forum_name from bbs_forum where class_id=" & rsclass("class_id") & " and forum_hidden=0 order by forum_order"
      set rsboard=conn.execute(strsqlboard)
      if rsboard.eof and rsboard.bof then
        forum_go=forum_go & vbcrlf & "<option>没有论坛</option>"
      else
        do while not rsboard.eof
          forum_go=forum_go & vbcrlf & "<option value='forum_list.asp?forum_id=" &rsboard("forum_id")& "'>　├" & rsboard("forum_name") & "</option>"
	  rsboard.movenext
        loop
      end if
      rsclass.movenext
    loop
  end if
  set rsclass=nothing:set rsboard=nothing
  forum_go=forum_go & vbcrlf & "<option class=bg_2>————————</option>" & _
	   vbcrlf & "<option value='forum.asp' class=bg_1>"&tit_fir&"首页</option>" & _
	   vbcrlf & "<option class=bg_2>————————</option>" & _
	   vbcrlf & "<option value='forum_action.asp?action=new'>　♀ 论坛新贴</option>" & _
	   vbcrlf & "<option value='forum_action.asp?action=tim'>　♀ 回复新贴</option>" & _
	   vbcrlf & "<option value='user_action.asp?action=list'>　♀ 用户列表</option>" & _
	   vbcrlf & "<option value='help.asp?action=forum'>　♀ 论坛帮助</option>" & _
	   vbcrlf & "</select>"
end function

'-------------------------------------主题分页--------------------------------------
function index_pagecute(viewurl,replynum,pagecutenum,pagecutecolor)
  dim pagecutepage,pagecutei
  index_pagecute=""
  if replynum mod pagecutenum > 0 then
    pagecutepage=replynum\pagecutenum+1
  else
    pagecutepage=replynum\pagecutenum
  end if
  if pagecutepage>1 then
    for pagecutei=2 to 3
      if pagecutei>pagecutepage then exit for
      index_pagecute=index_pagecute & vbcrlf & "<a href='" & viewurl & "&page=" & pagecutei & "'><font color='" & pagecutecolor & "' title='第 " & pagecutei & " 页'>[" & pagecutei & "]</font></a>"
    next
    if pagecutepage>3 then
      if pagecutepage=4 then
        index_pagecute=index_pagecute & vbcrlf & "<a href='" & viewurl & "&page=4'><font color='" & pagecutecolor & "' title='第 4 页'>[4]</font></a>"
      else
        index_pagecute=index_pagecute & vbcrlf & "<font color='" & pagecutecolor & "'>… </font>" & "<a href='" & viewurl & "&page=" & pagecutepage & "'><font color='" & pagecutecolor & "' title='第 " & pagecutepage & " 页'>[" & pagecutepage & "]</font></a>"
      end if
    end if
  end if
  if len(index_pagecute)>1 then index_pagecute="<img src='images/small/page_head.gif' align=absMiddle alt='快速分页' border=0>"&index_pagecute
end function

'---------------------------------------main----------------------------------------
sub forum_down(dt)
  dim udim,ui,j,dts,sql,rs,l_username,forum_table4,online
  online=trim(request.querystring("online"))
  j=5:dts=0:forum_table4=format_table(3,1)
  if forum_mode="full" then j=8
  if online="open" or dt=1 then dts=1
  if online="close" then dts=0
  response.write forum_table1
%>
<tr<%response.write forum_table2%>><td>&nbsp;<%response.write img_small("fk4") %>&nbsp;<font class=end><b>论坛图例</b></font></td></tr>
<tr<%response.write forum_table4%>><td align=center height=30><% response.write ip_sys(0,0) %></td></tr>
<tr<%response.write forum_table4%>><td align=center height=30><%response.write user_power_type(0)%></td></tr>
<tr<%response.write forum_table4%>><td align=center>
  <table border=0 width='98%'>
  <tr><td colspan=5>网站当前用户在线：<font class=red><%
sql="select count(l_id) from user_login where l_type=0"
set rs=conn.execute(sql)
response.write rs(0)
rs.close
response.write "</font> 人  [ <a href='?mode="&forum_mode&"&online="
if dts=0 then
  response.write "open'>打开"
else
  response.write "close'>关闭"
end if
%>在线列表</a> ] </td></tr>
<%if dts<>0 then%>
  <tr><td width='20%'></td><td width='20%'></td><td width='20%'></td><td width='20%'></td><td width='20%'></td></tr>
<%
  sql="select user_login.*,user_data.power from user_data inner join user_login on user_login.l_username=user_data.username where user_login.l_type=0 order by user_login.l_id"
  set rs=conn.execute(sql)
  do while not rs.eof