代码就纠错

<%    
  dim   constr  
  dim   conn  
  set   conn=server.createobject("ADODB.connection")  
  constr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft   Access   Driver   (*.mdb)};"  
  conn.open   constr  
  %>  
  <%  
  dim   rs  
  rs=server.createobject("adodb.recordset")  
  sql="select   *   from   first;"  
  rs.open   sql,conn,1,1  
  %>  
  <%  
  on   error   resume   next  
  rs.movefirst  
  do   until   rs.eof  
  %>  
  <table><tr><td><%=rs("id")%></td><td><%=rs("title")%></td><td><%=rs("content")%></td></tr></table>  
  <%  
  rs.movenext  
  loop  
  rs.close  
  conn.close  
  %>  
  这段代码运行时发生错误，如下：Microsoft   VBScript   运行时错误   错误   '800a01b6'    
   
  对象不支持此属性或方法:   'open'    
   
  /login.asp，行12    
   
   
  请问这是到底错在哪里呢？小弟愚钝，一时之间实在找不出来，暂时分不够了，以后再加！  
  问题点数：10、回复次数：2Top

1 楼TrueAndFalse（彩旗飘飘）回复于 2004-05-04 13:26:21 得分 10

rs=server.createobject("adodb.recordset")  
  ====>  
  set   rs=server.createobject("adodb.recordset")Top

2 楼sunsonyazhi（一点零版）回复于 2004-05-04 13:34:02 得分 0

谢谢，原来错在这里，晕了Top

相关问题

• 代码
• server
• 运行
• 错误
• recordset
• adodb
• createobject
• rs

• 帖主：sunsonyazhi
• TrueAndFalse

• Web开发类图书