正则表达式检查来访IP是否合法的实际应用


subchkIP(boardid)
dimrsIP
dimipArr
dimignored
dimi
dimip
dimsql
ip=Request.ServerVariables("REMOTE_ADDR")
ignored=false
ifnotisempty(boardid)then
sql="selectignoreipfromboardwhereboardid="&cstr(boardid)
setrsIP=conn.execute(sql)
ifnot(rsIP.eofandrsIP.bof)then
ifinstr(cstr(rsIP("ignoreip")&""),chr(13)&chr(10))then
iparr=split(rsIP("ignoreip"),chr(13)&chr(10))
fori=0toubound(iparr)
iftrim(iparr(i))<>""andleft(ip,len(trim(iparr(i))))=trim(iparr(i))then
ignored=true
exitfor
endif
next
else
iparr=rsIP("ignoreip")
ifip=trim(iparr)then
ignored=true
endif
endif
endif
rsIP.close
endif
ifignoredthen
response.write"<scriptlanguage=javascript>window.location.href='ignoreip.htm'</script>"
endif
endsub