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

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

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

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

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

把以下代碼加入到你的ASP頁面就可以測試到效果了:

? <%
? '受屏蔽IP地址(段)集合,星號為通配符,通常保存于配置文件中。
? 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地址禁止訪問")
? Response.End()
? End If


? '參數(shù)vBadIP:要屏蔽的IP段,IP地址集合,用|符號分隔多個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)站訪問的IP段了,你可以根據(jù)地區(qū)的IP段來設(shè)置。

我就是用這個方法防止外地用戶使用流氓軟件惡意到我網(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對象和組件 簡單熟悉掌握ASP的語法和變量 ASP實(shí)現(xiàn)郵件發(fā)送普通附件和嵌入附件

文章評論
發(fā)表評論

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

相關(guān)下載

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