用asp腳本實現(xiàn)限制IP訪問
更新時間：2007年06月06日 00:00:00 作者：
cookies跨不了域很麻煩,有了這個腳本就方便多了.
<%
ip=Request.ServerVariables("REMOTE_ADDR")
set Fso=CreateObject("Scripting.FileSystemObject")
Set Files=Fso.OpenTextFile(server.mappath("./ip.txt"),1,false)
data=files.readall
files.close
set fso=nothing
if InstrRev(data, ip, -1, 0) = 0 then
set Fso=CreateObject("Scripting.FileSystemObject")
Set File=Fso.OpenTextFile(server.mappath("./ip.txt"),8,true)
file.writeline ip
file.close
set fso=nothing
response.write "此IP今天第一次訪問該頁面"
response.end
else
response.write "此IP以前訪問過了"
response.end
end if
%>
<%
ip=Request.ServerVariables("REMOTE_ADDR")
set Fso=CreateObject("Scripting.FileSystemObject")
Set Files=Fso.OpenTextFile(server.mappath("./ip.txt"),1,false)
data=files.readall
files.close
set fso=nothing
if InstrRev(data, ip, -1, 0) = 0 then
set Fso=CreateObject("Scripting.FileSystemObject")
Set File=Fso.OpenTextFile(server.mappath("./ip.txt"),8,true)
file.writeline ip
file.close
set fso=nothing
response.write "此IP今天第一次訪問該頁面"
response.end
else
response.write "此IP以前訪問過了"
response.end
end if
%>
相關文章
SmartHTTP 簡易HttpRequest類(ASP),需要的朋友可以參考下。2011-03-03
asp下智能搜索功能的實現(xiàn)，方便大家學習2008-06-06
得到17位的當前時間如:20091210105237238=2009年12月10日10:52:37:238，接下來在獲取毫秒數(shù),感興趣的朋友可以參考下哈，希望可以幫助到你2013-04-04
在asp中使用js的encodeURIComponent方法
encodeURIComponent 方法返回一個已編碼的 URI。如果您將編碼結果傳遞給 decodeURIComponent，那么將返回初始的字符串2012-03-03
如何把ASP編寫成DLL...2007-03-03
asp下實現(xiàn)代碼的“運行代碼”“復制代碼”“保存代碼”功能源碼
下面的代碼是通過字符替換的方法，不是正則表達式2008-12-12
比較多的可以用在內容計較和用戶注冊等對數(shù)據(jù)庫添加操作的時候，如果允許后退，而正巧有刷新了頁面，就會再次執(zhí)行添加操作，無疑這不是我們需要的2008-06-06
ASPWebPack(整站文件備份系統(tǒng)) v1.0.2 黑客也用
ASPWebPack(整站文件備份系統(tǒng)) v1.0.2 黑客也用...2007-10-10
其實SQL注入漏洞并不可怕，知道原理 ＋ 耐心仔細，就可以徹底防范！2011-03-03
這篇文章給大家介紹使用asp實現(xiàn)qq在線查詢功能，涉及到的知識點有xmlhttp讀取騰訊網(wǎng)站相應的html代碼獲取qq頭像。對qq在線查詢感興趣的朋友可以參考下本篇文章2015-10-10