asp 實現限制一個 ip 只能訪問一次的方法

限制一個 ip 只能訪問一次，現在將 asp 程式碼分享給大家：

<% '///////////////////////////////////////////////////// '// // '//作用：一個 IP 地址只允許訪問本頁一次 // '//引用： //
‘// //
‘/////////////////////////////////////////////////////

‘Response.Charset = 936 ‘ 設定輸出編碼為簡體中文
‘Response.Buffer = false ‘ 關閉緩衝區

Dim Fso,ts,IpList,Cfs

‘ 設定 Cookies 函式
Function SetCookie()
Response.Cookies(“IsBrow”) = “Brow”
Response.Cookies(“IsBrow”).Expires = Date+365
End Function

‘ 記錄 IP 地址函式
Function WriteIp(FileName, IpAddress)
Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)
Set ts = Fso.OpenTextFile(Server.MapPath(FileName),8,true)
ts.WriteLine IpAddress
ts.Close
Set ts = Nothing
Set Fso = Nothing
End Function

‘ 讀取 IP 地址函式
Function ReadIpList(FileName)
Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)
If Not Fso.FileExists(Server.MapPath(FileName)) Then
CreateFile(“Iplist.txt”)
Exit Function
End If

Set ts = Fso.OpenTextFile(Server.MapPath(FileName))
Iplist = ts.ReadAll
ts.Close
Set ts = Nothing
Set Fso = Nothing
ReadIpList = Iplist
End Function

‘ 建立檔案函式
Function CreateFile(FileName)
Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)
Set Cfs = Fso.CreateTextFile(Server.MapPath(FileName))
Cfs.Close
Set Cfs = Nothing
Set Fso = Nothing
End Function

‘ 關閉當前 IE 視窗函式 (注:IE6 下通過, 其他瀏覽器未測試)
Function CloseWindow()
‘Response.Write “”
Response.Redirect “http://www.baidu.com”
End Function

Ip = Request.ServerVariables(“REMOTE_ADDR”) ‘ 獲取瀏覽者 IP 地址

Cookie = Request.Cookies(“IsBrow”) ‘ 獲取當前 Cookies
‘Response.Write Cookie

If Request.ServerVariables(“HTTP_X_FORWARDED_FOR”) <> “” Then
Response.Write “ 本站不允許使用代理訪問”
Response.End()
Else
If Cookie = “Brow” Then
CloseWindow()
Else
If Instr(ReadIpList(“Iplist.txt”),Ip) <> 0 Then
CloseWindow()
Else
WriteIp “Iplist.txt” , Ip
End If
SetCookie()
End If
End If
%>

以上就是分享給大家的 asp 實現程式碼，希望對大家的學習有所幫助。