📄 sys.asp
字号:
<!--#include file="../../ACT.Function.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ACTCMS来源</title>
<link href="../../Images/css1/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td class="bg_tr">您现在的位置：系统中心 >> 插件管理 >><a href="?">留言本管理</a></td>
</tr>
</table>
<%
If Not ACTCMS.ACTCMS_QXYZ(0,"lyxt_ACT","") Then Call Actcms.Alert("对不起，你没有操作权限！","")
Dim Rs,A,ActCMS_Book,I,BookSetting
Set Rs=server.CreateObject("adodb.recordset")
Rs.OPen "Select PlusConfig from Plus_ACT where PlusID='lyxt_ACT'",Conn,1,3
If request("A") ="save" Then
For I=0 To 8
BookSetting=BookSetting& Replace(request.Form("ActCMS_Book" & I &""),"^@$@^","") & "^@$@^"
Next
Rs("PlusConfig")=BookSetting
Rs.Update:Application.Contents.RemoveAll
Rs.Close:Set Rs = Nothing
Call Actcms.ActErr("修改成功 <a href=Sys_Act/Book/Sys.asp>点击这里返回管理首页</a>","")
Else
ActCMS_Book=Split(Rs("PlusConfig"),"^@$@^")
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" class="table">
<form name="form1" method="post" action="?A=save">
<tr>
<td align="left" >留言本状态：</td>
<td ><input <% IF ActCMS_Book(0) = "0" Then Response.Write "Checked" %> type="radio" id="radio" name="ActCMS_Book0" value="0">
<label for="radio"><font color="green">正常 </font></label>
<input <% IF ActCMS_Book(0) = "1" Then Response.Write "Checked" %> id="radio2" type="radio" name="ActCMS_Book0" value="1">
<label for="radio2"><font color="red">关闭 </font></label></td>
</tr>
<tr>
<td align="left" >留言脏话过滤：</td>
<td ><input <% IF ActCMS_Book(1) = "0" Then Response.Write "Checked" %> type="radio" id="radio3" name="ActCMS_Book1" value="0">
<label for="radio3"><font color="green">启用 </font></label>
<input <% IF ActCMS_Book(1) = "1" Then Response.Write "Checked" %> id="radio4" type="radio" name="ActCMS_Book1" value="1">
<label for="radio4"><font color="red">禁用 </font></label></td>
</tr>
<tr>
<td align="left" >留言审核功能：</td>
<td ><input <% IF ActCMS_Book(2) = "0" Then Response.Write "Checked" %> type="radio" id="radio5" name="ActCMS_Book2" value="0">
<label for="radio5"><font color="green">启用 </font></label>
<input <% IF ActCMS_Book(2) = "1" Then Response.Write "Checked" %> id="radio6" type="radio" name="ActCMS_Book2" value="1">
<label for="radio6"><font color="red">禁用 </font></label>
如禁用留言审核功能，则新留言将直接发表</td>
</tr>
<tr>
<td align="left" >留言验证码：</td>
<td ><input <% IF ActCMS_Book(3) = "0" Then Response.Write "Checked" %> type="radio" id="radio7" name="ActCMS_Book3" value="0">
<label for="radio7"><font color="green">启用 </font></label>
<input <% IF ActCMS_Book(3) = "1" Then Response.Write "Checked" %> id="radio8" type="radio" name="ActCMS_Book3" value="1">
<label for="radio8"><font color="red">禁用 </font></label></td>
</tr>
<tr>
<td align="left" >分页页数：</td>
<td ><input name="ActCMS_Book4" type="text" value="<%= ActCMS_Book(4) %>" size="20">
大于0小于100</td>
</tr>
<tr>
<td align="left" >留言字数控制：</td>
<td ><input name="ActCMS_Book5" type="text" value="<%= ActCMS_Book(5) %>" size="20">
0为不限制</td>
</tr>
<tr>
<td >留言本模板：</td>
<td >
<input name="ActCMS_Book7" type="text" value="<%= ActCMS_Book(7) %>" size="40">
<input class="ACT_btn" type="button" onClick="OpenWindowAndSetValue('../../include/print/SelectPic.asp?CurrPath=<%=actcms.actsys%>',500,320,window,document.form1.ActCMS_Book7);" value="选择模板...">
</td>
</tr>
<tr>
<td >留言本显示内容模板：</td>
<td >
<input name="ActCMS_Book8" type="text" value="<%= ActCMS_Book(8) %>" size="40">
<input class="ACT_btn" type="button" onClick="OpenWindowAndSetValue('../../include/print/SelectPic.asp?CurrPath=<%=actcms.actsys%>',500,320,window,document.form1.ActCMS_Book8);" value="选择模板...">
</td>
</tr>
<tr>
<td >脏话过滤：</td>
<td ><textarea name="ActCMS_Book6" cols="50" rows="3"><%=ActCMS_Book(6)%></textarea>
<br>
用户发表的评论带有此类文字将被替换,用英文逗号 , 符号分隔</td>
</tr>
<tr>
<td colspan="2" align="center"><input type=button onclick=CheckForm() class="ACT_btn" name=Submit1 value=" 保存 " />
<input name="Submit2" type="reset" class="ACT_btn" value=" 重置 ">
</td>
</tr>
</form>
</table>
<% End If
CloseConn %>
<script language="javascript">
function OpenWindowAndSetValue(Url,Width,Height,WindowObj,SetObj)
{
var ReturnStr=showModalDialog(Url,WindowObj,'dialogWidth:'+Width+'pt;dialogHeight:'+Height+'pt;status:yes;help:no;scroll:yes;');
if (ReturnStr!='') SetObj.value=ReturnStr;
return ReturnStr;
}
function CheckForm()
{ var form=document.form1;
if (form.ActCMS_Book4.value=='')
{ alert("请输入分页页数!");
form.ActCMS_Book4.focus();
return false;
}
form.Submit1.value="正在提交数据,请稍等...";
form.Submit1.disabled=true;
form.Submit2.disabled=true;
form.submit();
return true;
}</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -