asp代码实现限制一个ip只能访问网站一次的方法
限制一个ip只能访问一次,现在将asp代码分享给大家:
原理:当用户第一次访问的.时候,得到用户的IP,然后把IP存到中去。下次再访问的时候,先去中查询他的IP是否存在,正在的话就不允许访问
<%
'/////////////////////////////////////////////////////
'// //
'//作用:一个IP地址只允许访问本页一次 //
'//引用: //
'// //
'/////////////////////////////////////////////////////
'set = 936 '设置输出编码为简体中文
'er = false '关闭缓冲区
Dim Fso,ts,IpList,Cfs
'设置Cookies函数
Function SetCookie()
ies("IsBrow") = "Brow"
ies("IsBrow")res = Date+365
End Function
'记录IP地址函数
Function WriteIp(FileName, IpAddress)
Set Fso = teObject("SystemObject")
Set ts = Fso.OpenTextFile(Server.MapPath(FileName),8,true)
eLine IpAddress
e
Set ts = Nothing
Set Fso = Nothing
End Function
'读取IP地址函数
Function ReadIpList(FileName)
Set Fso = teObject("SystemObject")
If Not Fso.FileExists(Server.MapPath(FileName)) Then
CreateFile("")
Exit Function
End If
Set ts = Fso.OpenTextFile(Server.MapPath(FileName))
Iplist = All
e
Set ts = Nothing
Set Fso = Nothing
ReadIpList = Iplist
End Function
'创建文件函数
Function CreateFile(FileName)
Set Fso = teObject("SystemObject")
Set Cfs = Fso.CreateTextFile(Server.MapPath(FileName))
e
Set Cfs = Nothing
Set Fso = Nothing
End Function
'关闭当前IE窗口函数(注:IE6下通过,其他浏览器未测试)
Function CloseWindow()
'e ""
rect ""
End Function
Ip = erVariables("REMOTE_ADDR") '获取浏览者IP地址
Cookie = ies("IsBrow") '获取当前Cookies
'e Cookie
If erVariables("HTTP_X_FORWARDED_FOR") <> "" Then
e "本站不允许使用代理访问"
()
Else
If Cookie = "Brow" Then
CloseWindow()
Else
If Instr(ReadIpList(""),Ip) <> 0 Then
CloseWindow()
Else
WriteIp "" , Ip
End If
SetCookie()
End If
End If
%>
-
2017年计算机应用基础试题带答案
一、选择题1、计算机系统由硬件系统和软件系统两部分组成,下列选项中不属于硬件系统的是__________。A.中央处理器B.内存储器C.I/O设备D.系统软件答案:D。解析:本题考查计算机系统基本组成的相关知识。计算机系统由硬件系统和软件系统两个部分组成。其中硬件系统...
-
把Word转换成PPT的办法
我们通常用Word来录入、编辑、打印材料,而有时需要将已经编辑、打印好的材料,做成PowerPoint演示文稿,以供演示、讲座使用。如果在PowerPoint中重新录入,既麻烦又浪费时间。如果在两者之间,通过一块块地复制、粘贴,一张张地制成幻灯片,也比较费事。其实,我们可以利用Po...
-
怎样打开隐藏文件
由于计算机具有高运算速度和精度以及逻辑判断能力,因此出现了计算力学、计算物理、计算化学、生物控制论等新的学科。以下是小编整理的打开隐藏文件的方法,希望大家认真阅读!随便打开一个文件夹,比如打开我的文档点击上面工具栏中的.工具,选择下面的文件夹选项在弹...
-
2017计算机应用基础统考选择题字母排序版
开头为空白数字符号____是Internet的主要互联设备。路由器“32位微型计算机”中的32指的是____。机器的字长“更改默认主页”是在InternetExplorer浏览器的选项卡中进行设置,这个选项卡是____。常规“美国信息交换标准代码”的缩写是____。ASCII“同一台计算机,...