请教个asp登陆问题

mzwr 2005-11-26 10:02:19

初学asp还望指点下

不知道为什么我这短代码在运行时老是运行不了

dim userName,passWord

userName=Trim(Request.form("userName"))
passWord=Trim(Request.form("passWord"))

if userName = "" or passWord = "" then
response.Redirect("error.htm")
end if
dim conn,rst,i,flag
set conn = server.CreateObject("adodb.connection")
set rst = server.CreateObject("adodb.recordset")
con.connectionstring = "driver ={microsoft access driver (*.mdb)};"&"dbq = G:\ASP\test1\db1.mdb"
conn.open
rst.Open "select * form userInfo", conn, adOpenDynamic, adLockOptimistic

do while not rst.eof
if rst.fields("用户名") = userName and rst.fields("密码") = passWord then
response.Redirect("ok.htm")
flag=true
exit do
end if
rst.movenext
loop
if not flag then
response.Redirect("error.htm")
end if
conn.close
rst.close

...全文

112 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

superice_good 2005-11-27

打赏
举报

除了楼上说的这个书写错误外，我看你是用adodb连接的，不知你的数据库驱动是否连接正确，
你可以换下oledb的连接方式试试看，我按照你的改了一下

set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("db1.mdb")

还有你给log赋个初值：log=false

mzwr 2005-11-27

打赏
举报

我感觉错误还是出在数据库连接上了，但是又不知道错在哪里

mzwr 2005-11-27

打赏
举报

我照大家说的改了下，可是老是在密码输入正确的时候出现：HTTP 500 - 内部服务器错误

这是全部代码，表单用的post方式应该没错吧，还请各位帮忙解决下，急用的，谢谢了

对了还有那个log=false是什么意思？

<%@ language="vbscript" %>
<%
dim userName,passWord

userName=Request.form("userName")
passWord=Request.form("passWord")

if userName = "" or passWord = "" then
response.Redirect("error.htm")
end if
dim conn,rst,i,flag,strconn
flag=true

set conn = server.createobject("adodb.connection")
set rst = server.CreateObject("adodb.Recordset")

conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source = " & server.mappath("db1.mdb")
conn.open
rst.Open "select * from userInfo", conn, adOpenDynamic, adLockOptimistic

do while not rst.eof
if rst.fields("用户名") = userName then
if rst.fields("密码") = passWord then
response.Redirect("ok.htm")
flag=false
exit do
end if
end if
rst.movenext
loop

if flag then
response.Redirect("error.htm")
end if
conn.close
rst.close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>

</body>
</html>