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


<%
Dim Cnn,objrs,sql

Set Cnn = Server.CreateObject("ADODB.Connection")
cnn.open = "Driver={Microsoft Access Driver (*.mdb)};"&" DBQ=" & Server.MapPath("../member.mdb")
set objrs=server.createobject("adodb.recordset")
sql="select *form tbmember where username='"&username&""'and password='"&password&""'
objrs.open sql,cnn,1,1 错误的地方,不知道为什么高手请帮忙看看啊!!谢谢!
username=trim(request("username"))
password=trim(request("password"))
if (username="" or password="") then
response.redirect"logo.asp"
response.end
end if
if objrs.eof then
response.write "用户名密码错误"
response.end
end if
response.redirect"../manage.asp"
%>

搜索更多相关主题的帖子: 代码 登陆 
2006-02-22 18:26
rainic
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2367
专家分:0
注 册:2005-8-9
收藏
得分:0 
sql="select * form tbmember where username='"&username&"' and password='"&password&"'"

2006-02-22 19:06
folake
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2006-2-15
收藏
得分:0 
我知道了,但是我改了之后,又有问题了就是当我输入或者不输入用户名密码的时候按登陆都显示
HTTP 404 - 无法找到文件
Internet 信息服务
不知道为什么

2006-02-22 19:13
folake
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2006-2-15
收藏
得分:0 


<%
Dim Cnn,objrs,sql

Set Cnn = Server.CreateObject("ADODB.Connection")
cnn.open = "Driver={Microsoft Access Driver (*.mdb)};"&" DBQ=" & Server.MapPath("../member.mdb")
set objrs=server.createobject("adodb.recordset")
sql="select username,password from tbmember where username='"&username&"' and password='"&password&"'"
objrs.open sql,cnn,1,1
username=trim(request("username"))
password=trim(request("password"))
if username="" or password="" then
response.redirect"logo.asp"
end if
if objrs.eof then
response.write "用户名密码错误"
response.end
end if
response.cookies("username")=username
response.cookies("password")=password
response.cookies("passed")="passed"
response.redirect"../admin/manage.asp"
%>
为什么我在登陆的时候输入了正确的用户名和密码为什么还是出现“用户名密码错误”
不输入的时候直接按 却出现上面的错误
那位大哥知道告诉小弟啊!谢谢


2006-02-22 19:30
conn
Rank: 2
等 级:新手上路
威 望:5
帖 子:420
专家分:0
注 册:2005-11-27
收藏
得分:0 

程序逻辑混乱....
username=trim(request("username"))
password=trim(request("password"))
if username="" or password="" then
response.redirect"logo.asp"
end if
Dim Cnn,objrs,sql
Set Cnn = Server.CreateObject("ADODB.Connection")
cnn.open = "Driver={Microsoft Access Driver (*.mdb)};"&" DBQ=" & Server.MapPath("../member.mdb")
set objrs=server.createobject("adodb.recordset")
sql="select username,password from tbmember where username='"&username&"' and password='"&password&"'"
objrs.open sql,cnn,1,1
不先获得用户名和密码怎么去验证?


我是新手,但我很虚心,对我发的问题请不要取笑,谢谢
2006-02-22 21:10
dennis
Rank: 1
等 级:新手上路
帖 子:102
专家分:0
注 册:2006-2-17
收藏
得分:0 
楼上的可能是没搞清楚他的问题哦,他是404错误,也就是他没找到文件,那就肯定是response.redirect"../admin/manage.asp"这一段有问题咯,你仔细检查一下吧,现在这里是表示进入当前目录的上级目录底下的admin文件夹
2006-02-23 09:36
deserteaglec
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2006-2-23
收藏
得分:0 
检查一下你的相对路径对不对。

2006-02-23 10:01
快速回复:[求助]代码出错登陆问题
数据加载中...
 
   



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

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