新书推介:《语义网技术体系》
作者:瞿裕忠,胡伟,程龚
   XML论坛     W3CHINA.ORG讨论区     计算机科学论坛     SOAChina论坛     Blog     开放翻译计划     新浪微博  
 
  • 首页
  • 登录
  • 注册
  • 软件下载
  • 资料下载
  • 核心成员
  • 帮助
  •   Add to Google

    >> 本版讨论.NET,C#,ASP,VB技术
    [返回] 中文XML论坛 - 专业的XML技术讨论区计算机技术与应用『 Dot NET,C#,ASP,VB 』 → 各位大虾帮我看看 查看新帖用户列表

      发表一个新主题  发表一个新投票  回复主题  (订阅本版) 您是本帖的第 9670 个阅读者浏览上一篇主题  刷新本主题   树形显示贴子 浏览下一篇主题
     * 贴子主题: 各位大虾帮我看看 举报  打印  推荐  IE收藏夹 
       本主题类别:     
     _ycxy 帅哥哟,离线,有人找我吗?
      
      
      等级:大一新生
      文章:0
      积分:53
      门派:XML.ORG.CN
      注册:2005/6/8

    姓名:(无权查看)
    城市:(无权查看)
    院校:(无权查看)
    给_ycxy发送一个短消息 把_ycxy加入好友 查看_ycxy的个人资料 搜索_ycxy在『 Dot NET,C#,ASP,VB 』的所有贴子 引用回复这个贴子 回复这个贴子 查看_ycxy的博客楼主
    发贴心情 各位大虾帮我看看

    下面是找回密码第三步取得密码的代码:
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
    <!--#include file="Connections/conn.asp" -->
    <%
    Dim Recordset1__MMColParam
    Recordset1__MMColParam = "1"
    If (Request.Form("Pass_1") <> "") Then
      Recordset1__MMColParam = Request.Form("Pass_1")
    End If
    %>
    <%
    Dim Recordset1__MMPass_2
    Recordset1__MMPass_2 = "1"
    If (Request.Form("Pass_2") <> "") Then
      Recordset1__MMPass_2 = Request.Form("Pass_2")
    End If
    %>
    <%
    Dim Recordset1
    Dim Recordset1_numRows

    Set Recordset1 = Server.CreateObject("ADODB.Recordset")
    Recordset1.ActiveConnection = MM_conn_STRING
    Recordset1.Source = "SELECT Pass_2  FROM Member  WHERE Pass_1 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' and Pass_2 ='" + Replace(Recordset1__MMPass_2, "'", "''") + "'"
    Recordset1.CursorType = 0
    Recordset1.CursorLocation = 2
    Recordset1.LockType = 1
    Recordset1.Open()

    Recordset1_numRows = 0
    %>
    <%
    Dim Recordset2__MMColParam
    Recordset2__MMColParam = "1"
    If (Request.form("Pass")  <> "") Then
      Recordset2__MMColParam = Request.form("Pass")
    End If
    %>
    <%
    Dim Recordset2
    Dim Recordset2_numRows

    Set Recordset2 = Server.CreateObject("ADODB.Recordset")
    Recordset2.ActiveConnection = MM_conn_STRING
    Recordset2.Source = "SELECT *  FROM Member  WHERE Pass = '" + Replace(Recordset2__MMColParam, "'", "''") + "'"
    Recordset2.CursorType = 0
    Recordset2.CursorLocation = 2
    Recordset2.LockType = 1
    Recordset2.Open()

    Recordset2_numRows = 0
    %>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>无标题文档</title>
    </head>

    <body>
    <p>
      <% If Recordset1.EOF And Recordset1.BOF Then %>
      你的问题答案不是这个吧,要不<a href="search1.asp">回去</a>再试试?
      <% End If ' end Recordset1.EOF And Recordset1.BOF %>
    </p>
    <p>&nbsp;</p>

    <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
    <p>你的密码是:<%=(Recordset2.Fields.Item("Pass").Value)%></p>
    <% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>

    </body>
    </html>
    <%
    Recordset1.Close()
    Set Recordset1 = Nothing
    %>
    <%
    Recordset2.Close()
    Set Recordset2 = Nothing
    %>


    请各位大虾帮小弟指出怎么改才能显示出密码(当回答问题错误时,可以出现  你的问题答案不是这个吧,要不回去再试试?
    回答正确了就出现
    错误类型:
    ADODB.Field (0x800A0BCD)
    BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
    /Member/search3.asp, 第 74 行

    <p>你的密码是:<%=(Recordset2.Fields.Item("Pass").Value)%></p>
    此为74行


       收藏   分享  
    顶(0)
      




    点击查看用户来源及管理<br>发贴IP:*.*.*.* 2005/6/19 14:50:00
     
     GoogleAdSense
      
      
      等级:大一新生
      文章:1
      积分:50
      门派:无门无派
      院校:未填写
      注册:2007-01-01
    给Google AdSense发送一个短消息 把Google AdSense加入好友 查看Google AdSense的个人资料 搜索Google AdSense在『 Dot NET,C#,ASP,VB 』的所有贴子 访问Google AdSense的主页 引用回复这个贴子 回复这个贴子 查看Google AdSense的博客广告
    2024/3/29 6:36:21

    本主题贴数1,分页: [1]

    管理选项修改tag | 锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告
    W3C Contributing Supporter! W 3 C h i n a ( since 2003 ) 旗 下 站 点
    苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
    3,707.031ms