admin_boardset.asp

功能强大的一个b/s工作站

</tr>
<tr> 
<td width="50%" class=tablebody1> <U>总论坛允许同时在线数</U><BR>如不想限制，可设置为0</td>
<td width="50%" class=tablebody1>  
<input type="text" name="Forum_Setting(26)" size="6" value="<%=Forum_Setting(26)%>">&nbsp;人
</td>
</tr>
<tr> 
<th height=25 colspan=2 align=left id=tabletitlelink><a name="setting13"></a><b>邮件选项</b>[<a href="#top">顶部</a>]</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>发送邮件组件</U><BR>如果您的服务器不支持下列组件，请选择不支持</td>
<td width="50%" class=tablebody1>  
<select name="Forum_Setting(2)">
<option value="0" <%if Forum_Setting(2)=0 then%>selected<%end if%>>不支持 
<option value="1" <%if Forum_Setting(2)=1 then%>selected<%end if%>>JMAIL 
<option value="2" <%if Forum_Setting(2)=2 then%>selected<%end if%>>CDONTS 
<option value="3" <%if Forum_Setting(2)=3 then%>selected<%end if%>>ASPEMAIL 
</select>
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>SMTP Server地址</U><BR>只有在论坛使用设置中打开了发送邮件功能，该填写内容方有效</td>
<td width="50%" class=tablebody1>  
<input type="text" name="SMTPServer" size="35" value="<%=Forum_info(4)%>">
</td>
</tr>
<tr> 
<th height=25 colspan=2 align=left id=tabletitlelink><a name="setting14"></a><b>上传设置</b>[<a href="#top">顶部</a>]</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>头像上传</U></td>
<td width="50%" class=tablebody1> 
<input type=radio name="Forum_Setting(7)" value=0 <%if Forum_Setting(7)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Forum_Setting(7)" value=1 <%if Forum_Setting(7)=1 then%>checked<%end if%>>打开&nbsp;
</td>
</tr>
<tr> 
<td class=tablebody1 width="50%"><U>允许的最大头像文件大小</U></td>
<td class=tablebody1 width="50%"> 
<input type="text" name="forum_setting(56)" size="6" value="<%=forum_setting(56)%>">&nbsp;K
</td>
</tr>
<tr> 
<th height=25 colspan=2 align=left id=tabletitlelink><a name="setting15"></a><b>用户选项</b>[<a href="#top">顶部</a>]</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>允许个人签名</U></td>
<td width="50%" class=tablebody1>  
<input type=radio name="forum_setting(42)" value=0 <%if forum_setting(42)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="forum_setting(42)" value=1 <%if forum_setting(42)=1 then%>checked<%end if%>>打开&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>允许用户使用头像</U></td>
<td width="50%" class=tablebody1>  
<input type=radio name="forum_setting(53)" value=0 <%if forum_setting(53)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="forum_setting(53)" value=1 <%if forum_setting(53)=1 then%>checked<%end if%>>打开&nbsp;
</td>
</tr>
<tr> 
<td class=tablebody1 width="50%"><U>最大头像尺寸</U><BR>定义内容为头像的最大高度和宽度</td>
<td class=tablebody1 width="50%"> 
<input type="text" name="forum_setting(57)" size="6" value="<%=forum_setting(57)%>">&nbsp;象素
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>默认头像宽度</U><BR>定义内容为论坛头像的默认宽度</td>
<td width="50%" class=tablebody1>  
<input type="text" name="forum_setting(38)" size="6" value="<%=forum_setting(38)%>">&nbsp;象素
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>默认头像高度</U><BR>定义内容为论坛头像的默认宽度</td>
<td width="50%" class=tablebody1>  
<input type="text" name="forum_setting(39)" size="6" value="<%=forum_setting(39)%>">&nbsp;象素
</td>
</tr>
<tr> 
<td class=tablebody1 width="50%"><U>使用自定义头像的最少发帖数</U></td>
<td class=tablebody1 width="50%"> 
<input type="text" name="forum_setting(54)" size="6" value="<%=forum_setting(54)%>">&nbsp;篇
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>允许从其他站点上传头像</U><BR>就是是否可以直接使用http..这样的url来直接显示头像</td>
<td width="50%" class=tablebody1>  
<input type=radio name="forum_setting(55)" value=0 <%if forum_setting(55)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="forum_setting(55)" value=1 <%if forum_setting(55)=1 then%>checked<%end if%>>打开&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>用户签名是否开启UBB代码</U></td>
<td width="50%" class=tablebody1>  
<input type=radio name="Forum_Setting(65)" value=0 <%if Forum_Setting(65)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Forum_Setting(65)" value=1 <%if Forum_Setting(65)=1 then%>checked<%end if%>>打开&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>用户签名是否开启HTML代码</U></td>
<td width="50%" class=tablebody1>  
<input type=radio name="Forum_Setting(66)" value=0 <%if Forum_Setting(66)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Forum_Setting(66)" value=1 <%if Forum_Setting(66)=1 then%>checked<%end if%>>打开&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>用户是否开启贴图标签</U><BR>包括图片、flash、多媒体等</td>
<td width="50%" class=tablebody1>  
<input type=radio name="Forum_Setting(67)" value=0 <%if Forum_Setting(67)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Forum_Setting(67)" value=1 <%if Forum_Setting(67)=1 then%>checked<%end if%>>打开&nbsp;
</td>
</tr>
<tr> 
<td class=tablebody1 width="50%"><U>用户排行列表个数</U></td>
<td class=tablebody1 width="50%"> 
<input type="text" name="Forum_Setting(68)" size="6" value="<%=Forum_Setting(68)%>">&nbsp;个
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>用户头衔</U><BR>是否允许用户自定义头衔</td>
<td width="50%" class=tablebody1>  
<input type=radio name="Forum_Setting(6)" value=0 <%if cint(Forum_Setting(6))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Forum_Setting(6)" value=1 <%if cint(Forum_Setting(6))=1 then%>checked<%end if%>>打开&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>用户头衔最大长度</U></td>
<td width="50%" class=tablebody1>  
<input type="text" name="forum_setting(59)" size="6" value="<%=forum_setting(59)%>">&nbsp;byte
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>自定义头衔最少发帖数量限制</U><BR>不做限制请设置为0</td>
<td width="50%" class=tablebody1>  
<input type="text" name="forum_setting(60)" size="6" value="<%=forum_setting(60)%>">&nbsp;篇
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>自定义头衔注册天数限制</U><BR>不做限制请设置为0</td>
<td width="50%" class=tablebody1>  
<input type="text" name="forum_setting(61)" size="6" value="<%=forum_setting(61)%>">&nbsp;天
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>自定义头衔上面两个条件加在一起限制</U></td>
<td width="50%" class=tablebody1>  
<input type=radio name="Forum_Setting(62)" value=0 <%if cint(Forum_Setting(62))=0 then%>checked<%end if%>>否&nbsp;
<input type=radio name="Forum_Setting(62)" value=1 <%if cint(Forum_Setting(62))=1 then%>checked<%end if%>>是&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>自定义头衔中要屏蔽的词语</U><BR>每个限制字符用“|”符号隔开</td>
<td width="50%" class=tablebody1>  
<input type="text" name="forum_setting(63)" size="50" value="<%=forum_setting(63)%>">
</td>
</tr>
<tr> 
<th height=25 colspan=2 align=left id=tabletitlelink><a name="setting17"></a><b>防刷新机制</b>[<a href="#top">顶部</a>]</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>防刷新机制</U><BR>如选择打开请填写下面的限制刷新时间<BR>对版主和管理员无效</td>
<td width="50%" class=tablebody1>  
<input type=radio name="Forum_Setting(19)" value=0 <%if cint(Forum_Setting(19))=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="Forum_Setting(19)" value=1 <%if cint(Forum_Setting(19))=1 then%>checked<%end if%>>打开&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>浏览刷新时间间隔</U><BR>填写该项目请确认您打开了防刷新机制<BR>仅对帖子列表和显示帖子页面起作用</td>
<td width="50%" class=tablebody1>  
<input type="text" name="Forum_Setting(20)" size="3" value="<%=Forum_Setting(20)%>">&nbsp;秒
</td>
</tr>
<tr> 
<th height=25 colspan=2 align=left id=tabletitlelink><a name="setting18"></a><b>论坛分页设置</b>[<a href="#top">顶部</a>]</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>每页显示最多纪录</U><BR>用于论坛所有和分页有关的项目（帖子列表和浏览帖子除外）</td>
<td width="50%" class=tablebody1>  
<input type="text" name="Forum_Setting(11)" size="3" value="<%=Forum_Setting(11)%>">&nbsp;条
</td>
</tr>
<tr> 
<th height=25 colspan=2 align=left id=tabletitlelink><a name="setting16"></a><b>帖子选项</b>[<a href="#top">顶部</a>]</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>作为热门话题的最低人气值</U><BR>标准为主题回复数</td>
<td width="50%" class=tablebody1>  
<input type="text" name="forum_setting(44)" size="3" value="<%=forum_setting(44)%>">&nbsp;条
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>编辑过的帖子显示"由xxx于yyy编辑"的信息</U></td>
<td width="50%" class=tablebody1>  
<input type=radio name="forum_setting(48)" value=0 <%if cint(forum_setting(48))=0 then%>checked<%end if%>>否&nbsp;
<input type=radio name="forum_setting(48)" value=1 <%if cint(forum_setting(48))=1 then%>checked<%end if%>>是&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>管理员编辑后显示"由XXX编辑"的信息</U></td>
<td width="50%" class=tablebody1>  
<input type=radio name="forum_setting(49)" value=0 <%if cint(forum_setting(49))=0 then%>checked<%end if%>>否&nbsp;
<input type=radio name="forum_setting(49)" value=1 <%if cint(forum_setting(49))=1 then%>checked<%end if%>>是&nbsp;
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>等待"由XXX编辑"信息显示的时间</U><BR>允许用户编辑自己的帖子而不在帖子底部显示"由XXX编辑"信息的时限(以分钟为单位)</td>
<td width="50%" class=tablebody1>  
<input type="text" name="forum_setting(50)" size="3" value="<%=forum_setting(50)%>">&nbsp;分钟
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>编辑帖子时限</U><BR>编辑处理帖子的时间限制(以分钟为单位, 1天是1440分钟) 超过这个时间限制, 只有管理员和版主才能编辑和删除帖子. 如果不想使用这项功能, 请设置为0</td>
<td width="50%" class=tablebody1>  
<input type="text" name="forum_setting(51)" size="3" value="<%=forum_setting(51)%>">&nbsp;分钟
</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>是否起用记录帖子阅读用户功能</U><BR>只有用户发言时选择记录阅读该贴用户方生效<BR>开启本功能将消耗部分系统资源<BR>发贴用户、管理员和版主可看到该贴阅读用户列表</td>
<td width="50%" class=tablebody1>  
<input type=radio name="forum_setting(3)" value=0 <%if cint(forum_setting(3))=0 then%>checked<%end if%>>否&nbsp;
<input type=radio name="forum_setting(3)" value=1 <%if cint(forum_setting(3))=1 then%>checked<%end if%>>是&nbsp;
</td>
</tr>
<tr> 
<th height=25 colspan=2 align=left id=tabletitlelink><a name="setting19"></a><b>门派设置</b>[<a href="#top">顶部</a>]</td>
</tr>
<tr> 
<td width="50%" class=tablebody1> <U>是否开启论坛门派</U></td>
<td width="50%" class=tablebody1>  
<input type=radio name="Forum_Setting(32)" value=0 <%if cint(Forum_Setting(32))=0 then%>checked<%end if%>>否&nbsp;
<input type=radio name="Forum_Setting(32)" value=1 <%if cint(Forum_Setting(32))=1 then%>checked<%end if%>>是&nbsp;
</td>
</tr>
<tr bgcolor=<%=Forum_body(3)%>> 
<td width="50%" class=Tablebody1> &nbsp;</td>
<td width="50%" class=Tablebody1>  
<div align="center"> 
<input type="submit" name="Submit" value="提 交">
</div>
</td>
</tr>
</table>
</form>
<%
end if
end sub

