📄 admin_sysmodify.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="ChkErr.asp"-->
<!--#include file="ChkAdmin.asp"-->
<!--#include file="ChkSQL.asp"-->
<!--#include file="ResultMsg.asp"-->
<%
Dim SysOwner,SysAbout,SysContact,SysLogo
Set objRS=Server.CreateObject("ADODB.RecordSet")
'取得系统信息
strSQL="SELECT * FROM [SysInfo]"
objRS.Open strSQL,objConn,1,3
SysOwner=objRS("SI_Owner_S")
SysAbout=objRS("SI_About_S")
SysContact=objRS("SI_Contact_S")
SysLogo=objRS("SI_Logo_S")
objRS.Close
If Request("IsModify")<>"" Then
SysOwner=Trim(Request("SysOwner"))
SysAbout=Trim(Request("SysAbout"))
SysContact=Trim(Request("SysContact"))
SysLogo=Trim(Request("SysLogo"))
'判断输入的字符数是否在限制的数量之内
If Len(SysOwner)>250 Or Len(SysAbout)>250 Or Len(SysContact)>250 Or Len(SysLogo)>250 Then
Response.Write GetErr(9)
Response.End
End If
'过滤SQL字符
SysOwner=ChkSQL(SysOwner)
SysAbout=ChkSQL(SysAbout)
SysContact=ChkSQL(SysContact)
SysLogo=ChkSQL(SysLogo)
'写入数据库
strSQL="UPDATE [SysInfo] SET SI_Owner_S='"&SysOwner&"',SI_About_S='"&SysAbout&"',SI_Contact_S='"&SysContact&"',SI_Logo_S='"&SysLogo&"'"
objConn.Execute(strSQL)
'输出信息
Call ResultMsg("修改成功！")
Else
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改系统设置</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<form action=admin_sysmodify.asp method=post>
<table class=tableborder1 align=center cellspacing=1 cellpadding=3 width=97% height=25% >
<tr><th colspan=2 id=tabletitlelink height=25 style=font-weight:normal align=center>修改系统信息</th></tr>
<tr><td class=TableBody2 align=right width=15% >系统使用者：<br>（不多于250字）</td><td class=TableBody1 align=left><textarea cols=125 rows=5 name=SysOwner><%=SysOwner%></textarea></td></tr>
<tr><td class=TableBody2 align=right width=15% >系统描述：<br>（不多于250字）</td><td class=TableBody1 align=left><textarea cols=125 rows=5 name=SysAbout><%=SysAbout%></textarea></td></tr>
<tr><td class=TableBody2 align=right width=15% >联系人：<br>（不多于250字）</td><td class=TableBody1 align=left><textarea cols=125 rows=5 name=SysContact><%=SysContact%></textarea></td></tr>
<tr><td class=TableBody2 align=right width=15% >系统Logo：<br>（不多于250字）</td><td class=TableBody1 align=left><input type=text maxlength=200 name=SysLogo size=125 value=<%=SysLogo%>></td></tr>
<tr><td class=TableBody2 align=right colspan=2><center><input type=submit value=修改> <input type=reset value="复原"></center></td></tr>
</table>
<input type=hidden name=IsModify value=Yes>
</form>
</body>
</html>
<%End If%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -