Regular expressions check whether a visiting IP is legitimate application _ regular expression

The application of regular expressions to check the legality of visiting IP


Sub Chkip (Boardid)
Dim Rsip
Dim Iparr
Dim ignored
Dim i
Dim ip
Dim sql
Ip=request.servervariables ("REMOTE_ADDR")
Ignored=false
If not IsEmpty (Boardid) Then
Sql= "Select Ignoreip from board where boardid=" &cstr (Boardid)
Set Rsip=conn.execute (SQL)
If not (rsip.eof and RSIP.BOF) then
If InStr (CStr (Rsip ("Ignoreip") & ""), Chr (&CHR) Then
Iparr=split (Rsip ("Ignoreip"), Chr (+) &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
Rsip.close
End If
If ignored then
Response.Write "<script language=javascript>window.location.href= ' ignoreip.htm ' </script>"
End If
End Sub