| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 660 人关注过本帖
标题:[求助]请教下面管理员登录时程序在哪里出错
只看楼主 加入收藏
wtx2
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-11-2
收藏
 问题点数:0 回复次数:4 
[求助]请教下面管理员登录时程序在哪里出错

下面的程序是网站管理员登录的程序,在用户名或密码错误的情况下,

不能显示“ 提示: 错误的用户名或密码!!!
”,不知程序错在什么地方,求高手给予指教,不胜感谢!!!

其中lev=rs("lev")为管理员级别,原程序中lev=1时为系统管理员,lev=0时为普通管理员。

原程序如下:

<!--#include file="db.asp"-->

<%
validpwd = true

If request.form("submit") <> "" Then

' setup variables
userid = Request.Form("userid")
passwd = Request.Form("passwd")

Set conn = Server.CreateObject("ADODB.Connection")
conn.open xDb_Conn_Str
Set rs = conn.Execute( "Select * from [admin] where [user_id] = '" & UCASE(userid) & "'")
If not rs.eof then
If ucase(rs("user_pwd")) = ucase(passwd) Then
validpwd = true
Else
validpwd = false
End If
Else
validpwd = false
end if
lev=rs("lev")
user=rs("user_id")
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing

If validpwd Then
Session("exemple_status") = "login"
session("lev")=lev
session("u_id")=user
response.redirect "default.asp"
End If

End If
%>

<html>
<head>
<title>后台管理中心</title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">


<script language="JavaScript">
<!-- start Javascript

var errfound = false;

function error(elem, text) {
if (errfound) return;
window.alert(text);
elem.select();
elem.focus();
errfound = true;
}

function loginCheck(f) {

errfound = false;

if (f.userid.value == "")
error(f.userid,"Please enter your user id!");

if (f.passwd.value == "")
error(f.passwd,"Please enter your password!");

return ! errfound;
}

// end Java script -->
</script>


<body leftmargin=0 topmargin=0 marginheight=0 marginwidth=0>
<table width="750" height="26" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>&nbsp;</td>
</tr>
</table>
<table width="792" height="350" border="0" align="center" cellpadding="0" cellspacing="0" background="images/logo.jpg">
<tr>
<td height="87" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="462">&nbsp;</td>
<td width="330"><table width="242" height="106" border="0" align="center" cellpadding="2" cellspacing="0">
<form action="login.asp" method="post" onSubmit="return loginCheck(this);">
<tr>
<td align="left">用户姓名</td>
<td><input name="userid" type="TEXT"size="20"></td>
</tr>
<tr>
<td align="left">密 &nbsp;&nbsp;&nbsp;码</td>
<td><input name="passwd" TYPE="PASSWORD" size="10"></td>
</tr>
<tr>
<td>&nbsp;</td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="submit" value="登录"></td>
<tr>
<td height="30" colspan="2">&nbsp;</td>

<tr>
<td colspan="2">
<% If not validpwd Then %>
提示: 错误的用户名或密码!!!
<% End If %>
</td>

</form>
</table></td>
</tr>
<tr>
<td colspan="2">&nbsp;</td>
</tr>
</table>
</body>
</html>

当运行上述程序时,出现如下的错误信息:

本页无法显示
试图访问的网页出现问题,无法显示。

--------------------------------------------------------------------------------

请尝试以下方法:

单击 刷新按钮或者梢候再试。

打开 127.0.0.1 主页,然后查找与所需信息相关的链接。
HTTP 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息(适用于支持人员)

错误类型:
ADODB.Field (0x800A0BCD)
/data/login.asp, 第 24 行


浏览器类型:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

页:
POST 38 bytes to /data/login.asp

POST 数据:
userid=1&passwd=14&submit=%B5%C7%C2%BC

时间:
2006年11月1日, 21:39:44


详细信息:
Microsoft 支持

搜索更多相关主题的帖子: 管理员 登录 
2006-11-02 20:27
MicroSoft
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:2
帖 子:499
专家分:3
注 册:2006-10-12
收藏
得分:0 
哪个是24行?

[glow=255,green,2]相信微软,相信我!~[/glow]
2006-11-02 22:17
wtx2
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-11-2
收藏
得分:0 
lev=rs("lev")是第24行
2006-11-03 00:16
MicroSoft
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:2
帖 子:499
专家分:3
注 册:2006-10-12
收藏
得分:0 
以下是引用wtx2在2006-11-2 20:27:33的发言:

下面的程序是网站管理员登录的程序,在用户名或密码错误的情况下,

不能显示“ 提示: 错误的用户名或密码!!!
”,不知程序错在什么地方,求高手给予指教,不胜感谢!!!

其中lev=rs("lev")为管理员级别,原程序中lev=1时为系统管理员,lev=0时为普通管理员。

原程序如下:

<!--#include file="db.asp"-->

<%
validpwd = true

If request.form("submit") <> "" Then

' setup variables
userid = Request.Form("userid")
passwd = Request.Form("passwd")

Set conn = Server.CreateObject("ADODB.Connection")
conn.open xDb_Conn_Str
Set rs = conn.Execute( "Select * from [admin] where [user_id] = '" & UCASE(userid) & "'")
If not rs.eof then
If ucase(rs("user_pwd")) = ucase(passwd) Then
validpwd = true

Elselev=rs("lev")
user=rs("user_id")

validpwd = false
End If
Else
validpwd = false
end if
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing



不知道这样行不行,测试一下吧

[glow=255,green,2]相信微软,相信我!~[/glow]
2006-11-03 04:20
wtx2
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-11-2
收藏
得分:0 
在此先谢谢版主!我这下这去测试。
2006-11-03 10:26
快速回复:[求助]请教下面管理员登录时程序在哪里出错
数据加载中...
 
   



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

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