为什么会出现这个错误呢?
Microsoft JET Database Engine 错误 '80040e14'
FROM 子句语法错误。
/check.asp,行 19
objRS.Open strSQL,objConn,1,3
-------------------------------------------------------------------------------------------------
<%
Dim Uname,Upwd
Uname=Trim(Request.Form("username"))
Upwd=Trim(Request.Form("password"))
If Uname="" or Upwd="" Then
Response.Redirect("login.asp?errMsg=请完整填写表格!")
Response.End()
End if
Dim objConn,strSQL,objRS
Set objConn = Server.CreateObject("ADODB.Connection")
Dim connStr
connStr="Provider=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("db/vote.mdb")&";"
objConn.Open connStr
strSQL="select * from User where Username='"&Uname&"'"
strSQL=strSQL & "and Password='"&Upwd&"'"
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL,objConn,1,3
If objRS.Eof Then
Response.Redirect("login.asp?errMsg=用户名或密码错误!")
Response.End()
Else
Session("Id")=CStr(objRS.Fields("id"))
Session("Name")=Uname
Session("Class")=objRS.fields("class")
Session("isPwd")=True
If objRS.Fields("class")="1" Or objRS.Fields("class")="2" Then
Session("isAdmin")=True
Else
Session("isAdmin")=False
End If
If Request.Form("RemMe")="1" Then
Response.Cookies("Name")=Uname
Response.Cookies("Pwd")=Upwd
Response.Cookies("isAdmin")=1
Response.Cookies("Name").Expires=Date+365
Response.Cookies("Pwd").Expires=Date+365
Response.Cookies("RemMe").Expires=Date+365
End If
End If
objRS.Close
Set objRS=Nothing
objConn.Close
Set objConn=Nothing
Response.Redirect("index.asp")
Response.End()
%>