如何instr判断多个？

Question

请问asp如何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

Answer 1

循环遍历：

<%
Dim aa, ipList, ip, found
aa = Request.ServerVariables("REMOTE_ADDR")

ipList = Array("99.88", "110.52", "43.80.235", "11.9.67.180")
found = False

For Each ip In ipList
    If InStr(aa, ip) > 0 Then
        found = True
        Exit For
    End If
Next

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