限制一个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
%>