欢迎来到老马的领地~ 这是“压风式散热底座”发明者的个人网站：) 本人QQ:80524554,用户群1:562279766

NND,国外机器人也很猖狂啊,果断再改代码! NND,国外机器人也很猖狂啊,果断再改代码!


[ | by ]

之前把日志评论那边的代码改了,于是评论的垃圾信息就几乎没有了.

但是留言本那边可就翻了天了,拼了命的在填啊填,真当我是没办法防了么biggrin.gif

看了一下垃圾信息,全是广告,那现在先按关键字来过滤,因为非常有规律,全是包含://,<a href=之类的,那就先用这两个来过滤吧.

希望最后不要被迫加装一个验证码!sleep.gif

要改的地方很简单,在class/gb.php这个文件里.

一开头就能看到if ($newgb) {这样的语句,这是新留言的处理入口.

接着就是开始处理了,在内容为空的判断之后添加:

                        if(@strstr($_POST['username'],"://"))
                        {
                                ob_exit("对不起,您的用户不合法!");
                        }
                        
                        if(@strstr($_POST['content'],"<a href="))
                        {
                                ob_exit("对不起,您的用户不合法!");
                        }


然后就行了.....

这几天先观察观察吧.
4 条评论
# 1: VB_Player said:
2013-08-15 17:06:46

VB 6里面使用多线程提高穷 举速 度(V B 6代 码)


这里面的多线程例子中双线程的时间计算函数GetMaxMin存 在错 误。

Private Sub GetMaxMin(ByVal lMaxORMin As Long)
'取最小的开始时间与最大的结束时间
If lMaxORMin = 1 Then
If lTS1 <> 0 And lTS2 <> 0 Then
If lTS1 > lTS2 Then
tMin = lTS2
Else
tMin = lTS1
End If
lTS1 = 0: lTS2 = 0
End If
Else
If lTE1 <> 0 And lTE2 <> 0 Then
If lTE1 > lTE2 Then
tMax = lTE2 ' 句1：取值反 了
Else
tMax = lTE1
End If
lTE1 = 0: lTE2 = 0
Command1.Enabled = True
Command2.Enabled = True
MsgBox "总耗时: " & tMax - tMin & "m s"
End If
End If
End Sub

句1取值反 了。事实上，即使修正了，时间 差的计 算结果也不是正 确的。
简单地更正：
Private Sub cT1_Complet(ByVal T As Long)
List1.AddItem "cT1 Complet = " & T
lTE1 = T

lA = lTE1 - lTS1
List1.AddItem "总耗时: " & lA & "ms"
End Sub

Private Sub cT2_Complet(ByVal T As Long)
List1.AddItem "cT2 Complet = " & T
lTE2 = T

lB = lTE2 - lTS2
List1.AddItem "总 耗 时: " & lB & "ms"
End Sub


目 测：双 线 程下的lA+lB之和 与单 线 程下的lA比 较 即 可。
# 2: VB_Player said:
2013-08-15 17:07:24
http ://www.m 5 home.com/bak _blog/article/287.html
# 3: 嗷嗷叫的老马 said:
2013-08-19 17:20:36
TO VB_Player:

谢谢,那个代码没仔细去推敲,而且也没多少人看,所以一直没人发现这问题,哈哈.
# 4: 嗷嗷叫的老马 said:
2013-08-19 17:21:27
晕,好象删错了一条评论,记得是说南充什么的.....- -!可恶的垃圾评论太多了
添加评论

昵称 *

E-mail