关于PJBlog过滤IP出错的问题

作者:wbc 日期:2008-05-04

字体大小: 小中大

今日Hurt说过滤了个IP，站点就出错了。
查了查代码，发现是MatchIP这个function有问题。
大家如果遇到此问题，做以下修改即可。
打开common/function.asp
找到26行附近的

代码类型：ASP [复製]

function MatchIP(IP)
	MatchIP=false
	Dim SIp,SplitIP
	for each SIp in FilterIP
		SIp=replace(SIp,"*","\d*")
		SplitIP=split(SIp,".")
		Dim re, strMatchs,strIP
		Set re=new RegExp
		re.IgnoreCase =True
		re.Global=True
		re.Pattern="("&SplitIP(0)&"|)."&"("&SplitIP(1)&"|)."&"("&SplitIP(2)&"|)."&"("&SplitIP(3)&"|)"
		Set strMatchs=re.Execute(IP)
		strIP=strMatchs(0).SubMatches(0) & "." & strMatchs(0).SubMatches(1)& "." & strMatchs(0).SubMatches(2)& "." & strMatchs(0).SubMatches(3)
		if strIP=IP then MatchIP=true:exit function
		Set strMatchs=Nothing
		Set re=Nothing
	next 
end function

由于各位添加了过滤IP，在经过FilterIP的处理，for each获得的SIp 有可能是空值比如
FilterIP=split("123.123.123.123|","|")
FilterIP的维度是2，
for SIp each inFilterIP 会获取 SIp=“123.123.123.123” 和 SIp=“”(空值)
因此。在语句下面的
SplitIP=split(SIp,".")
re.Pattern="("&SplitIP(0)&"|)."&"("&SplitIP(1)&"|)."&"("&SplitIP(2)&"|)."&"("&SplitIP(3)&"|)"
这句再split（1）或以上，就会出错。

解决办法很简单，加入判断SIp是否为空：
最后代码如下

代码类型：ASP [复製]

function MatchIP(IP)
	MatchIP=false
	Dim SIp,SplitIP
	Dim re, strMatchs,strIP
	Set re=new RegExp
	re.IgnoreCase =True
	re.Global=True
	for each SIp in FilterIP
		if SIp<> empty then
			SIp=replace(SIp,"*","\d*")
			SplitIP=split(SIp,".")
			re.Pattern="("&SplitIP(0)&"|)."&"("&SplitIP(1)&"|)."&"("&SplitIP(2)&"|)."&"("&SplitIP(3)&"|)"
			Set strMatchs=re.Execute(IP)
			strIP=strMatchs(0).SubMatches(0) & "." & strMatchs(0).SubMatches(1)& "." & strMatchs(0).SubMatches(2)& "." & strMatchs(0).SubMatches(3)
			if strIP=IP then MatchIP=true:exit function
		end if
	next 
	Set strMatchs=Nothing
	Set re=Nothing
end function

[本日志由 wbc 于 2008-05-04 12:24 AM 编辑]