'====================保存设置===================
sub savebmset()
dim chkedit
dim master_1
dim Forum_copyright
chkedit=false
set rs=conn.execute("select boardmaster from board where boardid="&request("boardid"))
if rs.eof and rs.bof then
Errmsg=Errmsg+"<br>"+"<li>您没有指定相应论坛ID，不能进行管理。"
call dvbbs_error()
exit sub
end if
if isnull(rs(0)) then
Errmsg=Errmsg+"<br>"+"<li>本论坛还未有管理员。"
call dvbbs_error()
exit sub
end if
master_1=split(rs(0),"|")
if Board_Setting(35)=1 then
chkedit=true
else
	if Board_Setting(34)=0 then
	chkedit=false
	elseif Board_Setting(34)=1 and membername=master_1(0) then
	chkedit=true
	else
	chkedit=false
	end if
end if
if master then
chkedit=true
end if
dim Forum_setting
if chkedit=false then
	Errmsg=Errmsg+"<br>"+"<li>本项功能为主版主专用。 "
	call dvbbs_error()
else
Forum_Setting=request.Form("Forum_Setting(0)") & "," & request.Form("Forum_Setting(1)") & "," & request.Form("Forum_Setting(2)") & "," & request.Form("Forum_Setting(3)") & "," & request.Form("Forum_Setting(4)") & "," & request.Form("Forum_Setting(5)") & "," & request.Form("Forum_Setting(6)") & "," & request.Form("Forum_Setting(7)") & "," & request.Form("Forum_Setting(8)") & "," & request.Form("Forum_Setting(9)") & "," & request.Form("Forum_Setting(10)") & "," & request.Form("Forum_Setting(11)") & "," & request.Form("Forum_Setting(12)") & "," & request.Form("Forum_Setting(13)") & "," & request.Form("Forum_Setting(14)") & "," & request.Form("Forum_Setting(15)") & "," & request.Form("Forum_Setting(16)") & "," & request.Form("Forum_Setting(17)") & "," & request.Form("Forum_Setting(18)") & "," & request.Form("Forum_Setting(19)") & "," & request.Form("Forum_Setting(20)") & "," & request.Form("Forum_Setting(21)") & "," & request.Form("Forum_Setting(22)") & "," & request.Form("Forum_Setting(23)") & "," & request.Form("Forum_Setting(24)") & "," & request.Form("Forum_Setting(25)") & "," & request.Form("Forum_Setting(26)") & "," & request.Form("Forum_Setting(27)") & "," & request.Form("Forum_Setting(28)") & "," & request.Form("Forum_Setting(29)") & "," & request.Form("Forum_Setting(30)") & "," & request.Form("Forum_Setting(31)") & "," & request.Form("Forum_Setting(32)") & "," & request.Form("Forum_Setting(33)") & "," & request.Form("Forum_Setting(34)") & "," & request.Form("Forum_Setting(35)") & "," & request.Form("Forum_Setting(36)") & "," & request.Form("Forum_Setting(37)") & "," & request.Form("Forum_Setting(38)") & "," & request.Form("Forum_Setting(39)") & "," & request.Form("Forum_Setting(40)") & "," & request.Form("Forum_Setting(41)") & "," & request.Form("Forum_Setting(42)") & "," & request.Form("Forum_Setting(43)") & "," & request.Form("Forum_Setting(44)") & "," & request.Form("Forum_Setting(45)") & "," & request.Form("Forum_Setting(46)") & "," & request.Form("Forum_Setting(47)") & "," & request.Form("Forum_Setting(48)") & "," & request.Form("Forum_Setting(49)") & "," & request.Form("Forum_Setting(50)") & "," & request.Form("Forum_Setting(51)") & "," & request.Form("Forum_Setting(52)") & "," & request.Form("Forum_Setting(53)") & "," & request.Form("Forum_Setting(54)") & "," & request.Form("Forum_Setting(55)") & "," & request.Form("Forum_Setting(56)") & "," & request.Form("Forum_Setting(57)") & "," & request.Form("Forum_Setting(58)") & "," & request.Form("Forum_Setting(59)") & "," & request.Form("Forum_Setting(60)") & "," & request.Form("Forum_Setting(61)") & "," & request.Form("Forum_Setting(62)") & "," & request.Form("Forum_Setting(63)") & "," & request.Form("Forum_Setting(64)") & "," & request.Form("Forum_Setting(65)") & "," & request.Form("Forum_Setting(66)") & "," & request.Form("Forum_Setting(67)") & "," & request.Form("Forum_Setting(68)") & "," & request.Form("Forum_Setting(69)") & "," & request.Form("Forum_Setting(70)") & "," & request.Form("Forum_Setting(71)") & "," & request.Form("Forum_Setting(72)")


