北京ip

dim status
status="false"
tempIP = Request.ServerVariables("Remote_Addr")
response.write(tempIP&"h1<br>")
Set regEx = New RegExp    
regEx.IgnoreCase = True                      
regEx.Global = True   
MyArray = Array("47.153.*.*","47.154.*.*","58.30.*.*","58.83.*.*","58.1[1-3]{1}[0-9]{1}.*.*","58.194.*.*","58.195.*.*","58.200.*.*","58.206.*.*","58.207.*.*","59.64.*.*","59.65.*.*","59.151.*.*","60.30.*.*","60.194.*.*","60.195.*.*","60.206.*.*","60.207.*.*","60.247.*.*","60.253.*.*","61.4.*.*","61.[4|5]{1}[0-9]{1}.*.*","61.135.*.*","61.148.*.*","61.149.*.*","61.232.*.*","61.237.*.*","116.58.*.*","116.62.*.*","116.90.*.*","116.128.*.*","116.193.*.*","116.213.*.*","116.214.*.*","116.242.*.*","117.53.*.*","117.72.*.*","117.73.*.*","117.74.*.*","117.103.*.*","117.106.*.*","117.107.*.*","117.11[2-9]{1}.*.*","117.120.*.*","117.122.*.*","118.144.*.*","118.146.*.*","118.2[1|2]{1}[0-9]{1}.*.*","118.229.*.*","119.12.*.*","119.161.*.*","120.48.*.*","121.4.*.*","121.5.*.*","121.47.*.*","121.51.*.*","121.52.*.*","121.58.*.*","121.70.*.*","121.79.*.*","121.100.*.*","121.101.*.*","121.194.*.*","121.195.*.*","122.9.*.*","122.49.*.*","122.67.*.*","122.70.*.*","122.102.*.*","122.152.*.*","122.200.*.*","123.99.*.*","123.100.*.*","123.103.*.*","123.108.*.*.*","123.1[1|2]{1}[0-9]{1}.*.*","124.14.*.*","124.*.*.*","125.33.*.*","125.34.*.*","125.35.*.*","125.61.*.*","125.96.*.*","125.97.*.*","125.98.*.*","125.208.*.*","125.221.*.*","132.246.27.*","147.243.*.*","159.226.*.*","161.207.*.*","162.1[0-9]{2}.*.*","202.[0|3|4]{1}.*.*","202.12.*.*","202.10.*.*","202.14.*.*","202.20.*.*","202.[3|4]{1}[9|0|1]{1}.*.*","202.43.*.*","202.46.*.*","202.60.*.*","202.85.*.*","202.90.*.*","202.9[1-9]{1}.*.*","202.106.*.*","202.108.*.*","202.112.*.*","202.122.*.*","202.123.*.*","202.127.*.*","202.130.*.*","202.142.*.*","202.14[8|9]{1}.*.*","202.152.*.*","202.165.*.*","202.179.2[0-9]{2}.*.*","202.189.[8|9]{1}[0-9]{1}.*","202.204.*.*","202.234.*.*","203.81.*.*","203.83.*.*","203.86.*.*","203.87.*.*","203.90.*.*","203.91.*.*","203.92.*.*","203.93.*.*","203.95.*.*","203.100.*.*","203.119.*.*","203.128.*.*","203.130.*.*","203.134.*.*","203.135.*.*","203.148.*.*","203.158.*.*","203.163.*.*","203.174.*.*","203.1[8|9]{1}[0-9]{1}.*.*","203.20[7|8|9]{1}.*.*","203.212.*.*","210.5.*.*","210.1[2|3|4|5]{1}.*.*","210.25.*.*","210.31.*.*","210.5[1|2|3]{1}.*.*","210.[7|8]{1}[0-9]{1}.*.*","210.144.*.*","210.192.*.*","211.68.*.*","211.71.*.*","211.81.*.*","211.82.*.*","211.88.*.*","211.89.*.*","211.*.*.*","218.11.*.*","218.13.*.*","218.13.*.*","218.23.*.*","218.25.*.*","218.28.*.*","218.29.*.*","218.30.*.*","218.9[6|7|8|9]{1}.*.*","218.104.*.*","218.106.*.*","218.107.*.*","218.20[5|6]{1}.*.*","218.24[0-6]{1}.*.*","219.72.*.*","219.*.*.*","220.101.*.*","220.113.*.*","220.181.*.*","220.192.*.*","220.193.*.*","220.194.*.*","220.205.*.*","220.206.*.*","220.207.*.*","220.231.*.*","220.2[4|5]{1}[0-9]{1}.*.*","221.[1|2]{1}[2|3||7|1]{1}[0-9]{1}.*.*","222.[2|3|6]{1}[0-9]{1}.*.*","222.1[2|3]{1}[0-9]{1}.*.*","222.199.*.*","222.249.*.*")
for i=0 to ubound(MyArray)
regEx.Pattern = "^"&replace(MyArray(i),"*","[0-9]{1,3}")&"$"    
if(regEx.Test(tempIP)="True") then
response.Write(MyArray(i)&"test")
  status="true"
Exit For
end if
next
if status="true" then
 'server.Transfer("../index.html")
 response.End()