IT貓撲網(wǎng)：您身邊最放心的安全下載站！ 最新更新|軟件分類(lèi)|軟件專(zhuān)題|手機(jī)版|論壇轉(zhuǎn)貼|軟件發(fā)布

您當(dāng)前所在位置： 首頁(yè) → 網(wǎng)絡(luò)編程 → Asp編程 → ASP代碼中如何屏蔽ip地址 禁止某IP段訪問(wèn)網(wǎng)站

ASP代碼中如何屏蔽ip地址 禁止某IP段訪問(wèn)網(wǎng)站

時(shí)間：2017-08-01 08:26:11 來(lái)源：IT貓撲網(wǎng) 作者：網(wǎng)管聯(lián)盟 我要評(píng)論(0)

經(jīng)常有些地方性的B2B或者B2C網(wǎng)站到處都被批量發(fā)布好多垃圾信息，把我的解決辦法分享給大家：

把以下代碼加入到你的ASP頁(yè)面就可以測(cè)試到效果了：

? <%
? '受屏蔽IP地址(段)集合，星號(hào)為通配符，通常保存于配置文件中。
? Const BadIPGroup = "192.168.1.*|202.68.*.*|*.12.55.34|185.*.96.24|127.*.0.1|192.168.0.1"

? If IsForbidIP(BadIPGroup) = True Then
? Response.Write(GetIP &"IP地址禁止訪問(wèn)")
? Response.End()
? End If


? '參數(shù)vBadIP：要屏蔽的IP段,IP地址集合，用|符號(hào)分隔多個(gè)IP地址(段)
? '返回Bool：True用戶IP在被屏蔽范圍，F(xiàn)alse 反之

? Function IsForbidIP(vBadIP)
? Dim counter, arrIPPart, arrBadIP, arrBadIPPart, i, j
????
arrBadIP = Split(vBadIP, "|")????
arrIPPart = Split(GetIP(), ".")
???
For i = 0 To UBound(arrBadIP)???
????? counter = 0
????? arrBadIPPart = Split(arrBadIP(i), ".")??
????? For j = 0 To UBound(arrIPPart)?
???? If(arrBadIPPart(j)) = "*" or Cstr(arrIPPart(j)) = Cstr(arrBadIPPart(j)) Then
???? counter = counter + 1
End If
?? Next??
?? If counter = 4 Then
IsForbidIP = True
Exit Function
?? End If??
???? Next
???? IsForbidIP = False
???? End Function

''返回客戶IP地址

? Function GetIP()
Dim IP
???? IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")?
??? If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR")
??? GetIP = IP
?? End Function
?? %>

這樣就可以限制網(wǎng)站訪問(wèn)的IP段了，你可以根據(jù)地區(qū)的IP段來(lái)設(shè)置。

我就是用這個(gè)方法防止外地用戶使用流氓軟件惡意到我網(wǎng)站發(fā)布信息的!

關(guān)鍵詞標(biāo)簽：asp

相關(guān)閱讀 WIN2003 IIS6.0+PHP+ASP+MYSQL優(yōu)化配置 更正確的asp冒泡排序 ASP如何跳出本次進(jìn)入下一次循環(huán) 學(xué)習(xí)使用ASP對(duì)象和組件 簡(jiǎn)單熟悉掌握ASP的語(yǔ)法和變量 ASP實(shí)現(xiàn)郵件發(fā)送普通附件和嵌入附件

文章評(píng)論
發(fā)表評(píng)論

熱門(mén)文章 ASP編程代碼：隱藏圖片的真實(shí)地址 ASP編程代碼：隱藏圖片的真實(shí)地址 ASP教程:0177:800401f3錯(cuò)誤解決 ASP教程:0177:800401f3錯(cuò)誤解決 ASP代碼中如何屏蔽ip地址 禁止某IP段訪問(wèn)網(wǎng)站 ASP代碼中如何屏蔽ip地址 禁止某IP段訪問(wèn)網(wǎng)站 錯(cuò)誤80004005信息處理方法 錯(cuò)誤80004005信息處理方法

相關(guān)下載

人氣排行 ASP下標(biāo)越界的解決方法 ASP代碼中如何屏蔽ip地址 禁止某IP段訪問(wèn)網(wǎng)站 “文件共享鎖定數(shù)溢出” 原因及解決方法 無(wú)法寫(xiě)入數(shù)據(jù)庫(kù)的解決方法 ASP教程:0177:800401f3錯(cuò)誤解決 ASP常用函數(shù)列表 如何用ASP來(lái)獲取客戶端真實(shí)IP的地址 ASP用FSO生成HTML簡(jiǎn)單實(shí)例+詳解[原創(chuàng)]