<%
\n‘ ============================================
\n‘ \u8fd4\u56deIP\u4fe1\u606f Disp_IPAddressData(IP,0)
\n‘ ============================================
\nFunction Look_Ip(IP)
\nDim Wry, IPType, QQWryVersion, IpCounter
\n‘ \u8bbe\u7f6e\u7c7b\u5bf9\u8c61
\nSet Wry = New TQQWry
\n‘ \u5f00\u59cb\u641c\u7d22\uff0c\u5e76\u8fd4\u56de\u641c\u7d22\u7ed3\u679c
\n‘ \u60a8\u53ef\u4ee5\u6839\u636e QQWry(IP) \u8fd4\u56de\u503c\u6765\u5224\u65ad\u8be5IP\u5730\u5740\u5728\u6570\u636e\u5e93\u4e2d\u662f\u5426\u5b58\u5728\uff0c\u5982\u679c\u4e0d\u5b58\u5728\u53ef\u4ee5\u6267\u884c\u5176\u4ed6\u7684\u4e00\u4e9b\u64cd\u4f5c
\n‘ \u6bd4\u5982\u60a8\u81ea\u5efa\u4e00\u4e2a\u6570\u636e\u5e93\u4f5c\u4e3a\u8ffd\u6355\u7b49\uff0c\u8fd9\u91cc\u6211\u5c31\u4e0d\u8be6\u7ec6\u8bf4\u660e\u4e86
\nIPType = Wry.QQWry(IP)
\n‘ Country\uff1a\u56fd\u5bb6\u5730\u533a\u5b57\u6bb5
\n‘ LocalStr\uff1a\u7701\u5e02\u53ca\u5176\u4ed6\u4fe1\u606f\u5b57\u6bb5
\nLook_Ip =Wry.Country & "" & Wry.LocalStr
\n””’Look_Ip = Wry.Country & ""
\nEnd Function
\n‘ ============================================
\n‘ \u8fd4\u56deIP\u4fe1\u606f JS\u8c03\u7528
\n‘ ============================================
\nFunction Disp_IPAddressData(IP, sType)
\nDim Wry, IPType
\nSet Wry = New TQQWry
\nIPType = Wry.QQWry(IP)<\/p>\n
Select Case sType
\nCase 1 Disp_IPAddressData = IP
\nCase 2 Disp_IPAddressData = Wry.Country
\nCase 3 Disp_IPAddressData = Wry.LocalStr
\n‘Case Else Disp_IPAddressData = Wry.Country & "" & Wry.LocalStr
\nCase Else Disp_IPAddressData = Wry.Country
\nEnd Select
\nEnd Function
\n‘ ============================================
\n‘ \u8fd4\u56deQQWry\u4fe1\u606f
\n‘ ============================================
\nFunction WryInfo()
\nDim Wry, IPType, QQWry_tem(0), QQWry_tem1(1)
\n‘ \u8bbe\u7f6e\u7c7b\u5bf9\u8c61
\nSet Wry = New TQQWry
\nIPType = Wry.QQWry("255.255.255.254")
\n‘ \u8bfb\u53d6\u6570\u636e\u5e93\u7248\u672c\u4fe1\u606f
\nQQWry_tem(0) = Wry.Country & " " & Wry.LocalStr
\n‘ \u8bfb\u53d6\u6570\u636e\u5e93IP\u5730\u5740\u6570\u76ee
\nQQWry_tem1(1) = Wry.RecordCount + 1
\nWryInfo = QQWry_tem(0)& " " & QQWry_tem1(1)
\nEnd Function<\/p>\n
Class TQQWry
\n‘ ============================================
\n‘ \u53d8\u91cf\u58f0\u540d
\n‘ ============================================
\nDim Country, LocalStr, Buf, OffSet
\nPrivate StartIP, EndIP, CountryFlag
\nPublic QQWryFile
\nPublic FirstStartIP, LastStartIP, RecordCount
\nPrivate Stream, EndIPOff
\n‘ ============================================
\n‘ \u7c7b\u6a21\u5757\u521d\u59cb\u5316
\n‘ ============================================
\nPrivate Sub Class_Initialize
\nCountry = ""
\nLocalStr = ""
\nStartIP = 0
\nEndIP = 0
\nCountryFlag = 0
\nFirstStartIP = 0
\nLastStartIP = 0
\nEndIPOff = 0
\nQQWryFile = Server.MapPath("\/DATA\/QQWry.dat") ‘QQ\u7eaf\u771fIP\u5e93\u5b58\u653e\u8def\u5f84\uff0c\u8981\u6539\u4e3a\u4f60\u7684\u8def\u5f84
\nEnd Sub
\n‘ ============================================
\n‘ IP\u5730\u5740\u8f6c\u6362\u6210\u6574\u6570
\n‘ ============================================
\nFunction IPToInt(IP)
\nDim IPArray, i
\nIPArray = Split(IP, ".", -1)
\nFOr i = 0 to 3
\nIf Not IsNumeric(IPArray(i)) Then IPArray(i) = 0
\nIf CInt(IPArray(i)) < 0 Then IPArray(i) = Abs(CInt(IPArray(i)))
\nIf CInt(IPArray(i)) > 255 Then IPArray(i) = 255
\nNext
\nIPToInt = (CInt(IPArray(0))*256*256*256) + (CInt(IPArray(1))*256*256) + (CInt(IPArray(2))*256) + CInt(IPArray(3))
\nEnd Function
\n‘ ============================================
\n‘ \u6574\u6570\u9006\u8f6cIP\u5730\u5740
\n‘ ============================================
\nFunction IntToIP(IntValue)
\np4 = IntValue – Fix(IntValue\/256)*256
\nIntValue = (IntValue-p4)\/256
\np3 = IntValue – Fix(IntValue\/256)*256
\nIntValue = (IntValue-p3)\/256
\np2 = IntValue – Fix(IntValue\/256)*256
\nIntValue = (IntValue – p2)\/256
\np1 = IntValue
\nIntToIP = Cstr(p1) & "." & Cstr(p2) & "." & Cstr(p3) & "." & Cstr(p4)
\nEnd Function
\n‘ ============================================
\n‘ \u83b7\u53d6\u5f00\u59cbIP\u4f4d\u7f6e
\n‘ ============================================
\nPrivate Function GetStartIP(RecNo)
\nOffSet = FirstStartIP + RecNo * 7
\nStream.Position = OffSet
\nBuf = Stream.Read(7)<\/p>\n
EndIPOff = AscB(MidB(Buf, 5, 1)) + (AscB(MidB(Buf, 6, 1))*256) + (AscB(MidB(Buf, 7, 1))*256*256)
\nStartIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)
\nGetStartIP = StartIP
\nEnd Function
\n‘ ============================================
\n‘ \u83b7\u53d6\u7ed3\u675fIP\u4f4d\u7f6e
\n‘ ============================================
\nPrivate Function GetEndIP()
\nStream.Position = EndIPOff
\nBuf = Stream.Read(5)
\nEndIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)
\nCountryFlag = AscB(MidB(Buf, 5, 1))
\nGetEndIP = EndIP
\nEnd Function
\n‘ ============================================
\n‘ \u83b7\u53d6\u5730\u57df\u4fe1\u606f\uff0c\u5305\u542b\u56fd\u5bb6\u548c\u548c\u7701\u5e02
\n‘ ============================================
\nPrivate Sub GetCountry(IP)
\nIf (CountryFlag = 1 Or CountryFlag = 2) Then
\nCountry = GetFlagStr(EndIPOff + 4)
\nIf CountryFlag = 1 Then
\nLocalStr = GetFlagStr(Stream.Position)
\n‘ \u4ee5\u4e0b\u7528\u6765\u83b7\u53d6\u6570\u636e\u5e93\u7248\u672c\u4fe1\u606f
\nIf IP >= IPToInt("255.255.255.0") And IP <= IPToInt("255.255.255.255") Then
\nLocalStr = GetFlagStr(EndIPOff + 21)
\nCountry = GetFlagStr(EndIPOff + 12)
\nEnd If
\nElse
\nLocalStr = GetFlagStr(EndIPOff + 8)
\nEnd If
\nElse
\nCountry = GetFlagStr(EndIPOff + 4)
\nLocalStr = GetFlagStr(Stream.Position)
\nEnd If
\n‘ \u8fc7\u6ee4\u6570\u636e\u5e93\u4e2d\u7684\u65e0\u7528\u4fe1\u606f
\nCountry = Trim(Country)
\nLocalStr = Trim(LocalStr)
\nIf InStr(Country, "CZ88.NET") Then Country = ""
\nIf InStr(LocalStr, "CZ88.NET") Then LocalStr = ""
\nEnd Sub
\n‘ ============================================
\n‘ \u83b7\u53d6IP\u5730\u5740\u6807\u8bc6\u7b26
\n‘ ============================================
\nPrivate Function GetFlagStr(OffSet)
\nDim Flag
\nFlag = 0
\nDo While (True)
\nStream.Position = OffSet
\nFlag = AscB(Stream.Read(1))
\nIf(Flag = 1 Or Flag = 2 ) Then
\nBuf = Stream.Read(3)
\nIf (Flag = 2 ) Then
\nCountryFlag = 2
\nEndIPOff = OffSet – 4
\nEnd If
\nOffSet = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256)
\nElse
\nExit Do
\nEnd If
\nLoop<\/p>\n
If (OffSet < 12 ) Then
\nGetFlagStr = ""
\nElse
\nStream.Position = OffSet
\nGetFlagStr = GetStr()
\nEnd If
\nEnd Function
\n‘ ============================================
\n‘ \u83b7\u53d6\u5b57\u4e32\u4fe1\u606f
\n‘ ============================================
\nPrivate Function GetStr()
\nDim c
\nGetStr = ""
\nDo While (True)
\nc = AscB(Stream.Read(1))
\nIf (c = 0) Then Exit Do<\/p>\n
‘\u5982\u679c\u662f\u53cc\u5b57\u8282\uff0c\u5c31\u8fdb\u884c\u9ad8\u5b57\u8282\u5728\u7ed3\u5408\u4f4e\u5b57\u8282\u5408\u6210\u4e00\u4e2a\u5b57\u7b26
\nIf c > 127 Then
\nIf Stream.EOS Then Exit Do
\nGetStr = GetStr & Chr(AscW(ChrB(AscB(Stream.Read(1))) & ChrB(C)))
\nElse
\nGetStr = GetStr & Chr(c)
\nEnd If
\nLoop
\nEnd Function
\n‘ ============================================
\n‘ \u6838\u5fc3\u51fd\u6570\uff0c\u6267\u884cIP\u641c\u7d22
\n‘ ============================================
\nPublic Function QQWry(DotIP)
\nDim IP, nRet
\nDim RangB, RangE, RecNo<\/p>\n
IP = IPToInt (DotIP)<\/p>\n
Set Stream = CreateObject("ADodb.Stream")
\nStream.Mode = 3
\nStream.Type = 1
\nStream.Open
\nStream.LoadFromFile QQWryFile
\nStream.Position = 0
\nBuf = Stream.Read(8)<\/p>\n
FirstStartIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)
\nLastStartIP = AscB(MidB(Buf, 5, 1)) + (AscB(MidB(Buf, 6, 1))*256) + (AscB(MidB(Buf, 7, 1))*256*256) + (AscB(MidB(Buf, 8, 1))*256*256*256)
\nRecordCount = Int((LastStartIP – FirstStartIP)\/7)
\n‘ \u5728\u6570\u636e\u5e93\u4e2d\u627e\u4e0d\u5230\u4efb\u4f55IP\u5730\u5740
\nIf (RecordCount <= 1) Then
\nCountry = "\u672a\u77e5"
\nQQWry = 2
\nExit Function
\nEnd If<\/p>\n
RangB = 0
\nRangE = RecordCount<\/p>\n
Do While (RangB < (RangE – 1))
\nRecNo = Int((RangB + RangE)\/2)
\nCall GetStartIP (RecNo)
\nIf (IP = StartIP) Then
\nRangB = RecNo
\nExit Do
\nEnd If
\nIf (IP > StartIP) Then
\nRangB = RecNo
\nElse
\nRangE = RecNo
\nEnd If
\nLoop<\/p>\n
Call GetStartIP(RangB)
\nCall GetEndIP()<\/p>\n
If (StartIP <= IP) And ( EndIP >= IP) Then
\n‘ \u6ca1\u6709\u627e\u5230
\nnRet = 0
\nElse
\n‘ \u6b63\u5e38
\nnRet = 3
\nEnd If
\nCall GetCountry(IP)<\/p>\n
QQWry = nRet
\nEnd Function
\n‘ ============================================
\n‘ \u7c7b\u7ec8\u7ed3
\n‘ ============================================
\nPrivate Sub Class_Terminate
\nOn ErrOr Resume Next
\nStream.Close
\nIf Err Then Err.Clear
\nSet Stream = Nothing
\nEnd Sub
\nEnd Class
\n%>
\n <\/p>\n","protected":false},"excerpt":{"rendered":"
<% ‘ ============================================ ‘ \u8fd4\u56deIP\u4fe1\u606f Disp_IPAddressData(IP,0) ‘ =============…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"topic":[],"class_list":["post-764","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/764","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/comments?post=764"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/764\/revisions"}],"predecessor-version":[{"id":66597,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/764\/revisions\/66597"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=764"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=764"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=764"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=764"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}