關於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 编辑]