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