📄 usersave.asp
字号:
<!-- #include file="ChkPwd.asp" -->
<!-- #include file="IsAdmin.asp" -->
<html>
<head>
<title>保存用户信息</title>
</head>
<body>
<%
'定义变量
Dim sql, vUserId, vUserName, vUserPwd, vEname, vEmail
'从表单中接收数据到变量中
vUserId = Request("UserId")
vUserName = Request("UserName")
vUserPwd = Request("Pwd")
vEname = Request("Ename")
vEmail = Request("Email")
'Server对象的CreateObject方法建立Connection对象
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={SQL Server};server=Ntserver;UID=sa;PWD=sa;Database=News"
Conn.Open
'如果flag域的值为new，表示插入数据，否则表示修改数据
If Request.Form("flag") = "new" Then
'判断此用户是否存在
Set rsUser = conn.Execute("Select * From Users Where UserName='" & vUserName & "'")
If Not rsUser.EOF Then
%>
<script language="javascript">
alert("已经存在此用户名！");
history.go(-1);
</script>
<%
Else
Set rsUser = Nothing
'在数据库表Users中插入新商品信息
sql="INSERT INTO Users (UserName, UserPwd, Ename, Email) VALUES('" & vUserName _
& "','" & vUserPwd & "','" & vEname & "','" & vEmail & "')"
Conn.Execute(sql)
End If
Else
'更新用户信息
sql = "UPDATE Users SET Ename='" & vEname & "', Email='" & vEmail & "' Where UserId=" & vUserId
Conn.Execute(sql)
End If
Response.Write "<h2>用户信息已成功保存！</h2>"
%>
</body>
<Script language="javascript">
//打开此脚本的网页将被刷新
opener.location.reload();
//停留800毫秒后关闭窗口
setTimeout("window.close()",800);
</Script>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -