用asp腳本實(shí)現(xiàn)限制IP訪(fǎng)問(wèn)

更新時(shí)間：2007年06月06日 00:00:00 作者：

cookies跨不了域很麻煩,有了這個(gè)腳本就方便多了.
<%
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今天第一次訪(fǎng)問(wèn)該頁(yè)面"
    response.end
else
    response.write "此IP以前訪(fǎng)問(wèn)過(guò)了"
    response.end
end if
%>

您可能感興趣的文章:

用asp腳本實(shí)現(xiàn)限制IP訪(fǎng)問(wèn)

相關(guān)文章

SmartHTTP 簡(jiǎn)易HttpRequest類(lèi)(ASP)
SmartHTTP 簡(jiǎn)易HttpRequest類(lèi)(ASP),需要的朋友可以參考下。
2011-03-03
ASP實(shí)現(xiàn)智能搜索實(shí)現(xiàn)代碼
asp下智能搜索功能的實(shí)現(xiàn)，方便大家學(xué)習(xí)
2008-06-06
asp怎么獲取毫秒數(shù)實(shí)現(xiàn)代碼
得到17位的當(dāng)前時(shí)間如:20091210105237238=2009年12月10日10:52:37:238，接下來(lái)在獲取毫秒數(shù),感興趣的朋友可以參考下哈，希望可以幫助到你
2013-04-04
在asp中使用js的encodeURIComponent方法
encodeURIComponent 方法返回一個(gè)已編碼的 URI。如果您將編碼結(jié)果傳遞給 decodeURIComponent，那么將返回初始的字符串
2012-03-03
如何把ASP編寫(xiě)成DLL
如何把ASP編寫(xiě)成DLL...
2007-03-03
asp下實(shí)現(xiàn)代碼的“運(yùn)行代碼”“復(fù)制代碼”“保存代碼”功能源碼
下面的代碼是通過(guò)字符替換的方法，不是正則表達(dá)式
2008-12-12
防止網(wǎng)頁(yè)后退 asp禁止緩存
比較多的可以用在內(nèi)容計(jì)較和用戶(hù)注冊(cè)等對(duì)數(shù)據(jù)庫(kù)添加操作的時(shí)候，如果允許后退，而正巧有刷新了頁(yè)面，就會(huì)再次執(zhí)行添加操作，無(wú)疑這不是我們需要的
2008-06-06
ASPWebPack(整站文件備份系統(tǒng)) v1.0.2 黑客也用
ASPWebPack(整站文件備份系統(tǒng)) v1.0.2 黑客也用...
2007-10-10
asp終極防范SQL注入漏洞
其實(shí)SQL注入漏洞并不可怕，知道原理＋耐心仔細(xì)，就可以徹底防范！
2011-03-03
基于A(yíng)SP實(shí)現(xiàn)QQ在線(xiàn)查詢(xún)功能
這篇文章給大家介紹使用asp實(shí)現(xiàn)qq在線(xiàn)查詢(xún)功能，涉及到的知識(shí)點(diǎn)有xmlhttp讀取騰訊網(wǎng)站相應(yīng)的html代碼獲取qq頭像。對(duì)qq在線(xiàn)查詢(xún)感興趣的朋友可以參考下本篇文章
2015-10-10