<!-- #include file="db.asp" --> // 引用连接数据库   

   <%
   dim username,userpassword
   username=request.form("t_user")
   userpassword=request.form("a")
   if username="" then
   %>
  
   <script language=javascript>
alert("帐号不能为空"); location.href="index.asp"
   </script>  
   <%end if%>

  <%if userpassword="" then%>

   <script language=javascript>
alert("密码不能为空"); location.href="index.asp"
   </script>
  <%end if %>
  
  <%
dim rs
set rs=server.CreateObject("adodb.recordset")
 rs.open "select * from user where U_name='"&username&"'",conn,1,1
if not rs.eof then
if userpassword=rs("U_code") then
session("username")=username
Response.write("<script>location.href('login.asp')</script>" )
else

response.write ("<script>alert('用户密码错误');location.href('index.asp')</script>")
end if
end if

if rs.eof then
response.write ("<script>alert('用户帐号错误');location.href('index.asp')</script>")

end if

set rs=nothing
rs.close
  %>
当我按F12后 出现缺少对象 52行
rs.close 这个出错!
我反复检查了几遍了.还是一样的错误.请高手帮忙看看!
非常感谢!
我是新手!


这里的代码是  最上面引用文件了一的代码:
<%
set conn=server.CreateObject("adodb.connection")
conn.open "Driver=driver do microsoft Access (*.mdb);uid=;pwd=;DBQ="&server.MapPath("date\oadb.mdb")
%>