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

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


<%
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编辑过]

response.write "<script>window.alert('登陆成功');window.location.href='guanliliuyan.asp'</script>"

不行呀

<%
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
%>


还是跟没加这个句一样

%
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
%>

换成上面的你再试试吧。是不是你在数据库里设置好了一个用户和密码？

恩

试过了吗，。有用吗？

不行呀,无法显示该页

晕，不可能吧，你把你的发过来我帮你改吧。

怎么发,是这个么
<%
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
%>