ASP实现简单的网页保护
2009-05-12 15:04:34来源:未知 阅读 ()
源程序如下:(文件名:demo.ASP)
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<style>
<!--
.as{ line-height: 15px; font-size: 9pt }
a:hover {color: rgb(0,51,240);text-decoration:underline}
.p9 { font-family: "宋体"; font-size: 9pt; line-height: 15pt}
.p12 { font-family: "宋体"; font-size: 12pt; line-height: 18pt}
a:link { text-decoration: none;}
a:visited { text-decoration:none;}
a:hover {text-decoration: underline;font-size: 125%;color:blue}
-->
</style>
<title>ASP页面防火墙功能演示</title>
</head>
<body background="back.jpg">
<%
'使用Request.ServerVariables("REMOTE_ADDR")得到IP地址并保存在变量rip中
rip=Request.ServerVariables("REMOTE_ADDR")
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")<>"asp" then
%>
<p><font color="#FF0000">对不起,你的IP是<%=rip%>,本页面可以访问的IP是127.1.1.*到127.1.50.*之间,如果你是本单位内部网的用户,请确认你的浏览器没有使用代理!<BR></font></p>
<form action="demo.asp" method="POST" id=form1 name=form1>
<p>请输入访问密码:<input type="password" name="Passwd" > <input type="submit" value="确认" name="B1">;
</p>
</form>
<%else %>
'合法用户可以访问的页面,在此可以加入任何信息
祝贺您,您已经顺利通过了页面的安全认证,可以直接使用本站点的资源!
<%end if%>
</body>
</html>
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
上一篇:优化你的ASP程序
下一篇:在ASP中限制同一表单被多次提交
- asp数个使用技巧 2020-03-20
- asp正则替换链接实现伪静态效果 2020-03-15
- ASP 数字分页效果代码 2020-02-28
- ASP IE地址栏参数的判断 2020-02-24
- asp之自动闭合HTML/ubb标签函数附简单注释 2020-02-24
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash