Function getIpvalue(clientIP)'得到客户端的IP转换成长整型,返回值getIpvalue On Error Re
Function getIpvalue(clientIP)'得到客户端的IP转换成长整型,返回值getIpvalue On Error Resume Next Dim strIp, array_Ip strIp=0 array_Ip = Split(clientIP,".") If UBound(array_Ip)<>3 Then getIpvalue=0 Exit Function End If For i=0 To 3 strIp=strIp+(CInt(array_Ip(i))*(256^(3-i))) Next getIpvalue=strIp If Err Then getIpvalue=0 End Function clientIP=request.ServerVariables("REMOTE_HOST") IpValue=getIpvalue(clientIP) strSql="select top 1 City from [Ipaddress] where "&IpValue&" between Ip1 and Ip2" Set RsIp=conn.execute(strSql) If RsIp.bof and RsIp.eof then UrlCity="未知" Else UrlCity=RsIp.Fields.Item("City").Value End If if instr(UrlCity,"广州")<>0 then response.Redirect("https://www.jb51.net") end if if instr(UrlCity,"深圳")<>0 then response.Redirect("http://img.jb51.net") end if if instr(UrlCity,"上海")<>0 then response.Redirect("http://xiazai.jb51.net") end if 所用到的IP数据库可以去网上down一个回来
本文介绍了阿里Treebased Deep Match(TDM)的学习笔记,同时回顾了工业界技术发展的几代演进。从基于统计的启发式规则方法到基于内积模型的向量检索方法,再到引入复杂深度学习模型的下一代匹配技术。文章详细解释了基于统计的启发式规则方法和基于内积模型的向量检索方法的原理和应用,并介绍了TDM的背景和优势。最后,文章提到了向量距离和基于向量聚类的索引结构对于加速匹配效率的作用。本文对于理解TDM的学习过程和了解匹配技术的发展具有重要意义。 ...
[详细]