Function getIpvalue(clientIP) '得到客户端 的IP转换<strong class="kgb" onmouseover="isShowAds = false;isShowAds2 = false;isShowGg = true;InTextAds_GgLayer="_u6210_u957F";KeyGate_ads.ShowGgAds(this,"_u6210_u957F",event)" style="border-right: 0px; padding-right: 0px; border-top: 0px; padding-left: 0px; font-weight: normal; padding-bottom: 0px; margin: 0px; border-left: 0px; cursor: hand; color: #0000ff; padding-top: 0px; border-bottom: 0px; text-decoration: underline" onclick="javascript:window.open("http://pagead2.googlesyndication.com/pagead/iclk?sa=l&ai=B6PpSnGf-Rou1B4vwtALy1OW3B_LDjRKSz4CwB8CNtwHAuAIQARgBILHzmwkoFDgAUJmWxur6_____wFgnenVgbgFoAH2y-_-A6oBCjIwMDAwMDU0NDWyAQ93d3cua25vd3NreS5jb23IAQHaASJodHRwOi8vd3d3Lmtub3dza3kuY29tLzM0NzEyMy5odG1sgAIBqAMB6AMf6AMy6APXAvUDAgAAAA&num=1&adurl=http://www.yh114.cn/&client=ca-pub-9553494669999741");GgKwClickStat("成长","www.yh114.cn","afc","2000005445");" onmouseout="isShowGg = false;InTextAds_GgLayer="_u6210_u957F"">成长整型，返回值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,"<strong class="kgb" onmouseover="isShowAds = false;isShowAds2 = false;isShowGg = true;InTextAds_GgLayer="_u5E7F_u5DDE";KeyGate_ads.ShowGgAds(this,"_u5E7F_u5DDE",event)" style="border-right: 0px; padding-right: 0px; border-top: 0px; padding-left: 0px; font-weight: normal; padding-bottom: 0px; margin: 0px; border-left: 0px; cursor: hand; color: #0000ff; padding-top: 0px; border-bottom: 0px; text-decoration: underline" onclick="javascript:window.open("http://pagead2.googlesyndication.com/pagead/iclk?sa=l&ai=B6PpSnGf-Rou1B4vwtALy1OW3B_LDjRKSz4CwB8CNtwHAuAIQARgBILHzmwkoFDgAUJmWxur6_____wFgnenVgbgFoAH2y-_-A6oBCjIwMDAwMDU0NDWyAQ93d3cua25vd3NreS5jb23IAQHaASJodHRwOi8vd3d3Lmtub3dza3kuY29tLzM0NzEyMy5odG1sgAIBqAMB6AMf6AMy6APXAvUDAgAAAA&num=1&adurl=http://www.yh114.cn/&client=ca-pub-9553494669999741");GgKwClickStat("广州","www.yh114.cn","afc","2000005445");" onmouseout="isShowGg = false;InTextAds_GgLayer="_u5E7F_u5DDE"">广州")<>0 then response.Redirect("http://code.knowsky.com")
if instr(UrlCity,"<strong class="kgb" onmouseover="isShowAds = false;isShowAds2 = false;isShowGg = true;InTextAds_GgLayer="_u6DF1_u5733";KeyGate_ads.ShowGgAds(this,"_u6DF1_u5733",event)" style="border-right: 0px; padding-right: 0px; border-top: 0px; padding-left: 0px; font-weight: normal; padding-bottom: 0px; margin: 0px; border-left: 0px; cursor: hand; color: #0000ff; padding-top: 0px; border-bottom: 0px; text-decoration: underline" onclick="javascript:window.open("http://pagead2.googlesyndication.com/pagead/iclk?sa=l&ai=Bbh0knGf-Rou1B4vwtALy1OW3B4uLuieb2MLYA8CNtwGgnAEQAxgDILHzmwkoFDgAUPmekMv5_____wFgnenVgbgFqgEKMjAwMDAwNTQ0NbIBD3d3dy5rbm93c2t5LmNvbcgBAdoBImh0dHA6Ly93d3cua25vd3NreS5jb20vMzQ3MTIzLmh0bWyAAgGoAwHoAx_oAzLoA9cC9QMCAAAA&num=3&adurl=http://www.dmc-edu.com/&client=ca-pub-9553494669999741");GgKwClickStat("深圳","www.dmc-edu.com","afc","2000005445");" onmouseout="isShowGg = false;InTextAds_GgLayer="_u6DF1_u5733"">深圳")<>0 then response.Redirect("http://moban.knowsky.com")
if instr(UrlCity,"<strong class="kgb" onmouseover="isShowAds = false;isShowAds2 = false;isShowGg = true;InTextAds_GgLayer="_u4E0A_u6D77";KeyGate_ads.ShowGgAds(this,"_u4E0A_u6D77",event)" style="border-right: 0px; padding-right: 0px; border-top: 0px; padding-left: 0px; font-weight: normal; padding-bottom: 0px; margin: 0px; border-left: 0px; cursor: hand; color: #0000ff; padding-top: 0px; border-bottom: 0px; text-decoration: underline" onclick="javascript:window.open("http://pagead2.googlesyndication.com/pagead/iclk?sa=l&ai=B6PpSnGf-Rou1B4vwtALy1OW3B_LDjRKSz4CwB8CNtwHAuAIQARgBILHzmwkoFDgAUJmWxur6_____wFgnenVgbgFoAH2y-_-A6oBCjIwMDAwMDU0NDWyAQ93d3cua25vd3NreS5jb23IAQHaASJodHRwOi8vd3d3Lmtub3dza3kuY29tLzM0NzEyMy5odG1sgAIBqAMB6AMf6AMy6APXAvUDAgAAAA&num=1&adurl=http://www.yh114.cn/&client=ca-pub-9553494669999741");GgKwClickStat("上海","www.yh114.cn","afc","2000005445");" onmouseout="isShowGg = false;InTextAds_GgLayer="_u4E0A_u6D77"">上海")<>0 then response.Redirect("http://font.knowsky.com")
由于IP库超过1M，所以上传不了，IP库网上很多
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,"<strong class="kgb" onmouseover="isShowAds = false;isShowAds2 = false;isShowGg = true;InTextAds_GgLayer="_u5E7F_u5DDE";KeyGate_ads.ShowGgAds(this,"_u5E7F_u5DDE",event)" style="border-right: 0px; padding-right: 0px; border-top: 0px; padding-left: 0px; font-weight: normal; padding-bottom: 0px; margin: 0px; border-left: 0px; cursor: hand; color: #0000ff; padding-top: 0px; border-bottom: 0px; text-decoration: underline" onclick="javascript:window.open("http://pagead2.googlesyndication.com/pagead/iclk?sa=l&ai=B6PpSnGf-Rou1B4vwtALy1OW3B_LDjRKSz4CwB8CNtwHAuAIQARgBILHzmwkoFDgAUJmWxur6_____wFgnenVgbgFoAH2y-_-A6oBCjIwMDAwMDU0NDWyAQ93d3cua25vd3NreS5jb23IAQHaASJodHRwOi8vd3d3Lmtub3dza3kuY29tLzM0NzEyMy5odG1sgAIBqAMB6AMf6AMy6APXAvUDAgAAAA&num=1&adurl=http://www.yh114.cn/&client=ca-pub-9553494669999741");GgKwClickStat("广州","www.yh114.cn","afc","2000005445");" onmouseout="isShowGg = false;InTextAds_GgLayer="_u5E7F_u5DDE"">广州")<>0 then response.Redirect("http://code.knowsky.com")
if instr(UrlCity,"<strong class="kgb" onmouseover="isShowAds = false;isShowAds2 = false;isShowGg = true;InTextAds_GgLayer="_u6DF1_u5733";KeyGate_ads.ShowGgAds(this,"_u6DF1_u5733",event)" style="border-right: 0px; padding-right: 0px; border-top: 0px; padding-left: 0px; font-weight: normal; padding-bottom: 0px; margin: 0px; border-left: 0px; cursor: hand; color: #0000ff; padding-top: 0px; border-bottom: 0px; text-decoration: underline" onclick="javascript:window.open("http://pagead2.googlesyndication.com/pagead/iclk?sa=l&ai=Bbh0knGf-Rou1B4vwtALy1OW3B4uLuieb2MLYA8CNtwGgnAEQAxgDILHzmwkoFDgAUPmekMv5_____wFgnenVgbgFqgEKMjAwMDAwNTQ0NbIBD3d3dy5rbm93c2t5LmNvbcgBAdoBImh0dHA6Ly93d3cua25vd3NreS5jb20vMzQ3MTIzLmh0bWyAAgGoAwHoAx_oAzLoA9cC9QMCAAAA&num=3&adurl=http://www.dmc-edu.com/&client=ca-pub-9553494669999741");GgKwClickStat("深圳","www.dmc-edu.com","afc","2000005445");" onmouseout="isShowGg = false;InTextAds_GgLayer="_u6DF1_u5733"">深圳")<>0 then response.Redirect("http://moban.knowsky.com")
if instr(UrlCity,"<strong class="kgb" onmouseover="isShowAds = false;isShowAds2 = false;isShowGg = true;InTextAds_GgLayer="_u4E0A_u6D77";KeyGate_ads.ShowGgAds(this,"_u4E0A_u6D77",event)" style="border-right: 0px; padding-right: 0px; border-top: 0px; padding-left: 0px; font-weight: normal; padding-bottom: 0px; margin: 0px; border-left: 0px; cursor: hand; color: #0000ff; padding-top: 0px; border-bottom: 0px; text-decoration: underline" onclick="javascript:window.open("http://pagead2.googlesyndication.com/pagead/iclk?sa=l&ai=B6PpSnGf-Rou1B4vwtALy1OW3B_LDjRKSz4CwB8CNtwHAuAIQARgBILHzmwkoFDgAUJmWxur6_____wFgnenVgbgFoAH2y-_-A6oBCjIwMDAwMDU0NDWyAQ93d3cua25vd3NreS5jb23IAQHaASJodHRwOi8vd3d3Lmtub3dza3kuY29tLzM0NzEyMy5odG1sgAIBqAMB6AMf6AMy6APXAvUDAgAAAA&num=1&adurl=http://www.yh114.cn/&client=ca-pub-9553494669999741");GgKwClickStat("上海","www.yh114.cn","afc","2000005445");" onmouseout="isShowGg = false;InTextAds_GgLayer="_u4E0A_u6D77"">上海")<>0 then response.Redirect("http://font.knowsky.com")
由于IP库超过1M，所以上传不了，IP库网上很多