正确语句:

  if not conn.execute("select id from ks_comment where infoid=" & infoid & " and channelid=" & channelid & " and username='" & AnounName & "'").eof then

  response.write "你已发表过了!" :response.end

 end if

plus/comment.asp,500多行

Set RS=Server.CreateObject("ADODB.RECORDSET")

   if not conn.execute("select count(id) from ks_comment where infoid=" & infoid & " and channelid=" & channelid & " and username='" & username & "'").eof then

  response.write "<script>alert('你已发表过了!');</script>" :response.end

 end if

    if KS.C_S(Channelid,12)=1 Or KS.C_S(ChannelID,12)=3 then
   verific=0
    else
   verific=1
    end if