Question

提示错误类型： Microsoft VBScript 运行时错误 (0x800A01A8) 缺少对象: '' 代码如下，要怎么改？

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <% dim Admin_User,Admin_Pass,sql Admin_User=request.form("user") Admin_Pass=request.form("pw") set rs=Server.CreateObject("ADODB.Recordset") sql="Select user,name from zhuce where user='"&Admin_User&"'and pw='"&Admin_Pass&"'" rs.open sql,sjk.mdb If rs.EOF then Response.Write"<title>检验用户输入的帐号和密码</title>" mess="帐号或密码错误，请重新填写！" Response.Write"<p><center><h3>"& mess &"</h3>" Response.Write"<a href=index.html>返回首页</a></center>" Response.End Else '验证无误，使用session对象跟踪用户帐号及姓名 session("Admin_User")=user session("name")=rs("name") '将网页定定向到网站的主页面" http://www.baidu.com/" Response.Redirect(" http://www.baidu.com/" ) End If %>

若以下回答无法解决问题，邀请你更新回答

Answer 1

我不知道你的网页有没有贴完。但是从这段看来 rs.open sql,sjk.mdb 这句话是有问题的。。。。 我不知道你sjk.mdb是什么东西。如果是数据库，那么也不是这么用的应该先定义连接。才能使用 <% set conn=Server.CreateObject("ADODB.Connection") conn.open "DRIVER=Driver do Microsoft Access (*.mdb);DBQ="&Server.MapPath("sjk.mdb") %> 然后你那句才改为 rs.open sql,conn,1,1