试试以下修改方式

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

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

 end if