setting.asp

公司企业网站管理系统全站源码,用于企业内部对网站的管理

<!--#include file =../conn.asp-->
<!-- #include file="inc/const.asp" -->
<%	
Head()
Dim admin_flag,rs_c
admin_flag=",1,"
CheckAdmin(admin_flag)
If request("action")="save" Then
	Call saveconst()
ElseIf request("action")="restore" Then
	Call restore()
Else
	Call consted()
end if
Footer()

Sub consted()
Dim  sel
%>
<iframe width="260" height="165" id="colourPalette" src="../images/post/nc_selcolor.htm" style="visibility:hidden; position: absolute; left: 0px; top: 0px;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
<table border="0" cellspacing="1" cellpadding="3"  align="center" width="100%">
<form method="POST" action="setting.asp?action=save" name="theform">
<tr> 
<th width="100%" colspan="3" style="text-align:center;">论坛基本设置（目前只提供一种设置)
</th></tr>
<tr> 
<td width="100%" colspan=3>
<a href="#setting3">[基本信息]</a>&nbsp;<a href="#setting21">[论坛系统数据设置]</a>&nbsp;<a href="#setting6">[悄悄话选项]</a>&nbsp;<a href="#setting7">[论坛首页选项]</a>&nbsp;<a href="#setting8">[用户与注册选项]</a>&nbsp;<a href="#setting10">[系统设置]</a>&nbsp;<a href="#setting12">[在线和用户来源]</a>
</td>
</tr>
<tr> 
<td width="100%" colspan="3">
<a href="#setting13">[邮件选项]</a>&nbsp;<a href="#setting14">[上传设置]</a>&nbsp;<a href="#setting15">[用户选项(签名、头衔、排行等)]</a>&nbsp;<a href="#setting16">[帖子选项]</a>&nbsp;<a href="#setting17">[防刷新机制]</a>&nbsp;<a href="#setting18">[论坛分页设置]</a>
</td>
</tr>
<tr> 
<td width="100%" colspan="3">
<a href="#setting20">[搜索选项]</a>&nbsp;<a href="#settingxu">[<font color=blue>官方插件设置</font>]</a>&nbsp;<a href="#admin">[<font color=red>安全设置</font>]</a>&nbsp;<a href="challenge.asp">[<font color=blue>RSS/WAP/手机短信/在线支付</font>]</a>
<a href="#SettingVIP">[VIP用户组设置]</a>
</td>
</tr>
<tr> 
<td width="93%" colspan="2">
如果您的论坛的设置搞乱了，可以使用<a href="?action=restore"><B>还原论坛默认设置</B></a>
</td>
<input type="hidden" id="forum_return" value="<b>还原论坛默认设置:</b><br><li>如果您把论坛设置搞乱了，可以点击还原论坛默认设置进行还原操作。<br><li>使用此操作将使您原来的设置无效而还原到论坛的默认设置，请确认您做了论坛备份或者记得还原后该做哪些针对您论坛所需要的设置">
<td><a href=# onclick="helpscript(forum_return);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td width="50%">
<U>论坛默认使用风格</U></td>
<td width="43%">
<%
	Dim forum_sid,iforum_setting,stopreadme,forum_pack,iCssName,iCssID,iStyleName
	Dim rs,Style_Option,css_Option,Forum_cid,TempOption,i
	set rs=dvbbs.execute("select forum_sid,forum_setting,forum_pack,forum_cid from dv_setup")
	Forum_sid=rs(0)
	Forum_pack=Split(rs(2),"|||")
	Iforum_setting=split(rs(1),"|||")
	Forum_cid=rs(3)
	Rs.close:Set Rs=Nothing
	stopreadme=iforum_setting(5)
