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

更多信息請查看IT技術(shù)專欄