The actual application of regular expressions to check whether the visiting IP is legal

The practical application of regular expressions to check whether the visiting IP is legal.

  
sub chkIP(boardid)
dim rsIP
dim ipArr
dim ignored
dim i
dim ip
dim sql 
ip=("REMOTE_ADDR") 
ignored=false
if not isempty(boardid) then 
sql="select ignoreip from board where boardignoreip")&""),chr(13)&chr(10)) then 
iparr=split(rsIP("ignoreip"),chr(13)&chr(10))
for i=0 to ubound(iparr)
if trim(iparr(i))<>"" and left(ip,len(trim(iparr(i))))=trim(iparr(i)) then 
ignored=true
exit for
end if
next
else
iparr=rsIP("ignoreip")
if ip=trim(iparr) then 
ignored=true
end if
end if
end if

end if
if ignored then 
 "<script language=javascript>=''</script>"
end if
end sub