📄 usersave.asp
字号:
<html>
<head>
<title>保存用户信息</title>
</head>
<body>
<%
'定义变量
Dim sql, vUserId, vUserName, vUserPwd, vEname, vEmail
'从表单中接收数据到变量中
vUserName = Request("UserName")
vUserPwd = Request("Pwd")
vEname = Request("Ename")
vEmail = Request("Email")
vLogo = Request("Logo") & ".gif"
'Server对象的CreateObject方法建立Connection对象
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("Database/discuss.mdb")
'如果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, Logo) VALUES('" & vUserName _
& "','" & vUserPwd & "','" & vEname & "','" & vEmail & "','" & vLogo & "')"
Conn.Execute(sql)
End If
Else '修改用户信息
OriPwd = Request.Form("OriPwd")
Pwd = Request.Form("Pwd")
'判断是否存在此用户
'=============连接数据库===============
'设置SQL语句，判断是否存在此用户
sql = "SELECT * FROM Users WHERE UserId=" & Session("UserId") & " And UserPwd='" & OriPwd & "'"
Set rs = Conn.Execute(sql)
If rs.Eof Then
Response.Write "不存在此用户名或密码错误！"
%>
<Script Language="JavaScript">
setTimeout("history.go(-1)",1600);
</Script>
<%
Response.End
Else
'更新用户信息
sql = "UPDATE Users SET Ename='" & vEname & "', Email='" & vEmail & "', UserPwd='" _
& vUserPwd & "', Logo='" & vLogo & "' Where UserId=" & Session("UserId")
Conn.Execute(sql)
' Response.Write sql
End If
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 + -