admin_setting.asp

功能强大的bbs

<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/DvADChar.asp" -->
<%	
	Head()
	dim admin_flag,rs_c
	admin_flag=",1,"
	If Not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 Then 
		Errmsg=ErrMsg + "<BR><li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。"
		Call dvbbs_error()
	Else
		if request("action")="save" then
		call saveconst()
		elseif request("action")="restore" then
		call restore()
		else
		call consted()
		end if
		Footer()
	end if

Sub consted()
Dim  sel
%>
<table border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<form method="POST" action="admin_setting.asp?action=save" name="theform">
<tr> 
<th width="100%" colspan=3 class="tableHeaderText" height=25>论坛基本设置（目前只提供一种设置)
</th></tr>
<tr> 
<td width="100%" class=Forumrow colspan=3 height=23>
<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>&nbsp;<a href="admin_challenge.asp">[<font color=blue>论坛短信设置</font>]</a>
</td>
</tr>
<tr> 
<td width="100%" class=Forumrow colspan=3 height=23>
<a href="#setting13">[邮件选项]</a>&nbsp;<a href="#setting14">[上传设置]</a>　&nbsp;<a href="#setting15">[用户选项(签名、头衔、排行等)]</a>　<a href="#setting16">[帖子选项]</a>&nbsp;<a href="#setting17">[防刷新机制]</a>&nbsp;<a href="#setting18">[论坛分页设置]</a>&nbsp;<a href="#setting19">[门派设置]</a>
</td>
</tr>
<tr> 
<td width="100%" class=Forumrow colspan=3 height=23>
<a href="#setting20">[搜索选项]</a>&nbsp;<a href="#settingxu">[虚拟形象选项]</a>
</td>
</tr>
<tr> 
<td width="93%" class=bodytitle colspan=2 height=23>
如果您的论坛的设置搞乱了，可以使用<a href="?action=restore"><B>还原论坛默认设置</B></a>
</td>
<input type="hidden" id="forum_return" value="<b>还原论坛默认设置:</b><br><li>如果您把论坛设置搞乱了，可以点击还原论坛默认设置进行还原操作。<br><li>使用此操作将使您原来的设置无效而还原到论坛的默认设置，请确认您做了论坛备份或者记得还原后该做哪些针对您论坛所需要的设置">
<td class=bodytitle><a href=# onclick="helpscript(forum_return);return false;" class="helplink"><img src="images/manage/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td width="50%" class=Forumrow>
<U>论坛默认使用风格</U></td>
<td width="43%" class=Forumrow>
<%
	Dim forum_sid,iforum_setting,stopreadme,forum_pack
	Dim Style_Option,css_Option,Forum_cid,TempOption
	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)

	set rs_c= server.CreateObject ("adodb.recordset")
	sql = "select id,StyleName,Forum_CSS from dv_style"
	rs_c.open sql,conn,1,1
	if rs_c.eof and rs_c.bof then
		response.write "请先添加风格"
	else
		sql=rs_c.GetRows(-1)
		Response.Write "<SCRIPT LANGUAGE=""JavaScript"">"
		Response.Write chr(10)
		Response.Write "var StyleId="&forum_sid&";"
		Response.Write "var Cssid="&Forum_cid&";"
		Response.Write "var css_Option=new Array();"
		Response.Write chr(10)
		For i=0 To Ubound(SQL,2)
			Style_Option=Style_Option+"<option value="
			Style_Option=Style_Option&SQL(0,i)
			If forum_sid=SQL(0,i) Then Style_Option=Style_Option+" selected "
			Style_Option=Style_Option+" >"+SQL(1,i)+"</option>"
			TempOption=Split(SQL(2,i),"@@@")
			Response.Write "css_Option["&SQL(0,i)&"]='"&TempOption(0)&"';"
			Response.Write chr(10)
		Next
		Response.Write "</SCRIPT>"
	End If
	rs_c.close:Set rs_c=Nothing
