数据库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列表的存储格式。
