这个问题大家一定碰到过。请问怎么解决？？100分赠送

Question

delete keshi where k_id=要删除的ID号 and k_id not in (select k_id from user)

Answer 1

抢分…………rec=request("ID") ''取得前面出来的要删除的ID号
dim rs,conn
set conn= Server.CreateObject("adodb.connection")
conn.open"dsn=asp;uid=;pwd=;database=message_data"
set rs=Server.CreateObject("adodb.Recordset") 
strsql="select count(a.k_id) as num from keshi a,user b where a.k_id=b.k_id and b.k_id='"&rec&"'"
rs.cursorlocation=3 
rs.cursortype=3
rs.locktype=3
rs.open strsql.cn
count=rs("num")
rs.closeif count=0 then
    strsql="delete from user where k_id='"&&"'"
    rs.open strsql,cn
end if

Answer 2

delete from keshi where k_id not in(select k_id from user)

Answer 3

k_id='"&&"'"这里 有错误.我改成k_id='"&rec&"'"出现下面错误
Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: 'select count(a.k_id)' /check_del_keshi.asp，行24 

Answer 4

delete from keshi where k_id=要删除的ID号 and k_id not in (select k_id from [user])

Answer 5

大家看看用这种思路来该看.程序可以对ELSE后面的语句进行判断.就是不能对delete进行操作。为什么？？<%  
    rec=request("ID")  
    dim rs,conn   
set conn= Server.CreateObject("adodb.connection")
conn.open"dsn=asp;uid=;pwd=;database=message_data"
    set rs=Server.CreateObject("adodb.Recordset") 
 s="select u_name from user as U ,keshi as K where U.k_ID=K.k_id and k.k_id='"&rec&"'"
        rs.open s,conn,3,3
 if rs.bof or rs.eof  then‘这里是不是要个rs.close
   s="delete from keshi where K_name='"&rec&"' "
   response.redirect"del_keshi.asp"
  rs.execute(s)  else
  response.write"用户存在，不可删除！" 
  conn.close
  set conn=nothing
  end if
  %>

Answer 6

delete from keshi where k_name='无所事事科' and k_id not in (select k_id from [user] group by k_id)