标题:管理员登陆的问题
取消只看楼主
疯狂IT界
Rank: 1
等 级:新手上路
帖 子:83
专家分:0
注 册:2006-6-6
 问题点数:0 回复次数:5 
管理员登陆的问题

我弄的这个管理员登陆,不知道怎么搞的,一点登陆就还是当前窗口,跳不到我想到的那个窗口

望大家能帮我解决! 代码如下:


<%
username=trim(request.form("name"))
userpwd=trim(request.form("pwd"))
set conn=server.createobject("ADODB.connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin.mdb")
set rs=server.CreateObject("adodb.recordset")
str ="select * from check where name="&"'"&name&"'"&" and password='"&pwd&"'"
rs.open str,conn,3
if rs.recordcount=0 then
response.redirect("admin.asp")
else
session("name")=rs.fields("name")
session("id")=rs.fields("id")
response.redirect("guanliliuyan.asp")
end if
%>


我的登陆页面是 admin.aso

想要跳转到 guanliliuyan.asp

数据库是 admin.mdb

数据表是 check

字段是 name (用户名)

字段是 password ( 密码)

请大家帮忙!

[此贴子已经被作者于2006-6-23 16:53:04编辑过]

搜索更多相关主题的帖子: 管理员 Microsoft name 
2006-06-23 16:48
疯狂IT界
Rank: 1
等 级:新手上路
帖 子:83
专家分:0
注 册:2006-6-6
得分:0 
不行呀

<%
username=trim(request.form("name"))
userpwd=trim(request.form("pwd"))
set conn=server.createobject("ADODB.connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin.mdb")
set rs=server.CreateObject("adodb.recordset")
str ="select * from check where name="&"'"&name&"'"&" and password='"&pwd&"'"
rs.open str,conn,3
if rs.recordcount=0 then
response.redirect("admin.asp")
else
session("name")=rs.fields("name")
session("id")=rs.fields("id")
response.write "<script>window.alert('登陆成功');window.location.href='guanliliuyan.asp'</script>"
end if
%>


还是跟没加这个句一样
2006-06-23 16:57
疯狂IT界
Rank: 1
等 级:新手上路
帖 子:83
专家分:0
注 册:2006-6-6
得分:0 
2006-06-23 17:16
疯狂IT界
Rank: 1
等 级:新手上路
帖 子:83
专家分:0
注 册:2006-6-6
得分:0 
不行呀,无法显示该页
2006-06-23 17:29
疯狂IT界
Rank: 1
等 级:新手上路
帖 子:83
专家分:0
注 册:2006-6-6
得分:0 

怎么发,是这个么
<%
Connstr="DBQ="+server.mappath("admin.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;"
set conn=server.createobject("adodb.connection")
conn.open Connstr
sqlstr="select * from check
where name='"&request("name")&"'"&"and password='"&request("password")&"'"

set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,1,3
if not rs.eof then
session("mamu")=1
response.write "<script>window.alert('恭喜\n\n登录成功,点击进入');window.location.href='guanliliuyan.asp'</script>"
else
response.write "<script>window.alert('对不起,你输入的帐号和密码有误,请重新输入。点击返回');window.location.href='admin.asp'</script>"
end if


rs.close
set rs=nothing
conn.close
set conn=nothing
%>

2006-06-23 17:49
疯狂IT界
Rank: 1
等 级:新手上路
帖 子:83
专家分:0
注 册:2006-6-6
得分:0 

你qq多少 ,qq上聊

2006-06-23 18:01



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-74313-1-1.html




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

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