打开 inc/syscode_guest.asp ，可以看到，动力的保存留言参数为 savewrite

我们就把所有的 savewrite 为新的变量，随便改个什么名称，如save_write、savewrite1、……， 即可防止此类留言。因为参数改了，发送就错误了，留言就失败了。

有三处修改：

1、
select case Action
case "write"
  PageTitle="签写留言"
case "savewrite"
  PageTitle="保存留言"

2、
sub GuestBook()
select case Action
  case "write"
   call WriteGuest()
  case "savewrite"

3、
<form name="formwrite" method="post" action="<%=strFileName%>?action=savewrite" onSubmit="return check(formwrite)">

因为我用的是阿江统计2.0，所以已经看到好几个发送垃圾留言的记录了，但都没发送成功！呵呵！

以上方法针对自动发垃圾的机器。

下一个方法则是针对登陆网站发垃圾留言的：

垃圾留言都有一个特点：发广告，广告总要留地址吧！

在 inc/admin_code_guest.asp 中找到
if GuestName="" or GuestTitle="" or GuestContent="" then
  call Guest_info("<li>留言发送失败！</li><li>请将必要的信息填写完整！</li>")
  exit sub
end if

在此下面：
dim GuestContentCheck
GuestContentCheck=replace(GuestContent,"http://","")
GuestContentCheck=replace(GuestContentCheck,"www","")
  if GuestContentCheck<>GuestContent then
  call Guest_info("<li>留言发送失败！</li><li>不可预料的错误！</li>")
  exit sub
end if

留言不能发网址，真没劲！

补充一点：就是现在有人已经被攻击了如何删除垃圾留言呢？

用acc打开数据库 然后修复和压缩下数据库 就可以直接删除了！