如何驗(yàn)證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=javascript>window.location.href='ignoreip.htm'</script>"
    end if
    end sub