📄 sysconfsave.asp

📁 本同学录系统演示地址:　http://class.19870123.cn/ 下载后请在Web.Config里更改设置,如数据库路径等如果要换sql数据库,请将app_code里的MyPage

💻 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 + -