?? sysconfsave.asp
字號:
<!-- #include file="../ConnDB.asp" -->
<!--#include file="../class/SysConf.asp"-->
<html>
<head>
<title></title>
</head>
<body>
<%
set obj = new SysConf '創建SysConf對象，用于訪問系統配置信息表
' 學校名稱
obj.ConfName = "School"
obj.ConfValue = Request("txtSchool")
obj.save(obj.ConfName)
' 入學時間
obj.ConfName = "StartYear"
obj.ConfValue = Request("txtStartYear")
obj.save(obj.ConfName)
' 班級
obj.ConfName = "Class"
obj.ConfValue = Request("txtClass")
obj.save(obj.ConfName)
' 系統郵箱
obj.ConfName = "Email"
obj.ConfValue = Request("txtEmail")
obj.save(obj.ConfName)
' SMTP服務器
obj.ConfName = "SmtpServer"
obj.ConfValue = Request("txtSmtpServer")
obj.save(obj.ConfName)
' Email用戶名
obj.ConfName = "EmailUser"
obj.ConfValue = Request("txtEmailUser")
obj.save(obj.ConfName)
' Email密碼
obj.ConfName = "EmailPwd"
obj.ConfValue = Request("txtEmailPwd")
obj.save(obj.ConfName)
' 同學錄網址
obj.ConfName = "website"
obj.ConfValue = Request("txtWebsite")
obj.save(obj.ConfName)
Response.Write "<h2>系統配置信息已成功保存！</h2>"
%>
</body>
<script language="javascript">
alert("配置成功");
history.go(-1);
</script>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -