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

#2

jingjing3162009-08-21 14:57

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

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

#3

tepnidh2009-08-22 06:40

回复 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

jingjing3162009-08-22 07:59

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


        session.Update
        session.Close

把session换成rs试试。

#5

tepnidh2009-08-22 09:13

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

#6

pany532009-08-22 10:58

三楼的那是写的什么啊，哪有修改啊，好像就一个新增啊，而且 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

tepnidh2009-08-22 12:44

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

#8

tepnidh2009-08-22 18:23

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

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

#9

孤独冷雨2009-08-24 08:53

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 编辑 ]

#10

tepnidh2009-08-24 22:07

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

不曾相识的笨笨学生

#11

yyyyyyyz2009-08-25 08:04

以下是引用孤独冷雨在2009-8-24 08:53的发言：href=zcxg.asp?userid="&&" 你这个有问题，按你的想法这样改一下链接：
href="zcxg.asp?userid="
如果是循环列出所有的用户就用：
hre ...

能共享就更好了