ch6-24-updateuser.asp

来自「web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习的好资料」· ASP 代码 · 共 34 行

ASP

34 行

<!-- #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>

ch6-24-updateuser.asp - 源码说明

本页面展示了「web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习的好资料」中的 ch6-24-updateuser.asp 源码文件，采用 ASP 编程语言编写，共 34 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Web开发相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?