- 相關(guān)推薦
asp代碼實(shí)現限制一個(gè)ip只能訪(fǎng)問(wèn)網(wǎng)站一次的方法
限制一個(gè)ip只能訪(fǎng)問(wèn)一次，現在將asp代碼分享給大家：
原理：當用戶(hù)第一次訪(fǎng)問(wèn)的時(shí)候，得到用戶(hù)的IP，然后把IP存到Iplist.txt中去。下次再訪(fǎng)問(wèn)的時(shí)候，先去Iplist.txt中查詢(xún)他的IP是否存在，正在的話(huà)就不允許訪(fǎng)問(wèn)
<%
'/////////////////////////////////////////////////////
'// //
'//作用：一個(gè)IP地址只允許訪(fǎng)問(wèn)本頁(yè)一次 //
'//引用： //
'// //
'/////////////////////////////////////////////////////
'Response.Charset = 936 '設置輸出編碼為簡(jiǎn)體中文
'Response.Buffer = false '關(guān)閉緩沖區
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
'創(chuàng )建文件函數
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)閉當前IE窗口函數(注:IE6下通過(guò),其他瀏覽器未測試)
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 "本站不允許使用代理訪(fǎng)問(wèn)"
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代碼實(shí)現限制一個(gè)ip只能訪(fǎng)問(wèn)網(wǎng)站一次的方法】相關(guān)文章：
防盜鏈接ASP函數實(shí)現代碼08-03
asp緩存類(lèi)代碼09-28
asp.net中利用ashx實(shí)現圖片防盜鏈代碼07-19
jQuery實(shí)現左右圖片輪播代碼操作方法09-20
asp獲取當前URL代碼實(shí)例10-14
關(guān)于A(yíng)SP模板類(lèi)代碼參考08-29
關(guān)于A(yíng)SP.NET使用JavaScript顯示信息提示窗口實(shí)現原理及代碼05-09
asp.net 組合模式的PHP代碼10-07