ASP对网页进行保护的简单代码 ip

要使用request对象的ServerVariables属性，通过它来获得环境变量的值。使用的语法为：Request.ServerVariables(variable)，“variable”表示环境变量的名称，如服务器主机名称、Web服务器软件名等等，若“variable”为“REMOTE_ADDR”则表示访问者的IP地址，通过它就可以实现IP地址的过滤。

　　源程序如下：(文件名：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>

　　 实际使用只要稍微修改上面的程序(如IP地址等信息)就可以了，当然这只是在一个页面中实现了安全防范功能，如果一个网站有多个页面的话，可以设置一个session变量来对用户进行标志，以在后面的页面中进行判断。

赞 (0)

相关推荐

  • ASP对网页进行保护的简单代码 ip

    要使用request对象的ServerVariables属性,通过它来获得环境变量的值.使用的语法为:Request.ServerVariables(variable),"variable"表示环境变量的名称,如服务器主机名称.Web服务器软件名等等,若"variable"为"REMOTE_ADDR"则表示访问者的IP地址,通过它就可以实现IP地址的过滤. 源程序如下:(文件名:demo.ASP)  <html>   <head

  • 网页禁止鼠标左右键功能的简单代码

    网页禁止鼠标左右键功能的简单代码   这个代码以前在网上找的,试用效果不错,放这里留备份,我想这个也能算是常用的代码之一了.当然啦,查看源码时鼠标肯定可以用啦,不过,有时不用想那么复杂.要求那么强大,况且源码中的代码比文本多. document.oncontextmenu=new Function("event.returnValue=false;"); document.onselectstart=new Function("event.returnValue=false;

  • ASP强制刷新网页和判断文件地址实例代码

    强制刷新网页 <% '强制性刷新随机验证码 '让随机验证码每次按IE的后退按钮时,返回登录页面的随即码都自动刷新, Response.expires=-1 Response.AddHeader"pragma","no-cache" Response.AddHeader"cache-control","no-store" %> 判断文件地址是否有效 <% Response.Write("")

  • Python实现简单网页图片抓取完整代码实例

    Python实现简单网页图片抓取完整代码实例

    利用python抓取网络图片的步骤是: 1.根据给定的网址获取网页源代码 2.利用正则表达式把源代码中的图片地址过滤出来 3.根据过滤出来的图片地址下载网络图片 以下是比较简单的一个抓取某一个百度贴吧网页的图片的实现: # -*- coding: utf-8 -*- # feimengjuan import re import urllib import urllib2 #抓取网页图片 #根据给定的网址来获取网页详细信息,得到的html就是网页的源代码 def getHtml(url): pag

  • ASP动态网页制作技术经验分享

    ASP动态网页制作技术经验分享

    学好一门编程语言有两个条件是必不可少的,一是理论与实践结合.在实际例程去验证书本上的理论能加深你对理论的理解:二是学会总结,把学习.运用中的心得体会记下来,当成一种经验或者教训加以提炼并在日后的应用中加以改进,一定能提高你对这门编程语言的认识.以下是笔者在学习与运用ASP编程中的两点经验,希望能对大家有所帮助. ASP页面内VBScript和JScript的交互 ASP具备管理不同语言脚本程序的能力,能够自动调用合适的脚本引擎以解释脚本代码和执行内置函数.ASP开发环境提供了两种脚本引擎,即VB

  • vue做网页开场视频的实例代码

    vue做网页开场视频的实例代码

    本demo背景是一个视频,文字是打印机效果,按钮在文字打完才会显示,点击按钮背景向上收起,同时显示默认首页组件(如是初建vue项目列表,则为helloWorld.vue的组件内容) 公司电脑没有gif动图尽情谅解 文末会附上demo地址,如需看效果,可前往下载 本人一直很喜欢网页开场有一段视频或动画,个人认为网页的开场动画起到引导浏览作用,相当于网页的一个开始,一个好的开始往往就成功了一半,对于浏览网站的用户来说,也就吸引了极大地注意力. 以上都是废话,网页开场动画在移动端的应用十分广泛,具体操

  • ASP.NET网页打印(只打印相关内容/自写功能)

    ASP.NET网页打印(只打印相关内容/自写功能)

    昨晚朋友要求在前段时间完成的新闻的网站上加上一个功能,就是在每篇新闻浏览的页面, 加一个打印铵钮.让用户一点打印,能把整篇文章打印.一开始建议朋友,叫用户使用IE浏览器的打印功能,但是朋友说,那个打印功能是把页面的不相关的内容也打印了,用户只想打印整篇文章即可. 既然要改,照做就是了.没有这方面经验,在网上找到很多相关的ASP.NET打印例子,要么太过复杂,要么效果不太理想.最后还是结合这诸多的例子,改写一个合适的功能. 下面是改写的地方,首先在文章浏览的.aspx页面,添加一个Div,并加上r

  • ASP所有的Session变量获取实现代码

    复制代码 代码如下: Dim strName, iLoop For Each strName in Session.Contents Response.Write strName & " - " & Session.Contents(strName)& "[BR]" Next 一般情况下,上面的代码可以工作得很好.但当Session变量是一个对象或者数组时,打印的结果就不正确了. 这样我们修改代码如下: 复制代码 代码如下: '首先看看有多少

  • ASP替换、保存远程图片实现代码

    ASP通过函数来实现替换.保存远程图片,完成自动采集图片.提取图片的功能,函数中自动判断重复图片,智能分析链接路径,并转成成相对的图片地址保存在你指定的网站目录中,我们可将此函数用在后台的编辑器中,当你复制了含有图片的内容后,本代码会自动帮你上传图片.同时本代码也是采集程序中的重要处理函数,函数代码如下: Function ReplaceSaveRemoteFile(ConStr,strInstallDir,strChannelDir,SaveTf,TistUrl) If ConStr="$Fa

  • JS动态修改网页body的背景色实例代码

    大部分网页默认的背景色为白色,个人感觉比较刺眼,于是写了个JS的脚本去改变body部分的背景色,代码如下: // ==UserScript== // @name ChangeBackgroundColor // @namespace tingl // @include * // @version 1 // @grant none // ==/UserScript== (function () { 'use strict'; var color = '#ececec'; var style; fu

随机推荐