user/user_post.asp

670行

RSObj.Open "Select top 1 * From " & KS.C_S(ChannelID,2) &" Where Inputer='" & KSUser.UserName & "' and ID=" & ID,Conn,1,3

    If RSObj.Eof Then

      if conn.execute("select count(1) From  " & KS.C_S(ChannelID,2) &" Where Inputer='" & KSUser.UserName & "'")(0)>=1 then

                  KS.Die "<script>$.dialog.tips('限制每人只能发一篇!',1,'error.gif',function(){});</script>"

      end if

      RSObj.AddNew

加上面红色