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函数以及数组处理来解决这个问题。
