<judgeIp.inc>
<%
'获得远程主机ip地址
remoteip=Request.ServerVariables("REMOTE_ADDR")
'与本单位IP地址做比较
if remoteip="xxx.xxx.xxx.xxx" then
isUser=true
elseif remoteip="xxx.xxx.xxx.xxx" then
isUser=true
..................
else
isUser=false
end if
'如果不是本单位ip转向报错
if not isUser then
response.redirect("error.htm")
end if

'引用做判断
<!-- #inclue file="judge.inc" -->

如果ip较多，就需要分析数据，作个字符解析，然后建个数组做循环处理了。