ASP编程中，判断客户端IP地址是否属于多个预定义IP地址的常见方法是使用Instr函数。然而，直接用Instr函数搜索逗号分隔的IP地址列表并不可行，因为它会将整个字符串视为一个整体进行匹配。
以下代码片段演示了错误的方法：
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
正确的做法是将IP地址列表转换为数组，然后循环遍历数组，使用Instr函数逐个匹配。
改进后的代码如下：
<%
Dim aa, ipList(), i, found
aa = Request.ServerVariables("REMOTE_ADDR")
ipList = Split("99.88,110.52,43.80.235,11.9.67.180", ",")
found = False
For i = 0 To UBound(ipList)
If Instr(1, aa, ipList(i)) > 0 Then
found = True
Exit For
End If
Next
If found Then
Response.Write "ok"
Response.End
End If
%>
这段代码首先将逗号分隔的IP地址字符串转换为ipList数组。然后，它使用For...Next循环遍历数组中的每个IP地址，并使用Instr(1, aa, ipList(i))检查客户端IP地址aa是否包含当前IP地址。Instr(1, ...)表示从字符串的第一个字符开始搜索。如果找到匹配项，则将found变量设置为True并退出循环。最后，如果found为True，则输出"ok"。 这种方法有效地解决了在ASP中使用Instr函数判断客户端IP是否在多个IP地址列表中的问题。
