关于限制IP地址访问网站的问题(网站制作)

<%
'自己写了一个，你看看行不行
'时间仓促，没有对IP的合法性进行判断，以后再完善一下

ip="10.129.209.255" '测示用，实际应用时，修改为:ip=getTrueIP
allowip1="10.129.208.1"
allowip2="10.129.211.255"

ChkIP=((cpIP(allowip1,ip) And cpIP(ip,allowip2)) Or (cpIP(allowip2,ip) And cpIP(ip,allowip1)))

if ChkIP then
response.write "IP通过验证！" '实际应用时，可将此句注示掉
else
response.write "所在IP没有访问本站权限！"
response.end
end if

'函数名：cpIP(ip1,ip2)
'比较IP1，IP2大小，如果IP1<=IP2,返回TRUE
'weiwei at 2006-11-28
Function cpIP(ip1,ip2)
minIPcx=Split(ip1,".")
maxIPcx=Split(ip2,".")
cpIPx=true
For ic_i=0 To UBound(minIPcx)
If CInt(minIPcx(ic_i))>CInt(maxIPcx(ic_i)) Then
cpIPx=false
Exit for
ElseIf CInt(minIPcx(ic_i)) Exit for
End If
Next
cpIP=cpIPx
End Function

'get the true ip
Function getTrueIP()
IPmm=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IPmm="" Then IPmm=Request.ServerVariables("REMOTE_ADDR")
getTrueIP=IPmm
End Function
%>

ip入数据库，
对比

asdasd