只允许本公司内部IP访问

只需判断IP的前两段即可。192.168.X.X是内网地址，即使别人的内网地址也是192.168.X.X，但在访问你公司的网站时，他网内所有计算机的192.168.X.X的IP都显示它整个公网的地址，所以在访问你公司时他的IP永远不会是192.168.X.X。

<%
dim a
a=Request.ServerVariables("REMOTE_ADDR")
if left（a,7）<>"192.168" then
response.redirect(Index.asp)
end if
%>