面对广告贴如何加一个发贴关键词检查，发现就禁止发表，回复

MYCSG.CN

面对广告贴如何加一个发贴关键词检查，发现就禁止发表，回复 - 文章首页→返回版区

■标题:面对广告贴如何加一个发贴关键词检查，发现就禁止发表，回复

■作者:IPSC [2011/3/18 15:24:55]
数据就保存在后台禁止注册的字符里面，反正不常用，无冲突

用记事本打开 AddPost.asp AddTopic.asp EditPost.asp 找到：

Body=BodyEncode(Request.Form("Body"))

在下面加上：

'######## 面对广告贴如何加一个发贴关键词检查，发现就禁止发表########
'代码原创：IPSC
killword8=SiteConfig("BannedRegUserName")
if instr(killword8,"|")>0 then
checkname=split(killword8,"|")
for i=0 to ubound(checkname)
if checkname(i)<>empty and instr(Message,"禁止发广告贴！")=0 then
if instr(Body,checkname(i))>0 then Message=Message&"<li>禁止发广告贴！"
end if
next
set checkname=nothing
elseif killword8<>"" then
if instr(Body,checkname(i))>0 then Message=Message&"<li>禁止发广告贴！"
end if
'####################################

【回复/版区/上篇/下篇/发贴/仅文字/HTML】

【倒序/最近21条回复】(暂无)

(查看完整版网页)

短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
93 毫秒 .