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
%>
-
如何理解Javascript的caller,callee,call,apply区别
在提到上述的概念之前,首先想说说javascript中函数的隐含参数:argumentsarguments该对象代表正在执行的函数和调用它的函数的参数。[function.]arguments[n]参数function:选项。当前正在执行的Function对象的名字。n:选项。要传递给Function对象的从0开始的参数值...
-
asp.net 操作INI文件读写类实例代码
操作INI文件读写类实例代码复制代码代码如下:usingSystem;usingropServices;using;using;namespaceCommon{//////INI文件读写类。///publicclassINIFile{publicstringpath;publicINIFile(stringINIPath){path=INIPath;}[DllImport("kernel32")]privatestaticex...
-
网页设计黄金配色原则是什么
身为网页设计新手的你,是不是还在纠结于你制作的网页找不到一组完美的配色方案?在本教程中我们将与你分享6条肯定会火,并且“错不了”的指导方针,你可以按照这些原则把握最基本的色彩规律。现在我们分享的这些原则都不是规则,你会在你的职业生涯中创造出更多的配色...
-
python批量生成本地ip地址的方法是什么
python批量生成本地ip地址的方法是什么呢?本文实例讲述了python批量生成本地ip地址的方法。分享给大家供大家参考。具体分析如下:...