%>
模板：<select name=sid onChange="Changeoption(this.value)">
<%
Response.Write Style_Option
%>
</select>
 风格：<select name=cid onChange="">
<option value="" >选择风格皮肤</option>
</select>
<SCRIPT LANGUAGE="JavaScript">
<!--
function Changeoption(sid)
{
var NewOption=css_Option[sid].split("|||");
var j=eval('document.theform.cid.length;');
	for (i=0;i<j;i++){
		eval('document.theform.cid.options[j-i]=null;')
	}
	for (i=0;i<NewOption.length-1;i++){
		tempoption=new Option(NewOption[i],i);
		eval('document.theform.cid.options[i]=tempoption;');
		if (Cssid==i&&sid==StyleId){
		eval('document.theform.cid.options[i].selected=true;');
		}
	}
}
var forum_sid=eval('document.theform.sid.value;');
Changeoption(forum_sid);
//-->
</SCRIPT>
</td>
<input type="hidden" id="forum_skin" value="<b>论坛默认使用风格:</b><br><li>在这里您可以选择您论坛的默认使用风格。<br><li>如果想改变论坛风格请到论坛风格模板管理中进行相关设置">
<td class=Forumrow><a href=# onclick="helpscript(forum_skin);return false;" class="helplink"><img src="images/manage/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td class=forumRowHighlight><U>论坛当前状态</U><BR>维护期间可设置关闭论坛</td>
<td class=forumRowHighlight> 
<input type=radio name="forum_setting(21)" value=0 <%if Dvbbs.forum_setting(21)="0" then%>checked<%end if%>>打开&nbsp;
<input type=radio name="forum_setting(21)" value=1 <%if Dvbbs.forum_setting(21)="1" then%>checked<%end if%>>关闭&nbsp;
</td>
<input type="hidden" id="forum_open" value="<b>论坛当前状态:</b><br><li>如果您需要做更改程序、更新数据或者转移站点等需要暂时关闭论坛的操作，可在此处选择关闭论坛。<br><li>关闭论坛后，可直接使用论坛地址＋login.asp登录论坛，然后使用论坛地址＋admin_index.asp登录后台管理进行打开论坛的操作">
<td class=forumRowHighlight><a href=# onclick="helpscript(forum_open);return false;" class="helplink"><img src="images/manage/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td class=Forumrow><U>维护说明</U><BR>在论坛关闭情况下显示，支持html语法</td>
<td class=Forumrow> 
<textarea name="StopReadme" cols="50" rows="3" ID="TDStopReadme"><%=Stopreadme%></textarea><br><a href="javascript:admin_Size(-3,'TDStopReadme')"><img src="images/manage/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'TDStopReadme')"><img src="images/manage/plus.gif" unselectable="on" border='0'></a>
</td>
<input type="hidden" id="forum_opens" value="<b>论坛维护说明:</b><br><li>如果您在论坛当前状态中关闭了论坛，请在此输入维护说明，他将显示在论坛的前台给会员浏览，告知论坛关闭的原因，在这里可以使用HTML语法。">
<td class=forumRow><a href=# onclick="helpscript(forum_opens);return false;" class="helplink"><img src="images/manage/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td class=forumRowHighlight>
<U>论坛定时设置：</U></td>
<td class=forumRowHighlight> 
<input type=radio name="forum_setting(69)" value="0" <%If Dvbbs.forum_setting(69)="0" Then %>checked <%End If%>>关 闭</option>
<input type=radio name="forum_setting(69)" value="1" <%If Dvbbs.forum_setting(69)="1" Then %>checked <%End If%>>定时关闭</option>
<input type=radio name="forum_setting(69)" value="2" <%If Dvbbs.forum_setting(69)="2" Then %>checked <%End If%>>定时只读</option>
</td>
<input type="hidden" id="forum_isopentime" value="<b>定时设置选择:</b><br><li>在这里您可以设置是否起用定时的各种功能，如果开启了本功能，请设置好下面选项中的论坛设置时间。<br><li>如果在非开放时间内需要更改本设置，可直接使用论坛地址＋login.asp登录论坛，然后使用论坛地址＋admin_index.asp登录后台管理进行打开论坛的操作">
<td class=forumRowHighlight><a href=# onclick="helpscript(forum_isopentime);return false;" class="helplink"><img src="images/manage/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td class=Forumrow>
<U>定时设置</U><BR>请根据需要选择开或关</td>
<td class=Forumrow> 
<%
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%>>开
 <%
 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_index.asp登录后台管理进行打开论坛的操作">
