如何验证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(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 　　　　 rsIP.close 　　　end if 　　　if ignored then 　　　　 response.write \”<script language=&#106avascript>window.location.href=\’ignoreip.htm\'</script>\” 　　　end if 　end sub