📄 admin_setting.asp
字号:
<tr>
<th height=25 colspan=2 align=left id=tabletitlelink><a name="setting16"></a><b>帖子选项</b>[<a href="#top">顶部</a>]</td>
</tr>
<tr>
<td class=Forumrow width="50%"> <U>作为热门话题的最低人气值</U><BR>标准为主题回复数</td>
<td class=Forumrow width="50%">
<input type="text" name="forum_setting(44)" size="3" value="<%=Dvbbs.forum_setting(44)%>"> 条
</td>
</tr>
<tr>
<td class=Forumrow> <U>编辑过的帖子显示"由xxx于yyy编辑"的信息</U></td>
<td class=Forumrow>
<input type=radio name="forum_setting(48)" value=0 <%if Dvbbs.forum_setting(48)="0" then%>checked<%end if%>>否
<input type=radio name="forum_setting(48)" value=1 <%if Dvbbs.forum_setting(48)="1" then%>checked<%end if%>>是
</td>
</tr>
<tr>
<td class=Forumrow> <U>管理员编辑后显示"由XXX编辑"的信息</U></td>
<td class=Forumrow>
<input type=radio name="forum_setting(49)" value=0 <%if Dvbbs.forum_setting(49)="0" then%>checked<%end if%>>否
<input type=radio name="forum_setting(49)" value=1 <%if Dvbbs.forum_setting(49)="1" then%>checked<%end if%>>是
</td>
</tr>
<tr>
<td class=Forumrow> <U>等待"由XXX编辑"信息显示的时间</U><BR>允许用户编辑自己的帖子而不在帖子底部显示"由XXX编辑"信息的时限(以分钟为单位)</td>
<td class=Forumrow>
<input type="text" name="forum_setting(50)" size="3" value="<%=Dvbbs.forum_setting(50)%>"> 分钟
</td>
</tr>
<tr>
<td class=Forumrow> <U>编辑帖子时限</U><BR>编辑处理帖子的时间限制(以分钟为单位, 1天是1440分钟) 超过这个时间限制, 只有管理员和版主才能编辑和删除帖子. 如果不想使用这项功能, 请设置为0</td>
<td class=Forumrow>
<input type="text" name="forum_setting(51)" size="3" value="<%=Dvbbs.forum_setting(51)%>"> 分钟
</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="settingxu"></a><b>虚拟形象选项</b>[<a href="#top">顶部</a>]
</tr>
<tr>
<td class=Forumrow width="50%"> <U>是否启用虚拟形象</U></td>
<td class=Forumrow>
<input type=radio name="forum_setting(82)" value=1 <%if Dvbbs.forum_setting(82)="1" then%>checked<%end if%>>否
<input type=radio name="forum_setting(82)" value=0 <%if Dvbbs.forum_setting(82)="0" then%>checked<%end if%>>是
</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="setting19"></a><b>门派设置</b>[<a href="#top">顶部</a>]
</tr>
<tr>
<td class=Forumrow width="50%"> <U>是否开启论坛门派</U></td>
<td class=Forumrow>
<input type=radio name="forum_setting(32)" value=0 <%if Dvbbs.forum_setting(32)="0" then%>checked<%end if%>>否
<input type=radio name="forum_setting(32)" value=1 <%if Dvbbs.forum_setting(32)="1" then%>checked<%end if%>>是
</td>
</tr>
<tr>
<td width="50%" class=Forumrow> </td>
<td width="50%" class=Forumrow>
<div align="center">
<input type="submit" name="Submit" value="提 交">
</div>
</td>
</tr>
</table>
</form>
<div id="Issubport0" style="display:none">请选择EMAIL组件！</div>
<div id="Issubport999" style="display:none"></div>
<%
Dim InstalledObjects(12)
InstalledObjects(1) = "JMail.Message" 'JMail 4.3
InstalledObjects(2) = "CDONTS.NewMail" 'CDONTS
InstalledObjects(3) = "Persits.MailSender" 'ASPEMAIL
'-----------------------
InstalledObjects(4) = "Scripting.FileSystemObject" 'Fso
InstalledObjects(5) = "LyfUpload.UploadFile" 'LyfUpload
InstalledObjects(6) = "Persits.Upload" 'Aspupload3.0
InstalledObjects(7) = "SoftArtisans.FileUp" 'SA-FileUp 4.0
InstalledObjects(8) = "DvFile.Upload" 'DvFile-Up V1.0
'-----------------------
InstalledObjects(9) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage
InstalledObjects(10) = "Persits.Jpeg" 'AspJpeg
InstalledObjects(11) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21
InstalledObjects(12) = "sjCatSoft.Thumbnail" 'sjCatSoft.Thumbnail V2.6
For i=1 to 12
Response.Write "<div id=""Issubport"&i&""" style=""display:none"">"
If IsObjInstalled(InstalledObjects(i)) Then Response.Write "<font color=red><b>√</b>服务器支持!</font>" Else Response.Write "<b>×</b>服务器不支持!"
Response.Write "</div>"
Next
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function chkselect(s,divid)
{
var divname='Issubport';
var chkreport;
s=Number(s)
if (divid=="know1")
{
divname=divname+s;
}
if (divid=="know2")
{
s+=4;
if (s==1003){s=999;}
divname=divname+s;
}
if (divid=="know3")
{
s+=9;
if (s==1008){s=999;}
divname=divname+s;
}
document.getElementById(divid).innerHTML=divname;
chkreport=document.getElementById(divname).innerHTML;
document.getElementById(divid).innerHTML=chkreport;
}
//-->
</SCRIPT>
<%
end sub
sub saveconst()
Dim Forum_copyright,Forum_info,forum_setting,iforum_setting,isetting
Dim Forum_Maxonline,Forum_TopicNum,Forum_PostNum
Dim Forum_UserNum,Forum_MaxPostNum,Forum_MaxPostDate,Forum_MaxonlineDate
Dim Forum_pack
If not IsDate(Request.Form("Forum_Setting(74)")) Then
Errmsg=ErrMsg + "<li>论坛创建日期必须是一个有效日期。"
Dvbbs_error()
Exit Sub
End If
If not IsDate(Request.Form("Forum_MaxPostDate")) Then
Errmsg=ErrMsg + "<li>论坛最高日发贴发生时间日期必须是一个有效日期。"
Dvbbs_error()
Exit Sub
Else
Forum_MaxPostDate=Request.Form("Forum_MaxPostDate")
End If
If not IsDate(Request.Form("Forum_MaxonlineDate")) Then
Errmsg=ErrMsg + "<li>历史最高同时在线纪录发生时间日期必须是一个有效日期。"
Dvbbs_error()
Exit Sub
Else
Forum_MaxonlineDate=Request.Form("Forum_MaxonlineDate")
End If
Forum_Maxonline = Request.Form("Forum_Maxonline")
Forum_TopicNum = Request.Form("Forum_TopicNum")
Forum_PostNum = Request.Form("Forum_PostNum")
Forum_UserNum = Request.Form("Forum_UserNum")
Forum_MaxPostNum= Request.Form("Forum_MaxPostNum")
Forum_pack = Request.Form("Forum_pack(0)")&"|||"&Trim(Request.Form("Forum_pack(1)"))
If Not ISNumeric(Forum_Maxonline&Forum_TopicNum&Forum_PostNum&Forum_UserNum&Forum_MaxPostNum) Then
Errmsg=ErrMsg + "<li>非法的参数，论坛系统数据出错，提交中止。"
Dvbbs_error()
Exit Sub
End If
If not isnumeric(request.Form("cid")) or not isnumeric(request.Form("Sid")) Then
Errmsg=ErrMsg + "<li>请选择模板与风格！"
Dvbbs_error()
Exit Sub
End IF
Dim setingdata,j
If Forum_Maxonline="" Then Forum_Maxonline=0
If Forum_TopicNum="" Then Forum_TopicNum=0
If Forum_PostNum="" Then Forum_PostNum=0
If Forum_UserNum="" Then Forum_UserNum=0
If Forum_MaxPostNum="" Then Forum_MaxPostNum=0
For i = 0 To 100
If Trim(request.Form("Forum_Setting("&i&")"))="" Or i=70 Then
'Response.Write "Forum_Setting("&i&")<br>"
isetting=0
If i=70 Then
isetting=""
For j=0 to 23
If isetting="" Then
If Request.form("Forum_Setting(70)"&j)="1" Then
isetting="1"
Else
isetting="0"
End If
Else
If Request.form("Forum_Setting(70)"&j)="1" Then
isetting=isetting&"|1"
Else
isetting=isetting&"|0"
End If
End If
Next
End If
Else
isetting=Replace(Trim(request.Form("Forum_Setting("&i&")")),",","")
End If
If i = 0 Then
forum_setting = isetting
Else
forum_setting = forum_setting & "," & isetting
End If
Next
For i = 0 To 13
If Trim(Request.Form("Forum_info("&i&")")) = "" And i <> 4 And i <> 12 And i<>13 Then
'Response.Write "Forum_info("&i&")<br>"
isetting=0
Else
isetting=Replace(Trim(request.Form("Forum_info("&i&")")),",","")
End If
If i = 0 Then
Forum_info = isetting
Else
Forum_info = Forum_info & "," & isetting
End If
Next
'response.write Forum_info
'response.write "<br>"
'Response.Write Dvbbs.Forum_Setting
'Response.End
Forum_copyright=request("copyright")
'forum_info|||forum_setting|||forum_user|||copyright|||splitword|||stopreadme
Set rs=Dvbbs.execute("select forum_setting from dv_setup")
iforum_setting=split(rs(0),"|||")
forum_setting=forum_info & "|||" & forum_setting & "|||" & iforum_setting(2) & "|||" & Forum_copyright & "|||" & iforum_setting(4) & "|||" & request.Form("StopReadme")
forum_setting=Replace(forum_setting,"'","''")
'Response.Write forum_setting
'response.end
sql="update Dv_setup set Forum_Setting='"&forum_setting&"',forum_sid="&request.Form("Sid")&",Forum_cid="&request.Form("cid")
sql=sql+",Forum_Maxonline="&Forum_Maxonline&",Forum_TopicNum="&Forum_TopicNum&",Forum_PostNum="&Forum_PostNum &",Forum_UserNum="&Forum_UserNum&",Forum_MaxPostNum="&Forum_MaxPostNum&",Forum_MaxPostDate='"&Forum_MaxPostDate &"',For⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -