| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 424 人关注过本帖
标题:毛病在那
只看楼主 加入收藏
dujttk
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2006-4-27
收藏
 问题点数:0 回复次数:2 
毛病在那

这 是一端找回个人密码的代码 ,要求先输入注册过的用户名 ,才能显示下面2的区域获得密码问题,不然显示上面1的区域。然而我实验了多次,无论我填写的用户名是否正确 ,都只显示1的区域 错在那里呀?
1

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/com.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "name"
If (Request("MM_EmptyValue") <> "") Then
Recordset1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_com_STRING
Recordset1.Source = "SELECT * FROM user WHERE name = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0





<body>
<p>&nbsp;</p>
<p>
<% If Recordset1.EOF And Recordset1.BOF Then %>
你不是注册用户 ,或填写错误 ---------------<a href="a.asp">返回</a>
<% End If ' end Recordset1.EOF And Recordset1.BOF %>
</p>
<p>&nbsp;</p>




2

<form id="form1" name="form1" method="post" action="c.asp">
<% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
<p>您的密码问题是<%=(Recordset1.Fields.Item("wenti").Value)%>
<input name="hiddenField" type="hidden" value="<%=(Recordset1.Fields.Item("wenti").Value)%>" />
</p>
<p>请填写密码答案
<label>
<input name="textfield" type="text" size="10" maxlength="10" />
</label>
</p>
<p>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
</p>
<% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>
</form>
<p>&nbsp;</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

[此贴子已经被作者于2006-5-23 22:36:55编辑过]

搜索更多相关主题的帖子: 毛病 
2006-05-23 21:39
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
Recordset1.Open "xxx",xxx,x,x
或者
Set Recordset1=xxx.Execute
这样类似的语句在哪里?
2006-05-23 21:45
dujttk
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2006-4-27
收藏
得分:0 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/com.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "name"
If (Request("MM_EmptyValue") <> "") Then
Recordset1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_com_STRING
Recordset1.Source = "SELECT * FROM user WHERE name = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0


这是上面的 我把他复制掉了

2006-05-23 22:37
快速回复:毛病在那
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017037 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved