教你从左到右匹配一部分
原始代码从左到右匹配一部分：
dim aa, iplist, ip, foundaa = "11.9.67.180"iplist = array("99.88", "110.52", "43.80.235", "11.9.")found = falsefor each ip in iplist if instr(aa, ip) > 0 then found = true exit for end ifnextif found then response.write "ok" response.endend if
改动后只能完全匹配：
dim aa, iplist, ip, found, dbiplistaa = request.servervariables("remote_addr")dbiplist = rs("ip")iplist = split(dbiplist, ",")found = falsefor each ip in iplist ip = trim(ip) if instr(aa, ip) > 0 then found = true exit for end ifnextif found then response.write "ok" response.endend if
要同时处理两种数据库内容格式，需修改如下：
Dim aa, ipList, ip, found, dbIPListaa = Request.ServerVariables("REMOTE_ADDR")dbIPList = Rs("ip")' 增加一个去除双引号的操作，确保两种数据库内容格式都能正常处理dbIPList = Replace(dbIPList, """, """)ipList = Split(dbIPList, ",")found = FalseFor Each ip In ipList ip = Trim(ip) If InStr(aa, ip) > 0 Then found = True Exit For End IfNextIf found Then Response.Write "ok" Response.EndEnd If
以上就是如何改进IP地址匹配代码以支持多种数据库格式？的详细内容，更多请关注创想鸟其它相关文章！
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。
如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 chuangxiangniao@163.com 举报，一经查实，本站将立刻删除。
发布者：程序猿，转转请注明出处：https://www.chuangxiangniao.com/p/1251408.html
微信扫一扫 
支付宝扫一扫 
