access找不到输入表或者dual_[Microsoft][ODBC Microsoft Access 驱动程序] Microsoft Jet 数据库引擎找不到输入表或查询 'Users'。...

麻烦大神看看错误在哪(我有db1.mdb文件，里面有表db1)dimConn,rsSetConn=Server.CreateObject("ADODB.Connection")'完成数据库连接前的宣告动作Conn.Open"Driver={MicrosoftAccessD...

麻烦大神看看错误在哪(我有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

展开