教你从左到右匹配一部分

原始代码从左到右匹配一部分：

dim aa, iplist, ip, found
aa = "11.9.67.180"
iplist = array("99.88", "110.52", "43.80.235", "11.9.")
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

改动后只能完全匹配：

dim aa, iplist, ip, found, dbiplist
aa = request.servervariables("remote_addr")

dbiplist = rs("ip")

iplist = split(dbiplist, ",")

found = false

for each ip in iplist
    ip = trim(ip)
    if instr(aa, ip) > 0 then
        found = true
        exit for
    end if
next

if found then
    response.write "ok"
    response.end
end if

要同时处理两种数据库内容格式，需修改如下：

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

dbIPList = Rs("ip")

' 增加一个去除双引号的操作，确保两种数据库内容格式都能正常处理
dbIPList = Replace(dbIPList, """, """)

ipList = Split(dbIPList, ",")

found = False

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

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