時間：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段來設置。
我就是用這個方法防止外地用戶使用流氓軟件惡意到我網(wǎng)站發(fā)布信息的!
關鍵詞標簽：asp
相關閱讀 WIN2003 IIS6.0+PHP+ASP+MYSQL優(yōu)化配置 更正確的asp冒泡排序 ASP如何跳出本次進入下一次循環(huán) 學習使用ASP對象和組件 簡單熟悉掌握ASP的語法和變量 ASP實現(xiàn)郵件發(fā)送普通附件和嵌入附件
熱門文章
ASP編程代碼：隱藏圖片的真實地址
ASP教程:0177:800401f3錯誤解決
ASP代碼中如何屏蔽ip地址 禁止某IP段訪問網(wǎng)站
錯誤80004005信息處理方法
APMServ(apache+php+mysql+asp服務器)時間：2019-05-29 10:10:42
ASP - IIS服務器時間：2019-04-15 17:29:38
傳世裁決手游果盤版時間：2017-12-08 16:43:00
ASP.NET AJAX實用開發(fā)電子教程時間：2017-11-21 14:59:38
asp.net maker(asp.net網(wǎng)站后臺制作工具)時間：2017-11-02 10:32:05
ASP.NET視頻教程時間：2017-06-06 09:14:56
人氣排行 ASP下標越界的解決方法 ASP代碼中如何屏蔽ip地址 禁止某IP段訪問網(wǎng)站 “文件共享鎖定數(shù)溢出” 原因及解決方法 無法寫入數(shù)據(jù)庫的解決方法 ASP教程:0177:800401f3錯誤解決 ASP常用函數(shù)列表 如何用ASP來獲取客戶端真實IP的地址 ASP用FSO生成HTML簡單實例+詳解[原創(chuàng)]