📄 ch6-24-updateuser.asp
字号:
<!-- #INCLUDE file="ch6-24-ADOFunction.asp"-->
<body>
<%
'检查Cookies中的变量是否等于Passed
If Not Request.Cookies("Passed")="Passed" Then
Response.Redirect "E6-24 Index.htm"
Response.End
End If
Dim Password,Name,Sex
Dim Tel,Address,Email,Url,Comment
'取得会员的表单数据
UserId=Request.Cookies("Id")
UserPassword=Request.Cookies("Password")
Name=UserID
Sex=Request("Sex")
Tel= Request("Tel")
Address=Request("Address")
Email=Request("Email")
Comment=Request("Comment")
Dim StrSQL, RS
StrSQL="SELECT * FROM users WHERE Id=' " & UserId &" ' "
StrSQL= StrSQL & "AND Password=' " & UserPassword &" ' "
Set RS=GetSQLRecordset(StrSQL)
'修改数据库中的会员数据
RS.AddNew
RS.Update Array(" Password","Id"," Sex"," Tel"," Address"," Email"," Comment"),_
Array(UserPassword,Name,Sex,Tel,Address,Email,Comment)
RS.Close
%>
<Center>
<%=Name%> 您的资料已修改成功！
<Center>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -