您所在位置：主题：谁给我看看这段代码有什么问题啊
hack119
[专家分：10] 发布于 2007-04-30 16:26:00
怎么一 登陆就出现
第18行是 rs.open rssql,conn,1,3
Microsoft JET Database Engine '80040e14'
FROM 子句语法错误。
\wwwroot\login.asp, line 18
<%
Dim user,pass
user=Trim(Request.Form("user"))
pass=Trim(Request.Form("pass"))
Dim data,conn,connstr
data="admin.mdb"
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(data)
set conn = Server.CreateObject("adodb.connection")
conn.open connstr
Dim rs,rssql
set rs=server.createobject("adodb.recordset")
rssql="select * from admin where user='" & user & "'"
rssql="select * from admin whenr pass='" & pass & "'"
rs.open rssql,conn,1,3
rs.close
set rs=nothing
Conn.Close
Set Conn = Nothing
response.write "<tr><td align='left' height='100'><br>登陆成功：" & User & "<br>"
%>
第18行是 rs.open rssql,conn,1,3
Microsoft JET Database Engine '80040e14'
FROM 子句语法错误。
\wwwroot\login.asp, line 18
<%
Dim user,pass
user=Trim(Request.Form("user"))
pass=Trim(Request.Form("pass"))
Dim data,conn,connstr
data="admin.mdb"
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(data)
set conn = Server.CreateObject("adodb.connection")
conn.open connstr
Dim rs,rssql
set rs=server.createobject("adodb.recordset")
rssql="select * from admin where user='" & user & "'"
rssql="select * from admin whenr pass='" & pass & "'"
rs.open rssql,conn,1,3
rs.close
set rs=nothing
Conn.Close
Set Conn = Nothing
response.write "<tr><td align='left' height='100'><br>登陆成功：" & User & "<br>"
%>
