2sBLOG防灌水/防广告措施:

第一步:打开common.asp文件
找到
Dim StartTime, UserIP
StartTime=Timer()
UserIP=replace(Request.ServerVariables("REMOTE_ADDR"),"'","")
在其后面添加
DIM MaxUrl,MaxHttp
MaxUrl=5 '最多可以找到一个评论中加多少个[url ]
MaxHttp=4 '最多可以找到一个评论中加多少个 http://

第二步:打开gbook.asp文件
找到
IF Trim(Request.Form("message"))=Empty OR Trim(Request.Form("comm_memName"))=Empty Then
msg_Title="错误"
msg_Content="请填写所有要求信息.<br><br><a href=""javascript:history.go(-1);"">请返回</a>"
在其后面添加
ElseIF Strurls(Request.Form("message"),"[url")>MaxUrl or Strurls(Request.Form("message"),"http://")>MaxHttp then
msg_Title="错误"
msg_Content=" NO AD! <br> 您输入的内容有非法链接.请不要找到这里乱发广告!<br><a href='javascript:history.go(-1);'>请返回</a>"

第三步:打开blogcomm.asp文件
找到
ElseIF Trim(Request.Form("message"))=Empty OR Trim(Request.Form("comm_memName"))=Empty Then
msg_Title="错误"
msg_Content="请添满必填项目.<br><br><a href='javascript:history.go(-1);'>返回</a>"
在其后面添加
ElseIF Strurls(Request.Form("message"),"[url")>MaxUrl or Strurls(Request.Form("message"),"http://")>MaxHttp then
msg_Title="错误"
msg_Content=" 您输入的内容有非法链接。请不要找到这里乱发广告!<br><a href='javascript:history.go(-1);'>请返回</a>"

第四步:打开blogcomm.asp文件
找到
IF Trim(Request.Form("message"))=Empty OR Trim(Request.Form("id"))=Empty THEN
Response.Write("有些必填项目没有被填充。<br><br><a href='javascript:history.go(-1);'>请返回</a>")
在其后面添加
ElseIF Strurls(Request.Form("message"),"[url")>MaxUrl or Strurls(Request.Form("message"),"http://")>MaxHttp then
Response.Write("你输入的内容含有非法链接.<br><br><a href='javascript:history.go(-1);'>请返回</a>")

完成上面四步你就可以不在为广告而烦劳了……