亚洲免费不卡_在线视频精品_国产尤物精品_久久久久网址_久久精品91_欧美va天堂在线_狠狠入ady亚洲精品_亚洲午夜精品福利_国产精品草草_午夜精品久久99蜜桃的功能介绍

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技術專欄