Forum_info=Request("ForumName") & "," & Request("ForumURL") & "," & Request("CompanyName") & "," & Request("HostUrl") & "," & Request("SMTPServer") & "," & Request("SystemEmail") & "," & Request("Logo") & "," & Request("Picurl") & "," & Request("Faceurl") & "," & Request("GMT") & "," & Request("emoturl") & "," & Request("userfaceurl")
Forum_copyright=request("copyright")
'response.write forum_setting
'response.end
sql="update config set Forum_Setting='"&Forum_Setting&"',StopReadme='"&request.Form("StopReadme")&"',Forum_info='"&Forum_info&"',Forum_copyright='"&Forum_copyright&"' where id="&skinid
conn.execute(sql)
response.write "设置成功。"
end if
end sub

sub editbmcolor()
dim master_1,chkedit
set rs=conn.execute("select boardmaster from board where boardid="&request("boardid"))
if rs.eof and rs.bof then
Errmsg=Errmsg+"<br>"+"<li>您没有指定相应论坛ID，不能进行管理。"
call dvbbs_error()
exit sub
end if
if isnull(rs(0)) then
Errmsg=Errmsg+"<br>"+"<li>本论坛还未有管理员。"
call dvbbs_error()
exit sub
end if
master_1=split(rs(0),"|")
if Board_Setting(35)=1 then
chkedit=true
else
	if Board_Setting(34)=0 then
	chkedit=false
	elseif Board_Setting(34)=1 and membername=master_1(0) then
	chkedit=true
	else
	chkedit=false
	end if
end if
if master then
chkedit=true