如何使用ASP中的Instr函數判斷多個IP地址是否包含在當前訪問者的IP地址中？

ASP中使用Instr函數判斷IP地址是否在列表中

ASP開發中，常常需要檢查訪問者IP地址是否在某個IP地址列表中。本文探討如何利用Instr函數高效地實現此功能，并改進原有代碼的不足。

問題及原代碼分析

原代碼嘗試使用單個Instr函數直接查找逗號分隔的IP地址列表，這是不可行的，因為Instr函數只能查找單個子字符串。

aa=request.servervariables("remote_addr") if instr(aa,"99.88,110.52,43.80.235,11.9.67.180")>0 then response.write "ok" response.end end if

此代碼的問題在于，它會檢查aa (訪問者IP)是否包含字符串”99.88,110.52,43.80.235,11.9.67.180″的任何部分，而不是完整的IP地址。例如，如果aa是”192.168.1.110.52″，代碼會錯誤地返回”ok”。

改進后的解決方案

正確的做法是將IP地址列表分割成數組，然后逐個進行比較。以下代碼提供了更可靠的解決方案：

<% Dim aa, iplist, ip, found aa = Request.ServerVariables("REMOTE_ADDR") iplist = Split("99.88,110.52,43.80.235,11.9.67.180", ",") found = False  for Each ip In iplist     If InStr(1, aa, ip) > 0 Then         found = True         Exit For     End If Next  If found Then     Response.Write "IP地址在列表中" Else     Response.Write "IP地址不在列表中" End If %>

這段代碼首先將IP地址列表字符串分割成一個數組iplist。然后，它使用For Each循環遍歷iplist中的每個IP地址，并使用InStr(1, aa, ip) 檢查訪問者IP地址aa是否包含當前IP地址ip。 InStr(1, …) 從字符串的開頭開始查找，確保完整匹配。如果找到匹配項，found變量設置為True，并使用Exit For跳出循環，提高效率。最后，根據found變量的值輸出結果。 這避免了原代碼中可能出現的誤判。

這個改進后的代碼更準確、更可靠地判斷訪問者的IP地址是否在預定義的列表中。 它清晰地展示了如何正確地使用Instr函數以及數組處理來解決這個問題。