📄 sysconfig.asp
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<!--#include file="../../FS_Inc/Func_page.asp" -->
<%
response.buffer=true
Response.CacheControl = "no-cache"
Dim Conn,User_Conn
MF_Default_Conn
'session判断
MF_Session_TF
if not MF_Check_Pop_TF("WS002") then Err_Show
Dim i,Style
dim ConfigRs,sql,IsUser,PageS,Title,UserMember,strShowErr,RepUserMember,IsAudit
Set ConfigRs= server.CreateObject (G_FS_RS)
sql="select top 1 Title,isUser,PageSize,Style,UserMember,RepUserMember,IsAut From FS_WS_Config"
ConfigRs.open sql,conn,1,1
if not ConfigRS.eof then
IsUser=ConfigRs("IsUser")
PageS=Cint(ConfigRs("PageSize"))
Style=ConfigRs("Style")
Title=ConfigRs("Title")
UserMember=ConfigRs("UserMember")
RepUserMember = ConfigRs("RepUserMember")
IsAudit = ConfigRs("IsAut")&""
End if
Set ConfigRs=nothing
%>
<html>
<HEAD>
<TITLE>FoosunCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
</HEAD>
<body>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form action="?Action=save" method="post" name="SysParaForm" id="SysParaForm">
<tr class="hback">
<td class="xingmu" colspan="4">参数设置 <a href="../../help?Lable=Message" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
</tr>
<tr class="hback">
<td width="17%" align="right">留言系统名称:</td>
<td width="83%"><label>
<input name="Title" type="text" id="Title" value="<%=Title%>" size="40">
<font color="#FF0000">*</font></label></td>
</tr>
<tr class="hback">
<td align="right">允许未注册用户留言:</td>
<td width="85%"><%if IsUser="0" then%>
<input type="radio" name="IsUser" value="0" checked>
允许
<input type="radio" name="IsUser" value="1">
禁止
<%else%>
<input type="radio" name="IsUser" value="0" >
允许
<input type="radio" name="IsUser" value="1" checked>
禁止
<%End if %>
</td>
</tr>
<tr class="hback">
<td align="right">留言是否需要审核:</td>
<td width="85%">
<input type="radio" name="IsAudit" value="1" <% If IsAudit = "1" Then Response.Write "checked" %>>
是
<input type="radio" name="IsAudit" <% If IsAudit = "0" Then Response.Write "checked" %> value="0">
否
</td>
</tr>
<tr>
<td class="hback" align="right">发贴成功增加会员积分:</td>
<td class="hback"><input name="UserMember" type="text" onKeyUp="checknum(this)" value="<%=UserMember%>" size="15" maxlength="3">
<label>填写正整数</label>
</tr>
<tr class="hback">
<td align="right">回复帖子积分：</td>
<td><label>
<input name="RepUserMember" type="text" id="RepUserMember" value="<% = RepUserMember %>" size="15" maxlength="3">
</label>
填写正整数
</tr>
<tr class="hback">
<td align="right">每页显示留言条数:</td>
<td width="85%"><select name="PageS">
<%
for i=10 to 50 step 2
if i=PageS then
%>
<option value="<%=i%>" selected><%=i%></option>
<%
else
%>
<option value="<%=i%>"><%=i%></option>
<%
end if
Next
%>
</select>
</tr>
<tr class="hback">
<td align="right">选择样式:</td>
<td><select name="Style">
<option value="1" <%if Style="1" then response.Write"selected"%>>默认样式</option>
<option value="2" <%if Style="2" then response.Write"selected"%>>银色风格</option>
<option value="3" <%if Style="3" then response.Write"selected"%>>蓝色海洋</option>
<option value="4" <%if Style="4" then response.Write"selected"%>>紫色回忆</option>
<option value="5" <%if Style="5" then response.Write"selected"%>>绿色心情</option>
</select>
</td>
</tr>
<tr class="hback">
<td align="right"> </td>
<td><input type="Submit" name="btn_SetSysParam" value=" 保存 " />
<input type="reset" name="sub_rest" value=" 重置 " /></td>
</tr>
</form>
</table>
<script language="javascript">
function checknum(obj){
if (isNaN(obj.value)|| obj.value<0){
alert("格式不对!");
obj.focus();
}
}
</script>
<%
if NoSqlHack(Request.QueryString("Action"))="save" Then
IsAudit = Request.Form("IsAudit")
If IsAudit = "" then IsAudit = "0"
IsUser=Request.Form("IsUser")
PageS=Request.Form("PageS")
Style=Request.Form("Style")
Title=NoSqlHack(trim(Replace(Request.Form("Title"),"'","")))
UserMember=NoSqlHack(Trim(Request.form("UserMember")))
RepUserMember = NoSqlHack(Trim(Request.form("RepUserMember")))
if Title="" then
strShowErr="<li>留言系统名称不能为空</li>"
Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
Response.end
end if
if IsNumeric(UserMember) then
UserMember=int(abs(UserMember))
else
strShowErr = "<li>增加会员积分不对</li>"
Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
Response.end
end if
if IsNumeric(RepUserMember) then
RepUserMember=int(abs(RepUserMember))
else
strShowErr = "<li>增加会员积分不对</li>"
Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
Response.end
end if
if IsUser<>"" and PageS<>"" then
Conn.Execute("Update FS_WS_Config set Title='"&Title&"',IsUser='"&IsUser&"',PageSize="&PageS&",Style='"&Style&"',UserMember="&UserMember&",RepUserMember="&RepUserMember&",IsAut="&IsAudit&"")
strShowErr = "<li>修改成功</li>"
Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
Response.end
else
strShowErr = "<li>参数错误</li>"
Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
Response.end
End if
End if
Set Conn=Nothing
%>
</body>
</html>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -