Regular Expression to check whether the access IP address is valid

Regular Expression to check whether the access IP address is valid


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.exe conn.exe cute (SQL)
If not (rsIP. eof and rsIP. bof) then
If instr (cstr (rsIP ("ignoreip") & ""), 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
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> commandid location.href?'ignoreip.htm' </script>"
End if
End sub