admin_forum.asp

一个asp写的论坛源代码,论坛所需要的功能都有

        <span class="a3">注意: 选择“是”将不屏蔽帖子中的任何代码，将带来严重的安全隐患，请慎用</span></td>
      <td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(5)" value="1" <%If Board_Setting(5)=1 Then%>checked<%End If%>>
        是
        <input type="radio" name="Board_Setting(5)" value="0" <%If Board_Setting(5)=0 Then%>checked<%End If%>>
        否</td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>允许使用 UBB 代码:</b><br>
        <span class="a3">UBB 代码是一种简化和安全的页面格式代码，可 <a href="../Help.asp?page=mise#1" target="_blank">点击这里查看本论坛提供的UBB代码</a></span></td>
      <td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(6)" value="1" <%If Board_Setting(6)=1 Then%>checked<%End If%>>
        是
        <input type="radio" name="Board_Setting(6)" value="0" <%If Board_Setting(6)=0 Then%>checked<%End If%>>
        否</td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>启用内容干扰码:</b><br>
        <span class="a3">选择“是”将在帖子内容中增加随机的干扰字串，使得访问者无法复制原始内容。注意: 本功能会轻微加重服务器负担</span></td>
      <td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(7)" value="1" <%If Board_Setting(7)=1 Then%>checked<%End If%>>
        是
        <input type="radio" name="Board_Setting(7)" value="0" <%If Board_Setting(7)=0 Then%>checked<%End If%>>
        否</td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>允许匿名发贴:</b><br>
        <span class="a3">是否允许用户在本版匿名发表主题和回复，只要用户组或本论坛允许，用户均可使用匿名发帖功能。匿名发帖不同于游客发帖，用户需要登录后才可使用，版主和管理员可以查看真实作者</span></td>
      <td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(8)" value="1" <%If Board_Setting(8)=1 Then%>checked<%End If%>>
        是
        <input type="radio" name="Board_Setting(8)" value="0" <%If Board_Setting(8)=0 Then%>checked<%End If%>>
        否</td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>主题自动关闭:</b><br>
        <span class="a3">设置本论坛主题是否在某时间后自动关闭，禁止普通用户回复</span></td>
      <td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(9)" value="0" <%If Board_Setting(9)=0 Then%>checked<%End If%>>
        不自动关闭<br>
        <input type="radio" name="Board_Setting(9)" value="1" <%If Board_Setting(9)=1 Then%>checked<%End If%>>
        按发布时间自动关闭<br>
        <input type="radio" name="Board_Setting(9)" value="2" <%If Board_Setting(9)=2 Then%>checked<%End If%>>
        按最后回复时间自动关闭 </td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>自动关闭时间(天):</b><br>
        <span class="a3">本设定必须在“主题自动关闭”功能打开时才生效，主题依据自动关闭的设定: 在发表后若干天、或被最后回复后若干天被自动转入关闭状态，从而使普通用户无法回复</span></td>
      <td bgcolor="#FFFFFF"><input type="text" size="30" value="<%=Board_Setting(10)%>" name="Board_Setting(10)" disabled></td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>本论坛允许附件类型:</b><br>
        <span class="a3">设置本论坛中允许上传的附件扩展名，多个扩展名之间用竖号 "," 分割。本设置的优先级高于用户组，留空为按照系统默认允许的附件类型设定</span></td>
      <td bgcolor="#FFFFFF"><input type="text" size="30" name="Board_Setting(11)" value="<%=Board_Setting(11)%>"></td>
    </tr>
  </table>
  <br>
  <center><input type="submit" name="detailsubmit" value="提 交"><br>
  <br>
  <a name="积分设置"></a>
  <table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
    <tr class="a1">
      <td colspan="2">积分设置</td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>自定义发主题增加积分:</b><br>
        <span class="a3">设置本论坛是否使用独立的发新主题积分规则。选择“是”，用户在本论坛发主题时，积分将按照如下设置增减，请在下面表格中输入各项积分增减数值；选择“否”，积分将按全论坛默认设定的规则增减</span></td>
      <td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(12)" value="1" <%If Board_Setting(12)=1 Then%>checked<%End If%>>
        是
        <input type="radio" name="Board_Setting(12)" value="0" <%If Board_Setting(12)=0 Then%>checked<%End If%>>
        否</td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>自定义发回复增加积分:</b><br>
        <span class="a3">设置本论坛是否使用独立的发新回复积分规则。选择“是”，用户在本论坛发回复时，积分将按照如下设置增减，请在下面表格中输入各项积分增减数值；选择“否”，积分将按全论坛默认设定的规则增减</span></td>
      <td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(13)" value="1" <%If Board_Setting(13)=1 Then%>checked<%End If%>>
        是
        <input type="radio" name="Board_Setting(13)" value="0" <%If Board_Setting(13)=0 Then%>checked<%End If%>>
        否</td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>自定义精华贴增加积分:</b><br>
        <span class="a3">设置本论坛是否使用独立的发新回复积分规则。选择“是”，用户帖子被加入精华时，积分将按照如下设置增减，请在下面表格中输入各项积分增减数值；选择“否”，积分将按全论坛默认设定的规则增减</span></td>
      <td bgcolor="#FFFFFF">
		<input type="radio" name="Board_Setting(3)" value="1" <%If Board_Setting(3)=1 Then%>checked<%End If%>>
        是
        <input type="radio" name="Board_Setting(3)" value="0" <%If Board_Setting(3)=0 Then%>checked<%End If%>>
        否</td>
    </tr>
    <tr>
      <td colspan="2" bgcolor="#F8F8F8"><table cellspacing="1" cellpadding="4" width="100%" align="center" class="a2">
          <tr align="center" class="a1">
            <td>积分代号</td>
            <td>积分名称</td>
            <td>发主题(+)</td>
            <td>回复(+)</td>
			<td>加精华(+)</td>
          </tr>
          <% 
	Dim ExtCredits,U,ExtSort,Board_Up,My_ExtSort,MY_ExtCredits,Mydisabled
	ExtCredits= Split(team.Club_Class(21),"|")
	MY_ExtCredits=Split(Board_Setting(14),"|")
	For U=0 to Ubound(ExtCredits)
		ExtSort=Split(ExtCredits(U),",")
		My_ExtSort=Split(MY_ExtCredits(U),",")
		If ExtSort(3)=1 then
			Mydisabled =""
		Else
			Mydisabled = "disabled"
		End If
	%>
          <tr align="center" <%=Mydisabled%>>
            <td bgcolor="#F8F8F8">ExtCredits<%=U+1%></td>
            <td bgcolor="#FFFFFF"><%=ExtSort(0)%></td>
            <td bgcolor="#F8F8F8"><input type="text" size="2" name="ExtCredits<%=U%>_0" value="<%=My_ExtSort(0)%>"></td>
            <td bgcolor="#FFFFFF"><input type="text" size="2" name="ExtCredits<%=U%>_1" value="<%=My_ExtSort(1)%>"></td>
			<td bgcolor="#FFFFFF"><input type="text" size="2" name="ExtCredits<%=U%>_2" value="<%=My_ExtSort(2)%>"></td>
          </tr>
          <%
	Next
	%>
        </table></td>
    </tr>
  </table>
  <br>
  <center><input type="submit" name="detailsubmit" value="提 交"><br>
  <br>
  <a name="主题分类"></a>
  <table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
    <tr class="a1">
      <td colspan="2">主题分类</td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>启用主题分类:</b><br>
        <span class="a3">设置是否在本论坛启用主题分类功能，您需要同时设定相应的分类选项，才能启用本功能</span></td>
      <td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(15)" value="1" <%If Board_Setting(15)=1 Then%>checked<%End If%>>
        是
        <input type="radio" name="Board_Setting(15)" value="0" <%If Board_Setting(15)=0 Then%>checked<%End If%>>
        否</td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>发帖必须归类:</b><br>
        <span class="a3">如果选择“是”，作者发新主题时，必须选择主题对应的类别才能发表。本功能必须“启用主题分类”后才可使用 </span></td>
      <td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(16)" value="1" <%If Board_Setting(16)=1 Then%>checked<%End If%>>
        是
        <input type="radio" name="Board_Setting(16)" value="0" <%If Board_Setting(16)=0 Then%>checked<%End If%>>
        否</td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>允许按类别浏览:</b><br>
        <span class="a3">如果选择“是”，用户将可以在本论坛中按照不同的类别浏览主题。注意: 本功能必须“启用主题分类”后才可使用并会加重服务器负担</span></td>
      <td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(17)" value="1" <%If Board_Setting(17)=1 Then%>checked<%End If%>>
        是
        <input type="radio" name="Board_Setting(17)" value="0" <%If Board_Setting(17)=0 Then%>checked<%End If%>>
        否</td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>类别前缀:</b><br>
        <span class="a3">设置是否在主题列表中，给已分类的主题前加上类别的显示。注意: 本功能必须“启用主题分类”后才可使用</span></td>
      <td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(18)" value="1" <%If Board_Setting(18)=1 Then%>checked<%End If%>>
        是
        <input type="radio" name="Board_Setting(18)" value="0" <%If Board_Setting(18)=0 Then%>checked<%End If%>>
        否</td>
    </tr>
    <tr>
      <td width="60%" bgcolor="#F8F8F8" ><b>类别选项:</b><br>
        <span class="a3">请填写期望在本论坛中使用的类别选项，用户发表主题或浏览时，将可按照选中的类别归类或浏览，每个类别一行 。注意: 本功能必须“启用主题分类”后才可使用。</span></td>
      <td bgcolor="#FFFFFF"><textarea rows="5" name="Board_Setting(19)" cols="30" style="height:70;overflow-y:visible;"><%=Board_Setting(19)%></textarea></td>
    </tr>
  </table>
  <br>
  <center><input type="submit" name="detailsubmit" value="提 交"><br>
  <br>
  <a name="论坛权限"></a>
  <table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
    <tr class="a1">
      <td colspan="2">论坛权限 - 全不选则按照默认设置</td>
    </tr>
    <tr>
      <td width="15%" bgcolor="#F8F8F8" valign="top"><b>访问密码:</b></td>
      <td bgcolor="#FFFFFF"><input type="text" size="30" name="Pass" value="<%=RS("Pass")%>"></td>
    </tr>
    <tr>
      <td colspan="2" class="a4" height="2"></td>
    </tr>
    <tr>
      <td width="15%" bgcolor="#F8F8F8" valign="top"><b>浏览论坛许可:</b><br>
        <span>默认为全部具有浏览论坛帖子权限的用户组<br>
        <input type="checkbox" name="chkall1" onClick="checkall(this.form, 'lookperm', 'chkall1')">
        全选</span></td>
      <td bgcolor="#FFFFFF">
	  <table cellspacing="0" cellpadding="0" border="0" width="100%" align="center">
	  <tr>
		<% 
		Dim Gs,Value,i,m
		Set Gs = team.execute("Select ID,MemberRank,GroupName From "&IsForum&"UserGroup Where Not (ID=7 or ID=6 or ID=5) Order By GroupRank Desc")
		If Gs.Eof or Gs.Bof Then
			SuccessMsg " 用户权限表数据损坏,请手动导入新表! "
		Else
			Value = Gs.GetRows(-1)
		End If
		Gs.Close:Set Gs=Nothing

		'bbsname,Board_Setting,Hide,Pass,Icon,Ismaster,Readme,Board_Key,Board_URL,Lookperm,Postperm,DownPerm,Upperm
		If Instr(RS(9),",")>0 Then B_Lookperm = Split(RS(9),",")
		If Instr(RS(10),",")>0 Then B_Postperm = Split(RS(10),",")
		If Instr(RS(11),",")>0 Then B_DownPerm = Split(RS(11),",")
		If Instr(RS(12),",")>0 Then B_Upperm = Split(RS(12),",")
		If Isarray(Value) Then
			U=0
			For i=0 To Ubound(Value,2)	
				U = U+1
				response.write "<td><input type=""checkbox"" name=""lookperm"" value="&Replace(Value(0,i)," ","")&" "
				If Isarray(B_Lookperm) Then
					for m = 0 to Ubound(B_Lookperm)-1
						If Cid(Trim(B_Lookperm(m))) = int(Value(0,i)) Then response.write "checked"
					next
				end if
				response.write "  >"&Value(2,i)&"</td> "
				If U= 4 Then 
					Echo "</tr><tr>"
					U=0
				End If
			Next
		End If
		%>
        </table>
		</td>
    </tr><tr>
      <td colspan="2" class="a4" height="2"></td>
    </tr>
    <tr>
      <td width="15%" bgcolor="#F8F8F8" valign="top"><b>发新话题许可:</b><br>
        <span>默认为除游客组以外具有发帖权限的用户组<br>
        <input type="checkbox" name="chkall2" onClick="checkall(this.form, 'postperm', 'chkall2')">
        全选</span></td>
      <td bgcolor="#FFFFFF">
	  <table cellspacing="0" cellpadding="0" border="0" width="100%" align="center">
          <tr><%
        If Isarray(Value) Then
			U=0
			For i=0 To Ubound(Value,2)	
				U = U+1
				Echo "<td><input type=""checkbox"" name=""postperm"" value="&Value(0,i)&" "
				If Isarray(B_Postperm) Then
					for m = 0 to Ubound(B_Postperm)-1
						If Cid(Trim(B_Postperm(m))) = cid(Value(0,i)) Then Echo "checked"
					next
				end if
				Echo "  >"&Value(2,i)&"</td> "
				If U= 4 Then 
					Echo "</tr><tr>"
					U=0
				End If
			Next
		End If
		%>
        </table></td>
    </tr>
	<tr>
      <td colspan="2" class="a4" height="2"></td>
    </tr>
    <tr>
      <td width="15%" bgcolor="#F8F8F8" valign="top"><b>下载/查看附件许可:</b><br>
        <span>默认为全部具有下载/查看附件权限的用户组<br>
        <input type="checkbox" name="chkall4" onClick="checkall(this.form, 'downperm', 'chkall4')">
        全选</span></td>
      <td bgcolor="#FFFFFF">
		  <table cellspacing="0" cellpadding="0" border="0" width="100%" align="center">
          <tr><%
        If Isarray(Value) Then
			U=0
			For i=0 To Ubound(Value,2)	
				U = U+1
				Echo "<td><input type=""checkbox"" name=""downperm"" value="&Value(0,i)&" "
				If Isarray(B_DownPerm) Then
					for m = 0 to Ubound(B_DownPerm)-1
						If Cid(Trim(B_DownPerm(m))) = Cid(Value(0,i)) Then Echo "checked"
					next
				end if
				Echo "  >"&Value(2,i)&"</td> "				
				If U= 4 Then 
					Echo "</tr><tr>"
					U=0
				End If
			Next
		End If
		%>
        </table></td>
    </tr>
	<tr>
      <td colspan="2" class="a4" height="2"></td>
    </tr>
    <tr>
      <td width="15%" bgcolor="#F8F8F8" valign="top"><b>上传附件许可:</b><br>
        <span>默认为除游客以外具有上传附件权限的用户组<br>
        <input type="checkbox" name="chkall5" onClick="checkall(this.form, 'upperm', 'chkall5')">
        全选</span></td>
      <td bgcolor="#FFFFFF">