%>
<Select Size=1 Name="sid">
<%
Dim Templateslist
For Each Templateslist in Application(Dvbbs.CacheName &"_style").documentElement.selectNodes("style")
	Response.Write "<Option value="""& Templateslist.selectSingleNode("@id").text &""""
	If Forum_sid = CLng(Templateslist.selectSingleNode("@id").text) Then Response.Write " selected "
	Response.Write ">"& Templateslist.selectSingleNode("@stylename").text &" </Option>"
Next
%>
</Select>Css样式:<Select Size=1 Name="cid">
<%
For Each Templateslist in Application(Dvbbs.CacheName & "_csslist").documentElement.selectNodes("css")
	Response.Write "<Option value="""& Templateslist.selectSingleNode("@id").text &""""
	If Forum_cid = CLng(Templateslist.selectSingleNode("@id").text)  Then Response.Write " selected "
	Response.Write ">"& Templateslist.selectSingleNode("@type").text &" </Option>"
Next
%>
</Select>
</td>
<input type="hidden" id="forum_skin" value="<b>论坛默认使用风格:</b><br><li>在这里您可以选择您论坛的默认使用风格。<br><li>如果想改变论坛风格请到论坛风格模板管理中进行相关设置">
<td><a href=# onclick="helpscript(forum_skin);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td class="td2"><U>论坛当前状态</U><BR>维护期间可设置关闭论坛</td>
<td class="td2"> 
<input type=radio name="forum_setting(21)" value=0 <%if Dvbbs.forum_setting(21)="0" then%>checked<%end if%> class="radio">打开&nbsp;
<input type=radio name="forum_setting(21)" value=1 <%if Dvbbs.forum_setting(21)="1" then%>checked<%end if%> class="radio">关闭&nbsp;
</td>
<input type="hidden" id="forum_open" value="<b>论坛当前状态:</b><br><li>如果您需要做更改程序、更新数据或者转移站点等需要暂时关闭论坛的操作，可在此处选择关闭论坛。<br><li>关闭论坛后，可直接使用论坛地址＋login.asp登录论坛，然后使用论坛地址＋admin_login.asp登录后台管理进行打开论坛的操作">
<td class="td2"><a href=# onclick="helpscript(forum_open);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td><U>维护说明</U><BR>在论坛关闭情况下显示，支持html语法</td>
<td> 
<textarea name="StopReadme" cols="50" rows="3" ID="TDStopReadme"><%=Stopreadme%></textarea><br><a href="javascript:admin_Size(-3,'TDStopReadme')"><img src="skins/images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'TDStopReadme')"><img src="skins/images/plus.gif" unselectable="on" border='0'></a>
</td>
<input type="hidden" id="forum_opens" value="<b>论坛维护说明:</b><br><li>如果您在论坛当前状态中关闭了论坛，请在此输入维护说明，他将显示在论坛的前台给会员浏览，告知论坛关闭的原因，在这里可以使用HTML语法。">
<td><a href=# onclick="helpscript(forum_opens);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td class="td2">
<U>论坛定时设置</U></td>
<td class="td2"> 
<input type=radio name="forum_setting(69)" value="0" <%If Dvbbs.forum_setting(69)="0" Then %>checked <%End If%> class="radio">关 闭</option>
<input type=radio name="forum_setting(69)" value="1" <%If Dvbbs.forum_setting(69)="1" Then %>checked <%End If%> class="radio">定时关闭
<input type=radio name="forum_setting(69)" value="2" <%If Dvbbs.forum_setting(69)="2" Then %>checked <%End If%> class="radio">定时只读
</td>
<input type="hidden" id="forum_isopentime" value="<b>定时设置选择:</b><br><li>在这里您可以设置是否起用定时的各种功能，如果开启了本功能，请设置好下面选项中的论坛设置时间。<br><li>如果在非开放时间内需要更改本设置，可直接使用论坛地址＋login.asp登录论坛，然后使用论坛地址＋admin_login.asp登录后台管理进行打开论坛的操作">
<td class="td2"><a href=# onclick="helpscript(forum_isopentime);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td>
<U>定时设置</U><BR>请根据需要选择开或关</td>
<td> 
<%
Dvbbs.forum_setting(70)=split(Dvbbs.forum_setting(70),"|")
If UBound(Dvbbs.forum_setting(70))<2 Then 
	Dvbbs.forum_setting(70)="1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1"
	Dvbbs.forum_setting(70)=split(Dvbbs.forum_setting(70),"|")
End If
For i= 0 to UBound(Dvbbs.forum_setting(70))
If i<10 Then Response.Write "&nbsp;"
%>
  <%=i%>点：<input type="checkbox" name="forum_setting(70)<%=i%>" value="1" <%If Dvbbs.forum_setting(70)(i)="1" Then %>checked<%End If%> class="checkbox">开
 <%
 If (i+1) mod 4 = 0 Then Response.Write "<br>"
 Next
 %>
</td>
<input type="hidden" id="forum_opentime" value="<b>论坛开放时间:</b><br><li>设置本选项请确认您打开了定时开放论坛功能。<br><li>本设置以小时为单位，请务必按规定正确填写<br><li>如果在非开放时间内需要更改本设置，可直接使用论坛地址＋login.asp登录论坛，然后使用论坛地址＋admin_login.asp登录后台管理进行打开论坛的操作">
<td><a href=# onclick="helpscript(forum_opentime);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
</table><a name="admin"></a><BR>
<table border="0" cellspacing="1" cellpadding="3" align="center" width="100%">
<tr> 
<th width="100%" colspan="3" align="Left" id="tabletitlelink"><b>安全设置</b>[<a href="#top">顶部</a>]
</th></tr>
<tr> 
<td class="td1" width="50%">
<U>后台管理目录的设定</U><br>缺省目录为admin为安全起见，不让其他人知道目录，请修改</td>
<td class="td1" width="43%"> 
<input type="text" name="Forum_AdminFolder" size="35" value="<%=Dvbbs.CacheData(33,0)%>"><br><BR><b>注意：</b>目录名称后面要有"/"，如"admin/"
<input type="hidden" id="AdminFolder" value="<b>后台管理目录的设定:</b><br><li>在FTP上修改您的论坛的管理,目录名称。(缺省目录为admin)<br><li>然后重新修改管理目录,管理员登录后台后就可以自动被引导到您设定的目录.<br><li>除管理员外,其他人无法知道管理的地址.">
</td>
<td class="td1"><a href=# onclick="helpscript(AdminFolder);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td class="td2" width="50%">
<U>是否禁止代理服务器访问</U><BR>禁止代理服务器访问能避免恶意的CC攻击，但开放后影响站点排名，建议在受到明显的攻击的时候开启</td>
<td class="td2" width="43%"> 
<input type="radio" name="forum_setting(100)" value="0" <%if Dvbbs.forum_setting(100)="0" then%>checked<%end if%> class="radio">否&nbsp;
<input type="radio" name="forum_setting(100)" value="1" <%if Dvbbs.forum_setting(100)="1" then%>checked<%end if%> class="radio">是&nbsp;
</td>
<input type="hidden" id="killcc" value="<b>是否禁止代理服务器访问:</b><br><li>禁止代理服务器访问能避免恶意的CC攻击，但开放后影响站点排名，建议在受到明显的攻击的时候开启，平时则关闭。">
<td class="td2"><a href=# onclick="helpscript(killcc);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td class="td1" width="50%">
<U>限制同一IP连接数为</U><BR>限制同一IP连接数，可以减少恶意的CC攻击的影响，但会造成用户访问不便，建议设置为0关闭此功能，在受到攻击的时候才开放</td>
<td class="td1" width="43%"> 
<% Dim IP_MAX_value
If UBound(Dvbbs.forum_setting) > 101 Then
	IP_MAX_value=Dvbbs.forum_setting(101)
Else
	IP_MAX_value=0
End If
%>
<input type="text" name="forum_setting(101)" size="5" value="<%=IP_MAX_value%>">
</td>
<input type="hidden" id="IP_MAX" value="<b>限制同一IP连接数:</b><br><li>限制同一IP连接数，可以减少恶意的CC攻击的影响，但会造成用户访问不便，建议设置为0关闭此功能，在受到攻击的时候才开放，平时则关闭。">
<td class="td1"><a href=# onclick="helpscript(IP_MAX);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
</table><BR>
<table border="0" cellspacing="1" cellpadding="3" align="center" width="100%">
<tr> 
<th width="100%" colspan="3">动网官方自动通讯设置
</th></tr>
<tr> 
<td class="td1" width="50%">
<U>是否起用动网官方自动通讯系统</U><BR>开启后可在论坛后台收到动网官方最新通知以及直接参与官方讨论区讨论和发贴</td>
<td class="td1" width="43%"> 
<input type=radio name="forum_pack(0)" value=0 <%if cint(forum_pack(0))=0 then%>checked<%end if%> class="radio">否&nbsp;
<input type=radio name="forum_pack(0)" value=1 <%if cint(forum_pack(0))=1 then%>checked<%end if%> class="radio">是&nbsp;
</td>
<input type="hidden" id="forum_pack1" value="<b>是否起用动网自动更新通知系统:</b><br><li>开启后管理后台顶部会提示动网的最新程序、补丁、通知等。">
<td class="td1"><a href=# onclick="helpscript(forum_pack1);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td class="td2">
<U>开启通讯系统用户名与密码</U><BR>用户名与密码用符号“|||”分开<BR>用户名和密码请到 <a href="http://bbs.dvbbs.net/Union_GetUserInfo.asp" target=_blank><font color=blue>动网官方</font></a> 获取</td>
<td class="td2">
<%
If UBound(forum_pack)<2 Then ReDim forum_pack(3)
%>
<input type=text size=21 name="forum_pack(1)" value="<%=forum_pack(1)%>|||<%=forum_pack(2)%>">
</td>
<input type="hidden" id="forum_pack2" value="<b>开启通知系统用户名与密码:</b><br><li>如要开启通知系统，请您先到动网官方论坛注册一个用户名并在动网官方通知系统里取得密码，并填写于此栏即可开启。">
<td class="td2"><a href=# onclick="helpscript(forum_pack2);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
</table><BR>
<table border="0" cellspacing="1" cellpadding="3" align="center" width="100%">
<tr> 
<th height=25 colspan=2 align=left id=tabletitlelink><a name="setting3"></a><b>论坛基本信息</b>[<a href="#top">顶部</a>]</th>
</tr>
<tr> 
<td width="50%" class="td1"> <U>论坛名称</U></td>
<td width="50%" class="td1">  
<input type="text" name="Forum_info(0)" size="35" value="<%=Dvbbs.Forum_info(0)%>">
</td>
</tr>
<tr> 
<td width="50%" class="td2"> <U>论坛的访问地址</U></td>
<td width="50%" class="td2">  
<input type="text" name="Forum_info(1)" size="35" value="<%=Dvbbs.Forum_info(1)%>">
</td>
</tr>
<tr> 
<td width="50%" class="td2"> <U>论坛的创建日期（格式：YYYY-M-D）</U></td>
<td width="50%" class="td2">  
<input type="text" name="forum_setting(74)" size="35" value="<%=Dvbbs.forum_setting(74)%>">
</td>
</tr>
<tr> 
<td width="50%" class="td1"> <U>论坛首页文件名</U></td>
<td width="50%" class="td1">  
<input type="text" name="Forum_info(11)" size="35" value="<%=Dvbbs.Forum_info(11)%>">
</td>
</tr>
<tr> 
<td width="50%" class="td2"> <U>网站主页名称</U></td>