阻止发广告的万能方法

蓝雨

说明：以下方法适用于7.1，和7.1 SP1
此方法将使满足条件的贴子进入审核中，没有审核不能显示，不会将用户发贴删除。

一、打开Savepost.asp
二、搜索到NeedIsAudit=0
三、在它下面加上以下代码：

QUOTE:

\\\'VILL 新用户含链接不能发表
If DateDiff(\"d\",Dvbbs.MyUserInfo(14),Now()) < 10 Then\\\'10表示对注册不满10天的用户进行检查
Dim BlackList,TempBodyInfo,V
BlackList = \".cn|.net|.com|.org|.cc|.biz|合租服务器|入chinanet|整机租用|虚拟主机|域名注册|企业邮局\"\\\'这里可以自定义关键字
BlackList = Split(BlackList,\"|\")
TempBodyInfo = Content
TempBodyInfo = LCase(TempBodyInfo)
For V=0 To UBound(BlackList)
If InStr(TempBodyInfo,BlackList(V)) > 0 Then
NeedIsAudit=1
Exit Function
End If
Next
End If
\\\'添加结束