<td class=forumRow><a href=# onclick="helpscript(forum_opentime);return false;" class="helplink"><img src="images/manage/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
</table><BR>
<table border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<tr> 
<th width="100%" colspan=3 class="tableHeaderText" height=25>论坛自动更新通知设置
</th></tr>
<tr> 
<td class=forumRow width="50%">
<U>是否起用动网自动更新通知系统</U></td>
<td class=forumRow width="43%"> 
<input type=radio name="forum_pack(0)" value=0 <%if cint(forum_pack(0))=0 then%>checked<%end if%>>否&nbsp;
<input type=radio name="forum_pack(0)" value=1 <%if cint(forum_pack(0))=1 then%>checked<%end if%>>是&nbsp;
</td>
<input type="hidden" id="forum_pack1" value="<b>是否起用动网自动更新通知系统:</b><br><li>开启后管理后台顶部会提示动网的最新程序、补丁、通知等。">
<td class=forumRow><a href=# onclick="helpscript(forum_pack1);return false;" class="helplink"><img src="images/manage/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td class=ForumrowHighlight>
<U>开启通知系统用户名与密码</U><BR>用户名与密码用符号“|||”分开</td>
<td class=ForumrowHighlight>
<%
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=forumRowHighlight><a href=# onclick="helpscript(forum_pack2);return false;" class="helplink"><img src="images/manage/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
</table><BR>
<table border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<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=Forumrow> <U>论坛名称</U></td>
<td width="50%" class=Forumrow>  
<input type="text" name="Forum_info(0)" size="35" value="<%=Dvbbs.Forum_info(0)%>">
</td>
</tr>
<tr> 
<td width="50%" class=forumRowHighlight> <U>论坛的访问地址</U></td>
<td width="50%" class=forumRowHighlight>  
<input type="text" name="Forum_info(1)" size="35" value="<%=Dvbbs.Forum_info(1)%>">
</td>
</tr>
<tr> 
<td width="50%" class=forumRowHighlight> <U>论坛的创建日期(格式：YYYY-M-D)</U></td>
<td width="50%" class=forumRowHighlight>  
<input type="text" name="forum_setting(74)" size="35" value="<%=Dvbbs.forum_setting(74)%>">
</td>
</tr>
<tr> 
<td width="50%" class=forumRow> <U>论坛首页文件名</U></td>
<td width="50%" class=forumRow>  
<input type="text" name="Forum_info(11)" size="35" value="<%=Dvbbs.Forum_info(11)%>">
</td>
</tr>
<tr> 
<td width="50%" class=forumRowHighlight> <U>网站主页名称</U></td>
<td width="50%" class=forumRowHighlight>  
<input type="text" name="Forum_info(2)" size="35" value="<%=Dvbbs.Forum_info(2)%>">
</td>
</tr>
<tr> 
<td width="50%" class=forumRow> <U>网站主页访问地址</U></td>
<td width="50%" class=forumRow>  
<input type="text" name="Forum_info(3)" size="35" value="<%=Dvbbs.Forum_info(3)%>">
</td>
</tr>
<tr> 
<td width="50%" class=forumRowHighlight> <U>论坛管理员Email</U></td>