[Microsoft][ODBC Microsoft Access 驱动程序] Microsoft Jet 数据库引擎找不到输入表或查询 'Users'。
麻烦大神看看错误在哪(我有db1.mdb文件,里面有表db1)dimConn,rsSetConn=Server.CreateObject("ADODB.Connectio...
麻烦大神看看错误在哪(我有db1.mdb文件,里面有表db1)
dim Conn,rs
Set Conn=Server.CreateObject("ADODB.Connection")
'完成数据库连接前的宣告动作
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};Database=db1;uid=uid;pwd=pwd;name=name;dbq=" &Server.MapPath("db1.mdb")
'验证登陆者身份
Function ValidPersonal(uid,pwd)
SQL="SELECT uid,pwd,name FROM Users WHERE uid='"+uid+"'AND pwd='"+pwd+"'"
Set rs=Conn.Execute(SQL)
If rs.Eof Then
Validpersonal=False
Else
Validpersonal=True
End If
End Function
uid=Request("uid")
pwd=Request("pwd")
If ValidPersonal(uid,pwd)=True Then
Session("uid")=rs("uid")
'Session("uid")=登陆时输入的身份证号
Session("psw")=rs("psw")
'Session("psw")=登陆时输入的身份证号
Session("name")=rs("name")
'Session("name")=会员名
Session("logined")=rs("True")
'Session("logined")=记录会员已登陆
Response.Redirect("frontpage.html")
Else
Response.Redirect("frontpage.html")
End If
Set rs=Nothing
Set Conn=Nothing 展开
dim Conn,rs
Set Conn=Server.CreateObject("ADODB.Connection")
'完成数据库连接前的宣告动作
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};Database=db1;uid=uid;pwd=pwd;name=name;dbq=" &Server.MapPath("db1.mdb")
'验证登陆者身份
Function ValidPersonal(uid,pwd)
SQL="SELECT uid,pwd,name FROM Users WHERE uid='"+uid+"'AND pwd='"+pwd+"'"
Set rs=Conn.Execute(SQL)
If rs.Eof Then
Validpersonal=False
Else
Validpersonal=True
End If
End Function
uid=Request("uid")
pwd=Request("pwd")
If ValidPersonal(uid,pwd)=True Then
Session("uid")=rs("uid")
'Session("uid")=登陆时输入的身份证号
Session("psw")=rs("psw")
'Session("psw")=登陆时输入的身份证号
Session("name")=rs("name")
'Session("name")=会员名
Session("logined")=rs("True")
'Session("logined")=记录会员已登陆
Response.Redirect("frontpage.html")
Else
Response.Redirect("frontpage.html")
End If
Set rs=Nothing
Set Conn=Nothing 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询