set rs=server.createobject("adodb.recordset") 
  sql="INSERT INTO guestbook (name,txt1,txt2) values('"&name&"','"&txt1&"','"&txt2&"')" 
  rs.open sql,conn,3,3 
  Response.write " <script>alert('您的留言成功,谢谢你的光临!');location.href='guestbook.asp' </script>" 
  rs.close  ----------------------》这就是出错的386行~~  End if 
改成
sql="INSERT INTO guestbook (name,txt1,txt2) values('"&name&"','"&txt1&"','"&txt2&"')" 
conn.execute(sql)
Response.write " <script>alert('您的留言成功,谢谢你的光临!');location.href='guestbook.asp' </script>" 
set rsdel=server.createobject("adodb.recordset") 
  rsdel.open "DELETE FROM guestbook WHERE id = "&id&" ",conn,1,3 
  Response.Write(" <script>alert('删除成功!');window.location=('admin_guestbook.asp') </script>") 
  rsdel.close:set rsdel=nothing--------》这就是提示的248行 
改成
sql = "DELETE FROM guestbook WHERE id = "&id&" "
conn.execute(sql)
Response.Write(" <script>alert('删除成功!');window.location=('admin_guestbook.asp') </script>") 

解决方案 »

  1.   

    你是不是应该把 
      rs.close  ----------------------》这就是出错的386行~~  End if 
      End if   set rs=nothing 和rsdel.close:set rsdel=nothing--------》这就是提示的248行 中的 关闭与清空交换一下位置...
      

  2.   

    提示~~
    错误类型:
    Microsoft VBScript 运行时错误 (0x800A01A8)
    缺少对象: 'Conn'
    /mysaten/shendun/guestbook.asp, 第 383 行
    改成 
    sql="INSERT INTO guestbook (name,txt1,txt2) values('"&name&"','"&txt1&"','"&txt2&"')" 
    conn.execute(sql) ----------这是383行
    Response.write " <script>alert('您的留言成功,谢谢你的光临!');location.href='guestbook.asp' </script>" 
    错误类型:
    Microsoft VBScript 运行时错误 (0x800A01A8)
    缺少对象: 'Conn'
    /mysaten/shendun/admin_guestbook.asp, 第 245 行
    改成 
    sql = "DELETE FROM guestbook WHERE id = "&id&" " 
    conn.execute(sql) -----------这是245行~~
    Response.Write(" <script>alert('删除成功!');window.location=('admin_guestbook.asp') </script>")