如何恢复IP地址左右匹配功能？

修复IP地址匹配：实现从左到右的部分匹配

本文探讨如何改进IP地址匹配逻辑，使其支持从左到右的部分匹配，并兼容不同的数据库数据格式。乔治老师的原始代码虽然实现了部分匹配，但在从数据库读取IP地址列表后，却变成了完全匹配。

原始代码存在的问题在于，它无法处理数据库中不同格式的IP地址数据（例如，带引号和不带引号）。 以下展示了改进后的代码，解决了这个问题：

问题代码（示例）：

<%
Dim aa, dbiplist, iplist, found
aa = "11.9.67.180"
' 数据库读取的IP地址列表，可能包含引号
dbiplist = "99.88, 110.52, 43.80.235, 11.9.67.180"  ' 或 "99.88", "110.52", "43.80.235", "11.9.67.180"
iplist = Split(dbiplist, ",")

found = False
For Each ip In iplist
    If aa = ip Then  ' 完全匹配
        found = True
        Exit For
    End If
Next

If found Then
    Response.Write "ok"
    Response.End
End If
%>

改进后的代码：

<%
Dim aa, dbiplist, iplist, found
aa = "11.9.67.180"
dbiplist = "99.88, 110.52, 43.80.235, 11.9.67.180"  ' 或 "99.88", "110.52", "43.80.235", "11.9.67.180"
dbiplist = Replace(dbiplist, """", "") '去除双引号
iplist = Split(dbiplist, ",")

found = False
For Each ip In iplist
    ip = Trim(ip) '去除空格
    If Left(aa, Len(ip)) = ip Then  ' 从左到右部分匹配
        found = True
        Exit For
    End If
Next

If found Then
    Response.Write "ok"
    Response.End
End If
%>

改进之处：

1. 去除双引号: Replace(dbiplist, """", "") 这一行代码去除了数据库中IP地址字符串中的双引号，解决了不同数据格式的问题。

2. 从左到右部分匹配: If Left(aa, Len(ip)) = ip Then 使用 Left 函数提取 aa 字符串的左部，与 ip 进行比较，实现了从左到右的部分匹配。

3. 去除空格: ip = Trim(ip) 去除IP地址字符串前后可能存在的空格，增强代码的健壮性。

通过以上修改，代码能够正确地处理数据库中不同格式的IP地址数据，并恢复从左到右的部分匹配功能，从而满足更广泛的应用场景。