sqlDel="select * from News where ID=" & CLng(ID) 
Set rsDel= Server.CreateObject("ADODB.Recordset") 
rsDel.open sqlDel,conn,1,3
  
  rsDel.delete  '删除出错的这行 
  Conn.Execute("delete from News where ID=" & CLng(ID))　'用这行方式执行删除 
  set rsDel=nothing