How do I verify the IP address?

How do I verify the IP address?

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 ""

End if

End sub

Note: For more exciting tutorials, please follow the help houseGraphic tutorialChannel,