How do I verify an 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=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 ""

End If

End Sub

Note : For more wonderful tutorials, please pay attention to the Triple graphics tutorial channel,