anti span in blog

anti spam with Chinese word

MT�t?���U���d�����@?�S���A�N�O�d�������ܦh?���A�D�`?�H�A�b??�F���???����Z�ǰt���h��??���X?�b�d�����A�M�Z�P?�O�_�O�U���d���O�@?�n?�k?����j�h?���d���C��??�F�j?�@�P�A�ĪG��?��?�C

�H�U�N??��bmt-comments.cgi��use strict;�U���C

use CGI qw(:standard);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
my $tck = param('text');
die if($tck ne "" && $tck !~ /[\x80-\xff]/);
# �H�W�P?�O�_�O����d��
my $ncom = 0;
while ( $tck =~ /http/g ) { $ncom ++ ; }
die if( $ncom > 1 );
# �H�W�P?���h��?URL�X?
}

?�� $ncom �N�O?�⨽����?��??�A�p�G�j�_1�A�N?���U���d���F�A������?�C??�i�H����?��?��C