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

　　end if

　　end sub

        注：更多精彩教程请关注三联图文教程 频道，