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 subxml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??