我的知识:网络,广告,生意,销售,管理

现在每天我的网站都有上千个贴是别的通过群发软件远程发的，真是烦不胜烦，应该怎么样限制呢？
Rem   判断发言是否来自外部  
  function   ChkPost()  
  dim   server_v1,server_v2  
  chkpost=false  
  server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))  
  server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))  
  if   mid(server_v1,8,len(server_v2))<>server_v2   then  
  chkpost=false  
  else  
  chkpost=true  
  end   if  
  end   function