asp屏蔽国内所有ip

<%@ Language=VBScript %>
<%
Function IsChineseIP(ip)
    Dim ipArray, i, part, chineseIPs
    chineseIPs = Array("1.0.0.0", "1.0.0.255", "1.0.1.0", "1.0.3.255", "1.0.4.0", "1.0.7.255", "1.0.8.0", "1.0.15.255", "1.0.16.0", "1.0.31.255", "1.0.32.0", "1.0.63.255", "1.0.64.0", "1.0.127.255", "1.0.128.0", "1.0.255.255", "1.1.0.0", "1.1.1.0", "1.1.63.255", "1.1.64.0", "1.1.127.255", "1.1.128.0", "1.1.255.255", "1.2.0.0", "1.2.1.0", "1.2.3.255", "1.2.4.0", "1.2.7.255", "1.2.8.0", "1.2.15.255", "1.2.16.0", "1.2.31.255", "1.2.32.0", "1.2.63.255", "1.2.64.0", "1.2.127.255", "1.2.128.0", "1.2.255.255", "1.3.0.0", "1.3.1.0", "1.3.3.255", "1.3.4.0", "1.3.7.255", "1.3.8.0", "1.3.15.255", "1.3.16.0", "1.3.31.255", "1.3.32.0", "1.3.63.255", "1.3.64.0", "1.3.127.255", "1.3.128.0", "1.3.255.255", "1.4.0.0", "1.4.1.0", "1.4.3.255", "1.4.4.0", "1.4.7.255", "1.4.8.0", "1.4.15.255", "1.4.16.0", "1.4.31.255", "1.4.32.0", "1.4.63.255", "1.4.64.0", "1.4.127.255", "1.4.128.0", "1.4.255.255", "1.5.0.0", "1.5.1.0", "1.5.3.255", "1.5.4.0", "1.5.7.255", "1.5.8.0", "1.5.15.255", "1.5.16.0", "1.5.31.255", "1.5.32.0", "1.5.63.255", "1.5.64.0", "1.5.127.255", "1.5.128.0", "1.5.255.255", "1.6.0.0", "1.6.1.0", "1.6.3.255", "1.6.4.0", "1.6.7.255", "1.6.8.0", "1.6.15.255", "1.6.16.0", "1.6.31.255", "1.6.32.0", "1.6.63.255", "1.6.64.0", "1.6.127.255", "1.6.128.0", "1.6.255.255", "1.7.0.0", "1.7.1.0", "1.7.3.255", "1.7.4.0", "1.7.7.255", "1.7.8.0", "1.7.15.255", "1.7.16.0", "1.7.31.255", "1.7.32.0", "1.7.63.255", "1.7.64.0", "1.7.127.255", "1.7.128.0", "1.7.255.255", "1.8.0.0", "1.8.1.0", "1.8.3.255", "1.8.4.0", "1.8.7.255", "1.8.8.0", "1.8.15.255", "1.8.16.0", "1.8.31.255", "1.8.32.0", "1.8.63.255", "1.8.64.0", "1.8.127.255", "1.8.128.0", "1.8.255.255", "1.9.0.0", "1.9.1.0", "1.9.3.255", "1.9.4.0", "1.9.7.255", "1.9.8.0", "1.9.15.255", "1.9.16.0", "1.9.31.255", "1.9.32.0", "1.9.63.255", "1.9.64.0", "1.9.127.255", "1.9.128.0", "1.9.255.255", "1.10.0.0", "1.10.1.0", "1.10.3.255", "1.10.4.0", "1.10.7.255", "1.10.8.0", "1.10.15.255", "1.10.16.0", "1.10.31.255", "1.10.32.0", "1.10.63.255", "1.10.64.0", "1.10.127.255", "1.10.128.0", "1.10.255.255", "1.11.0.0", "1.11.1.0", "1.11.3.255", "1.11.4.0", "1.11.7.255", "1.11.8.0", "1.11.15.255", "1.11.16.0", "1.11.31.255", "1.11.32.0", "1.11.63.255", "1.11.64.0", "1.11.127.255", "1.11.128.0", "1.11.255.255", "1.12.0.0", "1.12.1.0", "1.12.3.255", "1.12.4.0", "1.12.7.255", "1.12.8.0", "1.12.15.255", "1.12.16.0", "1.12.31.255", "1.12.32.0", "1.12.63.255", "1.12.64.0", "1.12.127.255", "1.12.128.0", "1.12.255.255", "1.13.0.0", "1.13.1.0", "1.13.3.255", "1.13.4.0", "1.13.7.255", "1.13.8.0", "1.13.15.255", "1.13.16.0", "1.13.31.255", "1.13.32.0", "1.13.63.255", "1.13.64.0", "1.13.127.255", "1.13.128.0", "1.13.255.255", "1.14.0.0", "1.14.1.0", "1.14.3.255", "1.14.4.0", "1.14.7.255", "1.14.8.0", "1.14.15.255", "1.14.16.0", "1.14.31.255", "1.14.32.0", "1.14.63.255", "1.14.64.0", "1.14.127.255", "1.14.128.0", "1.14.255.255", "1.15.0.0", "1.15.1.0", "1.15.3.255", "1.15.4.0", "1.15.7.255", "1.15.8.0", "1.15.15.255", "1.15.16.0", "1.15.31.255", "1.15.32.0", "1.15.63.255", "1.15.64.0", "1.15.127.255", "1.15.128.0", "1.15.255.255", "1.16.0.0", "1.16.1.0", "1.16.3.255", "1.16.4.0", "1.16.7.255", "1.16.8.0", "1.16.15.255", "1.16.16.0", "1.16.31.255", "1.16.32.0", "1.16.63.255", "1.16.64.0", "1.16.127.255", "1.16.128.0", "1.16.255.255", "1.17.0.0", "1.17.1.0", "1.17.3.255", "1.17.4.0", "1.17.7.255", "1.17.8.0", "1.17.15.255", "1.17.16.0", "1.17.31.255", "1.17.32.0", "1.17.63.255", "1.17.64.0", "1.17.127.255", "1.17.128.0", "1.17.255.255", "1.18.0.0", "1.18.1.0", "1.18.3.255", "1.18.4.0", "1.18.7.255", "1.18.8.0", "1.18.15.255", "1.18.16.0", "1.18.31.255", "1.18.32.0", "1.18.63.255", "1.18.64.0", "1.18.127.255", "1.18.128.0", "1.18.255.255", "1.19.0.0", "1.19.1.0", "1.19.3.255", "1.19.4.0", "1.19.7.255", "1.19.8.0", "1.19.15.255", "1.19.16.0", "1.19.31.255", "1.19.32.0", "1.19.63.255", "1.19.64.0", "1.19.127.255", "1.19.128.0", "1.19.255.255", "1.20.0.0", "1.20.1.0", "1.20.3.255", "1.20.4.0", "1.20.7.255", "1.20.8.0", "1.20.15.255", "1.20.16.0", "1.20.31.255", "1.20.32.0", "1.20.63.255", "1.20.64.0", "1.20.127.255", "1.20.128.0", "1.20.255.255", "1.21.0.0", "1.21.1.0", "1.21.3.255", "1.21.4.0", "1.21.7.255", "1.21.8.0", "1.21.15.255", "1.21.16.0", "1.21.31.255", "1.21.32.0", "1.21.63.255", "1.21.64.0", "1.21.127.255", "1.21.128.0", "1.21.255.255", "1.22.0.0", "1.22.1.0", "1.22.3.255", "1.22.4.0", "1.22.7.255", "1.22.8.0", "1.22.15.255", "1.22.16.0", "1.22.31.255", "1.22.32.0", "1.22.63.255", "1.22.64.0", "1.22.127.255", "1.22.128.0", "1.22.255.255", "1.23.0.0", "1.23.1.0", "1.23.3.255", "1.23.4.0", "1.23.7.255", "1.23.8.0", "1.23.15.255", "1.23.16.0", "1.23.31.2