asp登录成功后,用户如何修改自己的注册信息?[万分感谢孤独冷雨老师，您的无私帮助令学生无比敬重，好人一生平安！] - ASP技术论坛

已结贴√ 问题点数：20 回复次数：11

asp登录成功后,用户如何修改自己的注册信息?[万分感谢孤独冷雨老师，您的无私帮助令学生无比敬重，好人一生平安！]

asp登录成功后,用户如何修改自己的注册信息?[我是笨笨,请您详细些好吗?最好给一个简单的示例,多谢!加分50分&amp;amp;nbsp;&lt;br&gt;1.登录后,点击修改注册信息,转到修改页面,这个过程怎样链接&amp;amp;nbsp;&lt;br&gt;2.修改页面的代码是什么&amp;amp;nbsp;&lt;br&gt;3.如何提交到数据库?(access数据库)&amp;amp;nbsp;&lt;br&gt;假如修改页面为xg.asp,用户表admin,用户表字段如:username(用户名),passpwd(密码),sex(性别),email(信箱)&lt;br&gt;&lt;br&gt;[&lt;i&gt;&amp;amp;nbsp;本帖最后由&amp;amp;nbsp;tepnidh&amp;amp;nbsp;于&amp;amp;nbsp;2009-8-24&amp;amp;nbsp;11:52&amp;amp;nbsp;编辑&amp;amp;nbsp;&lt;/i&gt;]<br><br>[<i>&nbsp;本帖最后由&nbsp;tepnidh&nbsp;于&nbsp;2009-8-24&nbsp;11:53&nbsp;编辑&nbsp;</i>]<br><br>[<i> 本帖最后由 tepnidh 于 2009-8-24 21:59 编辑 </i>]

[ 本帖最后由 tepnidh 于 2009-8-24 23:34 编辑 ]

搜索更多相关主题的帖子: 修改注册信息　

第 2 楼

得分:8

这是网上的一个代码，仅供参考

[ 本帖最后由 jingjing316 于 2009-8-21 16:36 编辑 ]

exam.rar (127.87 KB)

第 3 楼

得分:0

回复 2楼 jingjing316
谢谢您的帮助和支持,文件已下载,收藏,多谢!我做了一个简单的修改注册信息页面(zcxg.asp),这是我所想要的最简单的效果,但不成功,修改后的数据无法写入数据库,什么问题我不知道,不怕您笑话,这张页面是我迷迷糊糊蒙出来的,呵呵~~~~~我根本不懂编程语言,一点儿都不懂,所以,您就挑最简单的来,按照我的这个思路帮我修改一下,好吗?
zcxg.asp

<%
If Request("Action") = "post" Then

    UserName = Trim(Request("username"))
    dlpwd1 = Trim(Request("dlpwd1"))
    xx = Trim(Request("xx"))


        Set Rs = Server.CreateObject("Adodb.RecordSet")
        Sql = "Select * From admin Where username='"&UserName&"'"
        Rs.Open Sql,Conn,1,3
        If Rs.Bof Then
            Rs.AddNew
        session("userame") = UserName
        session("dlpwd1") = UserPass
        session("xx") = xx


        session.Update
        session.Close
        Set Rs=Nothing
        Response.Write "<script language='javascript'>alert('修改成功');location.replace('zcxg.asp')</script>"

        End If
    End If

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改会员注册信息</title>

<style type="text/css">

</style>
</head>
<body>
<form name="form1" method="post" action="?Action=post">
  <table width="400" border="1" cellspacing="0" cellpadding="0">
    <tr>
      <td height="25" colspan="2" align="center"><span class="STYLE12">修改注册信息</span></td>
    </tr>
    <tr>
      <td width="150" height="25" align="center">用户名</td>
      <td><input name="username" type="text" id="username" value="<%=session("username")%>"></td>
    </tr>
    <tr>
      <td width="150" height="25" align="center">密码</td>
      <td><input name="dlpwd1" type="password" id="dlpwd1" value="<%=session("dlpwd1")%>"></td>
    </tr>
    <tr>
      <td width="150" height="25" align="center">信箱</td>
      <td><input name="xx" type="text" id="xx" value="<%=session("xx")%>"></td>
    </tr>
    <tr>
      <td height="25" colspan="2" align="center"><input type="submit" name="Submit" value="提交"></td>
    </tr>
  </table>
</form>
</body>
</html>

第 4 楼

得分:0

session("userame") = UserName
        session("dlpwd1") = UserPass
        session("xx") = xx


        session.Update
        session.Close

把session换成rs试试。

第 5 楼

得分:0

回复 4楼 jingjing316
您好,老师!我真是遇上了一位非常热心的老师,在教师节未到之际,学生向您表示致敬!谢谢您!
按照您的指点,我把session修改成Rs,仍不能把数据写入数据库,但提示成功!
之后,我把下面
value="<%=session("username")%>"
value="<%=session("dlpwd1")%>"
value="<%=session("xx")%>"
中的session也改成了Rs,报错:
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'Rs'
登录成功时,用户信息存入session,点击"修改".都能转到"zcxg.asp"(注册修改页面),而且都能显示不同的用户信息,但修改后就是不能更新数据,请您无论如何帮我把这个问题解决了,好吗,您就帮学生到底吧!

第 6 楼

得分:6

三楼的那是写的什么啊，哪有修改啊，好像就一个新增啊，而且 session("dlpwd1") = UserPass 这个userpass我只看到过一次，从哪里来的啊
<%
If Request("Action") = "post" Then

    UserName = Trim(Request("username"))
    userpass = Trim(Request("dlpwd1"))
    xx = Trim(Request("xx"))


        Set Rs = Server.CreateObject("Adodb.RecordSet")
        Sql = "Select * From admin Where username='"&UserName&"'"
        Rs.Open Sql,Conn,1,3
        If Rs.Bof Then
            Rs.AddNew
        Rs("userame") = UserName
        rs("dlpwd1") = UserPass
        rs("xx") = xx
         rs.Update
        else
            Rs("userame") = UserName
        rs("dlpwd1") = UserPass
        rs("xx") = xx
             rs.Update
        end if
               rs.Close
        Set Rs=Nothing
        Response.Write "<script language='javascript'>alert('修改成功');location.replace('zcxg.asp')</script>"

             End If

%>

第 7 楼

得分:0

回复 6楼 pany53
谢谢您,不好意思,我不懂啊,让您费心啦,按照您的指点,结果,还是不行,请您再帮帮我吧,好吗?
啊,是这样的,登录成功时,用户信息存入session,点击"修改".都能转到"zcxg.asp"(注册修改页面),而且都能显示不同的用户信息,但修改后就是不能更新数据,请您无论如何帮我把这个问题解决了,好吗,您就帮学生到底吧!

第 8 楼

得分:0

回复 8楼孤独冷雨
孤老师，您好！感谢您的指点！我试了一下，显示：
错误类型：
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

登录用户注册相关信息都保存在了session。经试验：不同的用户点击“查看注册信息”都显示不同的信息，说明所有信息保存成功。
“修改”所链接的代码是：<a href=zcxg.asp?userid="&<%session("userid")%>&"onclick=""return newwin(this.href)"">修改</a>不知这样行不行？是不是链接出了问题？
您是高老师啊，就烦请您帮我搞清楚，行吗？！我菜得很，是菜中之菜啊。。。。。啥也不说了。。。。感谢！
学生期待着您！！

第 9 楼

得分:0

href=zcxg.asp?userid="&<%session("userid")%>&" 你这个有问题，按你的想法这样改一下链接： <br>href="zcxg.asp?userid=<%=session("userid")%>" <br>如果是循环列出所有的用户就用： <br>href="zcxg.asp?userid=<%=session(rs("userid"))%>" <br> <br>如果还不行，你把你的源码和数据库都发给我，我今天不忙，帮你改一下！ <br><br><br>[<i> 本帖最后由 孤独冷雨 于 2009-8-24 08:57 编辑 </i>]

已经改好发给你了！

[ 本帖最后由孤独冷雨于 2009-8-24 15:18 编辑 ]

这里有男女系列成人用品,有时间兄弟们来看一看.
51za.

第 10 楼

得分:0

回复 10楼孤独冷雨
感谢老师的无私帮助，困扰我好几日的问题今天在您的帮助下终于解决了，我真的好高兴！这个问题对于您来说，可能是一个很简单的问题，可对于我来说，却是一个大难题，。。。。。。学生真的不知怎样表达才能道出对您的感激之情，我只能说，谢谢您，老师，祝您永远健康快乐，也衷心祝愿您的家人幸福快乐！
鞠躬致意！
请老师喝茶！

不曾相识的笨笨学生