數據庫IP列表調用與數組轉換
本文探討如何從數據庫中提取IP列表并將其轉換為可用于代碼邏輯判斷的數組格式。 原始代碼在直接使用預設數組時運行正常，但從數據庫讀取IP列表時出現問題，關鍵在于數據庫數據讀取和數組轉換方法。
問題描述
以下代碼片段在使用預設數組iplist時運行無誤：
<% Dim iplist, found, i iplist = Array("99.88", "110.52", "43.80.235", "11.9.67.180") ' 獲取用戶IP地址 (假設已獲取，賦值給變量 userIP) ' ... 獲取 userIP 的代碼 ... found = False For i = 0 To UBound(iplist) If userIP = iplist(i) Then found = True Exit For End If Next If found Then Response.Write "ok" Response.End End If %>
然而，當嘗試從數據庫讀取IP列表時，代碼出錯。數據庫中IP列表存儲格式可能為：”99.88″, “110.52”, “43.80.235”, “11.9.67.180” 或 99.88, 110.52, 43.80.235, 11.9.67.180。 關鍵在于如何將數據庫讀取的字符串轉換為合適的數組。
解決方案
為了解決這個問題，我們需要根據數據庫中IP列表的存儲格式，使用合適的字符串處理函數將數據庫讀取結果轉換為數組。
方法一：數據庫中IP列表以逗號分隔 (例如：99.88, 110.52, 43.80.235, 11.9.67.180)
<% Dim iplistStr, iplist, found, i, userIP ' ... 獲取用戶IP地址 (假設已獲取，賦值給變量 userIP) ... ' 從數據庫獲取IP列表字符串 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select ipList FROM yourTable", conn, 1, 1 ' yourTable 和 conn 需要替換為你的數據庫表名和連接對象 iplistStr = rs("ipList") rs.Close Set rs = Nothing ' 使用 Split 函數將字符串分割成數組 iplist = Split(iplistStr, ",") ' 移除數組元素中的空格 For i = 0 To UBound(iplist) iplist(i) = Trim(iplist(i)) Next found = False For i = 0 To UBound(iplist) If userIP = iplist(i) Then found = True Exit For End If Next If found Then Response.Write "ok" Response.End End If %>
方法二：數據庫中IP列表以逗號和引號分隔 (例如：”99.88″, “110.52”, “43.80.235”, “11.9.67.180”)
此種情況，Split 函數可以直接使用，無需額外處理空格。 代碼與方法一類似，只需修改 iplist = Split(iplistStr, “,”) 這行代碼，其余部分保持不變。
重要提示: 替換 “SELECT ipList FROM yourTable” 中的 yourTable 為你的實際數據庫表名，并且確保 conn 是有效的數據庫連接對象。 記得在代碼執行完畢后關閉數據庫連接，釋放資源。 此外，為了安全起見，請使用參數化查詢來防止sql注入漏洞。
通過以上方法，可以正確地從數據庫讀取IP列表并將其轉換為數組，從而使代碼能夠正常運行。 選擇哪種方法取決于你的數據庫中IP列表的存儲格式。
