asp代碼實現(xiàn)限制一個ip只能訪問網(wǎng)站一次的方法

　　限制一個ip只能訪問一次，現(xiàn)在將asp代碼分享給大家：

　　原理：當(dāng)用戶第一次訪問的時候，得到用戶的IP，然后把IP存到Iplist.txt中去。下次再訪問的時候，先去Iplist.txt中查詢他的IP是否存在，正在的話就不允許訪問

　　<%

　　'/////////////////////////////////////////////////////

　　'// //

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

　　'//引用： //

　　'// //

　　'/////////////////////////////////////////////////////

　　'Response.Charset = 936 '設(shè)置輸出編碼為簡體中文

　　'Response.Buffer = false '關(guān)閉緩沖區(qū)

　　Dim Fso,ts,IpList,Cfs

　　'設(shè)置Cookies函數(shù)

　　Function SetCookie()

　　Response.Cookies("IsBrow") = "Brow"

　　Response.Cookies("IsBrow").Expires = Date+365

　　End Function

　　'記錄IP地址函數(shù)

　　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地址函數(shù)

　　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

　　'創(chuàng)建文件函數(shù)

　　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

　　'關(guān)閉當(dāng)前IE窗口函數(shù)(注:IE6下通過,其他瀏覽器未測試)

　　Function CloseWindow()

　　'Response.Write ""

　　Response.Redirect "http://www.baidu.com"

　　End Function

　　Ip = Request.ServerVariables("REMOTE_ADDR") '獲取瀏覽者IP地址

　　Cookie = Request.Cookies("IsBrow") '獲取當(dāng)前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代碼實現(xiàn)限制一個ip只能訪問網(wǎng)站一次的方法】相關(guān)文章：

防盜鏈接ASP函數(shù)實現(xiàn)代碼08-03

asp緩存類代碼09-28

asp.net中利用ashx實現(xiàn)圖片防盜鏈代碼07-19

jQuery實現(xiàn)左右圖片輪播代碼操作方法09-20

asp獲取當(dāng)前URL代碼實例10-14

關(guān)于ASP模板類代碼參考08-29

關(guān)于ASP.NET使用JavaScript顯示信息提示窗口實現(xiàn)原理及代碼05-09

asp.net 組合模式的PHP代碼10-07

JavaScript實現(xiàn)網(wǎng)頁刷新代碼段08-07

將php實現(xiàn)過濾UBB代碼09-11