2sBLOG防灌水/防广告措施:
作者:悠然白鹿 日期:2006-05-09
以前不知道是在Luoo还是Xianghuang那里看到过介绍,但后来找不到了,看到有博友需要,就在自己的程序当中把它们给找了出来,整理了以下,贴出来:
第一步:打开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>")
完成上面四步你就可以不在为广告而烦劳了……
复制内容到剪贴板
程序代码

第一步:打开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>")
完成上面四步你就可以不在为广告而烦劳了……
评论: 2 | 引用: 0 | 查看次数: 3725



好像不是很好用啊
以前写给我姐姐看过的,找出来直接发给你看吧!
首先在其他用户评论(留言)的地方,用户名前面有这个图片
查看图片(用户自己的评论前面的图片是
查看图片),直接点击它,在评论(留言)栏里面里面就会出现(举列说明)
引用来自 清姿伊梦影
然后在其后面直接输入你的文字
引用内容
引用来自 清姿伊梦影
我会教你的,放心,呵呵……
这样一个引用就完成了,简单吧……(好像我写的很繁
)
首先在其他用户评论(留言)的地方,用户名前面有这个图片


复制内容到剪贴板
程序代码


我不会引用啊~~倒!
要糖吃~~把你塞到糖窝子里-甜死你!把书念好了,以后到姐姐这,看来~你只有甜死的份了~~可惜啊~嘎嘎!
要糖吃~~把你塞到糖窝子里-甜死你!把书念好了,以后到姐姐这,看来~你只有甜死的份了~~可惜啊~嘎嘎!
然后在其后面直接输入你的文字


我不会引用啊~~倒!
要糖吃~~把你塞到糖窝子里-甜死你!把书念好了,以后到姐姐这,看来~你只有甜死的份了~~可惜啊~嘎嘎!
要糖吃~~把你塞到糖窝子里-甜死你!把书念好了,以后到姐姐这,看来~你只有甜死的份了~~可惜啊~嘎嘎!
我会教你的,放心,呵呵……
这样一个引用就完成了,简单吧……(好像我写的很繁

什么叫做引用
发表评论