📄 sys_web.asp
字号:
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/CallErr.asp" -->
<!--#include file="class/command.asp" -->
<!--#include file="class/SaveSys.asp" -->
<!--#include file="inc/IsValidEmail.asp" -->
<%
Response.Expires = -1
Server.ScriptTimeout = 300
dim ClassSystem,ClassCheck,ClassSys
Set ClassSystem = New System
Set ClassCheck = New CheckUser
Set ClassSys = New SaveSys
ClassSystem.GetWebSys()
ClassCheck.GetUserInfo()
ClassCheck.GetUserCss Request.Querystring("GetStyle")
ClassCheck.CheckUserLogin ClassSystem.ArrRs(2,0),ClassSystem.ArrRs(3,0),ClassCheck.AdminUser,ClassCheck.AdminPass
ClassSys.SetRequest_Method Request.ServerVariables("Request_Method")
Select Case ClassSys.Request_Method
Case "POST"
ClassSys.GetSys_WebInfo Request.Form("Web_name"),Request.Form("Web_Url"),Request.Form("AdminUser"),Request.Form("AdminPass"),Request.Form("AdminPass2"),Request.Form("Email"),Request.Form("FiltrateWord"),Request.Form("EmailCall"),Request.Form("OpenReCall"),Request.Form("OpenWrite"),Request.Form("OpenRead"),Request.Form("OpenEdit"),Request.Form("OpenGsbook"),Request.Form("WebAdvertise"),Request.Form("TextChange")
ClassSys.CheckSys_WebInfo ClassSys.Web_name,ClassSys.Web_Url,ClassSys.AdminUser,ClassSys.AdminPass,ClassSys.AdminPass2,ClassSys.Email,ClassSys.FiltrateWord,ClassSys.OpenGsbook,ClassSys.WebAdvertise
ClassSys.UpdateSys_Web ClassSys.Web_name,ClassSys.Web_Url,ClassSys.AdminUser,ClassSys.AdminPass,ClassSys.AdminPass2,ClassSys.Email,ClassSys.FiltrateWord,ClassSys.EmailCall,ClassSys.OpenReCall,ClassSys.OpenWrite,ClassSys.OpenRead,ClassSys.OpenEdit,ClassSys.OpenGsbook,ClassSys.WebAdvertise,ClassSystem.ArrRs(0,0),ClassSystem.ArrRs(1,0),ClassSystem.ArrRs(2,0),ClassSystem.ArrRs(3,0),ClassSystem.ArrRs(11,0),ClassSystem.ArrRs(5,0),ClassSystem.ArrRs(4,0),ClassSystem.ArrRs(10,0),ClassSystem.ArrRs(6,0),ClassSystem.ArrRs(7,0),ClassSystem.ArrRs(12,0),ClassSystem.ArrRs(13,0),ClassSystem.ArrRs(14,0),ClassSys.TextChange,ClassSystem.ArrRs(15,0)
ClassCheck.CallOk 1
End Select
ClassSystem.Closedb()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="script/GetStyle.js"></script>
<title><%=ClassSystem.ArrRs(0,0)%> - <%=ClassSystem.ArrRs(1,0)%></title>
</head>
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 class="body" Bgproperties="fixed">
<!--#include file=Include/Top_Sys.asp -->
<div class="div">
<table Class=TableTop border=0 cellpadding="0" cellspacing="0">
<tr>
<td class=TableTop_Left rowspan="11"> </td>
<td colspan="2" align="center"> </td>
</tr>
<tr>
<td colspan="2" class=TableTop_Right>
<table width="600" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<form method="POST" action="?type=save" name="form" target="_self" onsubmit="return checkForm()">
<p><strong>=> 站点基本参数设置:</strong></p>
<p>网站名称：
<input name="Web_name" type="text" Class=Put id="Web_name" value="<%=ClassSystem.ArrRs(0,0)%>" size="20" maxlength="20">
</p>
<p>网站地址：
<input name="Web_Url" type="text" id="Web_Url" value="<%=ClassSystem.ArrRs(1,0)%>" size="20" maxlength="50" Class=Put>
</p>
<p>管 理 员：
<input name="AdminUser" type="text" id="AdminUser" value="<%=ClassSystem.ArrRs(2,0)%>" size="20" maxlength="20" Class=Put>
（请勿输入“<font color="#0000FF">'`<>%&.=/\*"</font>”类型字符，否则可能造成登陆失败）
</p>
<p>登陆密码：
<input name="AdminPass" type="password" id="AdminPass" value="<%=ClassSystem.ArrRs(3,0)%>" size="20" maxlength="20" Class=Put>
（请勿输入“<font color="#0000FF">'`<>%&.=/\*"</font>”类型字符，否则可能造成登陆失败）
</p>
<p>确认密码：
<input name="AdminPass2" type="password" id="AdminPass2" size="20" maxlength="20" Class=Put>
(更改密码时需要填写) </p>
<p>联系邮箱：
<input name="Email" type="text" id="Email" value="<%=ClassSystem.ArrRs(11,0)%>" size="20" maxlength="100" Class=Put>
（如果你选择邮件通知时，系统通知信将自动发到此邮箱！） </p>
<p>开放留言板
<input type="checkbox" name="OpenGsbook" value="1" <%If ClassSystem.ArrRs(13,0)=True Then Response.Write "checked" %>>
（如果不选择，留言板将关闭，非管理员将无法访问留言板及进行留言操作） </p>
<p>临时公告：
<textarea name="WebAdvertise" cols="50" rows="3" class="Put" id="WebAdvertise"><%=ClassSystem.ArrRs(14,0)%></textarea>
</p>
<p>（当你关闭留言板时，临时公告将显示于出错的页面，说明为什么要临时关闭！）</p>
<hr size="1" color=cccccc>
<p>关键字过滤：
<input name="FiltrateWord" type="text" id="FiltrateWord" value="<%=ClassSystem.ArrRs(5,0)%>" size="80" maxlength="200" Class=Put>
<br> 请用|隔分，如“靠你|妈的”</p>
<p>字符转换：
<input type="checkbox" name="TextChange" value="1" <%If ClassSystem.ArrRs(15,0)=True Then Response.Write "checked" %>>
（如果不选择，用户留言时不能选择字符与图片之间的转换）</p>
<p>修改留言：
<input type="checkbox" name="OpenEdit" value="1" <%If ClassSystem.ArrRs(12,0)=True Then Response.Write "checked" %>>
（如果不选择，用户不能根据设置的留言密码修改已发表的留言信息）</p>
<p>邮件通知：
<input type="checkbox" name="EmailCall" value="1" <%If ClassSystem.ArrRs(4,0)=True Then Response.Write "checked" %>>
（选择邮件通知，有新的留言信息时系统自动向你填写的联系邮箱中发送通知邮件）</p>
<p>回复通知：
<input name="OpenReCall" type="checkbox" id="OpenReCall" value="1" <%If ClassSystem.ArrRs(10,0)=True Then Response.Write "checked" %>>
（如果不选择，用户将不能使用留言时的回复通知功能！） </p>
<p>开放写留言：
<input name="OpenWrite" type="checkbox" id="OpenWrite" value="1" <%If ClassSystem.ArrRs(6,0)=True Then Response.Write "checked" %>>
（如果不选择，所有用户将不能择写新留言！） </p>
<p>开放读留言：
<input name="OpenRead" type="checkbox" id="OpenRead" value="1" <%If ClassSystem.ArrRs(7,0)=True Then Response.Write "checked" %>>
（如果不选择，所有用户不能查看包括公开的留言内容！） </p>
<p> </p>
<p><div class="div">
<input type="submit" name="Submit" value="=> 更新设置" class=put2>
<input type=reset name="Reset" value="重写" class=put3>
</div></p>
</form>
</td>
</tr>
</table></td>
</tr></table>
</div>
<!--#Include File="Include/CopyRight.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -