asp页面ip防火墙限制(判断ip内网还是外网)功能

<html>
<head>
<title>asp页面IP防火墙限制功能判断ip内网还是外网</title>
</head>
<body>
<%
rip=Request.ServerVariables("REMOTE_ADDR") '得到IP地址
strip=cstr(rip)
'取得IP地址第三个段的值并保存到strip中
for i=1 to 2
strip=right(strip,len(strip)-instr(1,strip,"."))
next
strip=left(strip,instr(1,strip,".")-1)
'IP地址有效性检验及密码验证，包括两方面的内容：
'如果IP地址符合则通过验证；如果IP地址不符合则检验输入的密码是否正确(此处密码为"asp")
if (left(rip,5) <> "127.1" or strip<"1" or strip>"50") and request("Passwd")<>"123456" then
%>
<font color="red">对不起，你的IP是<%=rip%><br>
本页面可以访问的IP是127.1.1.*到127.1.50.*之间，如果你是本单位内部网的用户，请确认你的浏览器没有使用代理!</font>
<form action="demo.asp" method="POST">
请输入访问密码：
<input type="password" name="Passwd" >
<input type="submit" value="确认" name="B1">
</form>
密码：123456<hr>
<%else %>
<font color="blue">祝贺您，您已经顺利通过了页面的安全认证</font><hr>
<%end if%>
实际使用只要稍微修改上面的程序(如IP地址等信息)就可以了，这只是在一个页面中实现了安全防范功能，如果一个网站有多个页面的话，可以设置一个session变量来对用户进行标志，以在后面的页面中进行判断。
</body>
</html>

前一页:asp从a到z循环输出26个英文字母

后一页:生成随机字符串的函数