{"id":345,"date":"2009-01-08T10:00:52","date_gmt":"2009-01-08T02:00:52","guid":{"rendered":""},"modified":"2014-02-27T23:06:04","modified_gmt":"2014-02-27T15:06:04","slug":"google-pagerank%e6%9f%a5%e8%af%a2%e7%b3%bb%e7%bb%9fasp%e7%89%88","status":"publish","type":"post","link":"http:\/\/www.xiaoyebailong.com\/index.php\/2009\/01\/08\/345.htm","title":{"rendered":"Google PageRank\u67e5\u8be2\u7cfb\u7edf(ASP\u7248)"},"content":{"rendered":"

Google PageRank\u67e5\u8be2\u7cfb\u7edf\u3002\u5e26\u672c\u7a0b\u5e8f\u793a\u4f8b\u4e09\u4e2a\u9875\u9762,\u5176\u4e2d\u7684\u8fdc\u7a0b\u83b7\u53d6\u7c7b\u975e\u5e38\u4e0d\u9519.<\/p>\n

\u4ee3\u7801\u6f14\u793a:http:\/\/www.china-aspx.com\/pr\/pr_asp.asp<\/p>\n

\u4e09\u4e2a\u9875\u9762:
\nCLS_Asphttp.asp<\/p>\n

<%
\nClass FlyCms_AspHttp
\nPublic oForm,oXml,Ados
\nPublic strHeaders
\nPublic sMethod
\nPublic sUrl
\nPublic sReferer
\nPublic sSetCookie
\nPublic sLanguage
\nPublic sCONTENT
\nPublic sAgent
\nPublic sEncoding
\nPublic sAccept
\nPublic sData
\nPublic sCodeBase
\nPrivate slresolveTimeout,slconnectTimeout,slsendTimeout,slreceiveTimeout
\n‘ ============================================
\n‘ \u7c7b\u6a21\u5757\u521d\u59cb\u5316
\n‘ ============================================
\nPrivate Sub Class_Initialize()
\noForm = ""
\nSet oXml = Server.CreateObject("MSXML2.ServerXMLHTTP")
\nset Ados = Server.CreateObject("Adodb.Stream")
\nslresolveTimeout = 20000 ‘ \u89e3\u6790DNS\u540d\u5b57\u7684\u8d85\u65f6\u65f6\u95f4,20\u79d2
\nslconnectTimeout = 20000 ‘ \u5efa\u7acbWinsock\u8fde\u63a5\u7684\u8d85\u65f6\u65f6\u95f4,20\u79d2
\nslsendTimeout = 30000 ‘ \u53d1\u9001\u6570\u636e\u7684\u8d85\u65f6\u65f6\u95f4,30\u79d2
\nslreceiveTimeout = 30000 ‘ \u63a5\u6536response\u7684\u8d85\u65f6\u65f6\u95f4,30\u79d2
\nEnd Sub<\/p>\n

‘ ============================================
\n‘ \u8fd4\u56de\u7248\u672c\u4fe1\u606f
\n‘ ============================================
\nPublic Property Get Version
\nVersion = "\u98de\u626casphttp\u7c7b1.0.0"
\nEnd Property
\n‘ ============================================
\n‘ \u89e3\u6790DNS\u540d\u5b57\u7684\u8d85\u65f6\u65f6\u95f4
\n‘ ============================================
\nPublic Property Let lresolveTimeout(LngSize)
\nIf IsNumeric(LngSize) Then
\nslresolveTimeout = Clng(LngSize)
\nEnd If
\nEnd Property
\n‘ ============================================
\n‘ \u5efa\u7acbWinsock\u8fde\u63a5\u7684\u8d85\u65f6\u65f6\u95f4
\n‘ ============================================
\nPublic Property Let lconnectTimeout(LngSize)
\nIf IsNumeric(LngSize) Then
\nslconnectTimeout = Clng(LngSize)
\nEnd If
\nEnd Property
\n‘ ============================================
\n‘ \u53d1\u9001\u6570\u636e\u7684\u8d85\u65f6\u65f6\u95f4
\n‘ ============================================
\nPublic Property Let lsendTimeout(LngSize)
\nIf IsNumeric(LngSize) Then
\nslsendTimeout = Clng(LngSize)
\nEnd If
\nEnd Property
\n‘ ============================================
\n‘ \u63a5\u6536response\u7684\u8d85\u65f6\u65f6\u95f4
\n‘ ============================================
\nPublic Property Let lreceiveTimeout(LngSize)
\nIf IsNumeric(LngSize) Then
\nslreceiveTimeout = Clng(LngSize)
\nEnd If
\nEnd Property
\n‘ ============================================
\n‘ Method
\n‘ ============================================
\nPublic Property Let Method(strMethod)
\nsMethod = strMethod
\nEnd Property
\n‘ ============================================
\n‘ \u53d1\u9001url
\n‘ ============================================
\nPublic Property Let Url(strUrl)
\nsUrl = strUrl
\nEnd Property
\n‘ ============================================
\n‘ Data
\n‘ ============================================
\nPublic Property Let Data(strData)
\nsData = strData
\nEnd Property
\n‘ ============================================
\n‘ Referer
\n‘ ============================================
\nPublic Property Let Referer(strReferer)
\nsReferer = strReferer
\nEnd Property
\n‘ ============================================
\n‘ SetCookie
\n‘ ============================================
\nPublic Property Let SetCookie(strCookie)
\nsSetCookie = strCookie
\nEnd Property
\n‘ ============================================
\n‘ Language
\n‘ ============================================
\nPublic Property Let Language(strLanguage)
\nsLanguage = strLanguage
\nEnd Property
\n‘ ============================================
\n‘ CONTENT-Type
\n‘ ============================================
\nPublic Property Let CONTENT(strCONTENT)
\nsCONTENT = strCONTENT
\nEnd Property
\n‘ ============================================
\n‘ User-Agent
\n‘ ============================================
\nPublic Property Let Agent(strAgent)
\nsAgent = strAgent
\nEnd Property
\n‘ ============================================
\n‘ Accept-Encoding
\n‘ ============================================
\nPublic Property Let Encoding(strEncoding)
\nsEncoding = strEncoding
\nEnd Property
\n‘ ============================================
\n‘ Accept
\n‘ ============================================
\nPublic Property Let Accept(strAccept)
\nsAccept = strAccept
\nEnd Property
\n‘ ============================================
\n‘ CodeBase
\n‘ ============================================
\nPublic Property Let CodeBase(strCodeBase)
\nsCodeBase = strCodeBase
\nEnd Property
\n‘ ============================================
\n‘ \u5efa\u7acb\u6570\u636e\u4f20\u9001\u5bf9\u5411!
\n‘ ============================================
\nPublic Function AddItem(Key, Value)
\nOn Error Resume Next
\nDim TempStr
\nIf oForm = "" Then
\noForm = Key + "=" + Server.URLEncode(Value)
\nElse
\noForm = oForm + "&" + Key + "=" + Server.URLEncode(Value)
\nEnd If
\nEnd Function
\n‘ ============================================
\n‘ \u53d1\u9001\u6570\u636e\u5e76\u53d6\u56de\u8fdc\u7a0b\u6570\u636e
\n‘ ============================================
\nPublic Function HttpGet()
\nDim sReturn
\nWith oXml
\n.setTimeouts slresolveTimeout,slconnectTimeout,slsendTimeout,slreceiveTimeout
\n.Open sMethod,sUrl,False
\nIf sSetCookie<>"" Then
\n.setRequestHeader "Cookie", sSetCookie ‘\u8bbe\u5b9aCookie
\nEnd If
\nIf sReferer<>"" Then
\n.setRequestHeader "Referer", sReferer ‘\u8bbe\u5b9a\u9875\u9762\u6765\u6e90
\nElse
\n.setRequestHeader "Referer", sUrl
\nEnd If
\nIf sLanguage<>"" Then
\n.setRequestHeader "Accept-Language", sLanguage ‘\u8bbe\u5b9a\u8bed\u8a00
\nEnd If
\n.setRequestHeader "Content-Length",Len(sData) ‘\u8bbe\u5b9a\u6570\u636e\u957f\u5ea6
\nIf sCONTENT<>"" Then
\n.setRequestHeader "CONTENT-Type",sCONTENT ‘\u8bbe\u5b9a\u63a5\u53d7\u6570\u636e\u7c7b\u578b
\nEnd If
\nIf sAgent<>"" Then
\n.setRequestHeader "User-Agent", sAgent ‘\u8bbe\u5b9a\u6d4f\u89c8\u5668
\nEnd If
\nIf sEncoding<>"" Then
\n.setRequestHeader "Accept-Encoding", sEncoding ‘\u8bbe\u5b9agzip\u538b\u7f29
\nEnd If
\nIf sAccept<>"" Then
\n.setRequestHeader "Accept", sAccept ‘\u6587\u6863\u7c7b\u578b
\nEnd If
\nResponse.Write sData
\n.Send sData ‘\u53d1\u9001\u6570\u636e
\nWhile .readyState <> 4
\n.waitForResponse 1000
\nWend
\nstrHeaders = .getAllResponseHeaders()
\nIf sCodeBase<>"" Then
\nsReturn = bytes2BSTR(.responseBody)
\nElse
\nsReturn = .responseBody
\nEnd If
\nEnd With
\nHttpGet = sReturn
\nEnd Function
\n‘ ============================================
\n‘ \u5904\u7406\u4e8c\u8fdb\u5236\u6570\u636e
\n‘ ============================================
\nPrivate Function bytes2BSTR(vIn)
\nstrReturn = ""
\nFor i = 1 To LenB(vIn)
\nThisCharCode = AscB(MidB(vIn,i,1))
\nIf ThisCharCode < &H80 Then
\nstrReturn = strReturn & Chr(ThisCharCode)
\nElse
\nNextCharCode = AscB(MidB(vIn,i+1,1))
\nstrReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
\ni = i + 1
\nEnd If
\nNext
\nbytes2BSTR = strReturn
\nEnd Function
\n‘ ============================================
\n‘ \u7c7b\u6a21\u5757\u6ce8\u9500
\n‘ ============================================
\nPrivate Sub Class_Terminate
\noForm = ""
\nSet oXml = Nothing
\nSet Ados = Nothing
\nEnd Sub
\nEnd Class
\n%><\/p>\n

google.asp<\/p>\n

<%
\nConst GOOGLE_MAGIC = &HE6359A60<\/p>\n

Function sl(ByVal x, ByVal n)
\nIf n = 0 Then
\nsl = x
\nElse
\nDim k
\nk = CLng(2 ^ (32 – n – 1))
\nDim d
\nd = x And (k – 1)
\nDim c
\nc = d * CLng(2 ^ n)
\nIf x And k Then
\nc = c Or &H80000000
\nEnd If
\nsl = c
\nEnd If
\nEnd Function<\/p>\n

Function sr(ByVal x, ByVal n)
\nIf n = 0 Then
\nsr = x
\nElse
\nDim y
\ny = x And &H7FFFFFFF
\nDim z
\nIf n = 32 – 1 Then
\nz = 0
\nElse
\nz = y \\ CLng(2 ^ n)
\nEnd If
\nIf y <> x Then
\nz = z Or CLng(2 ^ (32 – n – 1))
\nEnd If
\nsr = z
\nEnd If
\nEnd Function<\/p>\n

Function zeroFill(ByVal a, ByVal b)
\nDim x
\nIf (&H80000000 And a) Then
\nx = sr(a, 1)
\nx = x And (Not &H80000000)
\nx = x Or &H40000000
\nx = sr(x, b – 1)
\nElse
\nx = sr(a, b)
\nEnd If
\nzeroFill = x
\nEnd Function<\/p>\n

Private Function uadd(ByVal L1, ByVal L2)
\nDim L11, L12, L21, L22, L31, L32
\nL11 = L1 And &HFFFFFF
\nL12 = (L1 And &H7F000000) \\ &H1000000
\nIf L1 < 0 Then L12 = L12 Or &H80
\nL21 = L2 And &HFFFFFF
\nL22 = (L2 And &H7F000000) \\ &H1000000
\nIf L2 < 0 Then L22 = L22 Or &H80
\nL32 = L12 + L22
\nL31 = L11 + L21
\nIf (L31 And &H1000000) Then L32 = L32 + 1
\nuadd = (L31 And &HFFFFFF) + (L32 And &H7F) * &H1000000
\nIf L32 And &H80 Then uadd = uadd Or &H80000000
\nEnd Function<\/p>\n

Private Function usub(ByVal L1, ByVal L2)
\nDim L11, L12, L21, L22, L31, L32
\nL11 = L1 And &HFFFFFF
\nL12 = (L1 And &H7F000000) \\ &H1000000
\nIf L1 < 0 Then L12 = L12 Or &H80
\nL21 = L2 And &HFFFFFF
\nL22 = (L2 And &H7F000000) \\ &H1000000
\nIf L2 < 0 Then L22 = L22 Or &H80
\nL32 = L12 – L22
\nL31 = L11 – L21
\nIf L31 < 0 Then
\nL32 = L32 – 1
\nL31 = L31 + &H1000000
\nEnd If
\nusub = L31 + (L32 And &H7F) * &H1000000
\nIf L32 And &H80 Then usub = usub Or &H80000000
\nEnd Function<\/p>\n

Function mix(ByVal ia, ByVal ib, ByVal ic)
\nDim a, b, c
\na = ia
\nb = ib
\nc = ic<\/p>\n

a = usub(a, b)
\na = usub(a, c)
\na = a Xor zeroFill(c, 13)<\/p>\n

b = usub(b, c)
\nb = usub(b, a)
\nb = b Xor sl(a, 8)<\/p>\n

c = usub(c, a)
\nc = usub(c, b)
\nc = c Xor zeroFill(b, 13)<\/p>\n

a = usub(a, b)
\na = usub(a, c)
\na = a Xor zeroFill(c, 12)<\/p>\n

b = usub(b, c)
\nb = usub(b, a)
\nb = b Xor sl(a, 16)<\/p>\n

c = usub(c, a)
\nc = usub(c, b)
\nc = c Xor zeroFill(b, 5)<\/p>\n

a = usub(a, b)
\na = usub(a, c)
\na = a Xor zeroFill(c, 3)<\/p>\n

b = usub(b, c)
\nb = usub(b, a)
\nb = b Xor sl(a, 10)<\/p>\n

c = usub(c, a)
\nc = usub(c, b)
\nc = c Xor zeroFill(b, 15)<\/p>\n

Dim ret(3)<\/p>\n

ret(0) = a
\nret(1) = b
\nret(2) = c<\/p>\n

mix = ret
\nEnd Function<\/p>\n

Function gc(ByVal s, ByVal i)
\ngc = Asc(Mid(s, i + 1, 1))
\nEnd Function<\/p>\n

Function GoogleCH(ByVal sUrl)
\nDim iLength, a, b, c, k, iLen, m
\niLength = Len(sUrl)<\/p>\n

a = &H9E3779B9
\nb = &H9E3779B9
\nc = GOOGLE_MAGIC
\nk = 0<\/p>\n

iLen = iLength
\nDo While iLen >= 12
\na = uadd(a, (uadd(gc(sUrl, k + 0), uadd(sl(gc(sUrl, k + 1), 8), uadd(sl(gc(sUrl, k + 2), 16), sl(gc(sUrl, k + 3), 24))))))
\nb = uadd(b, (uadd(gc(sUrl, k + 4), uadd(sl(gc(sUrl, k + 5), 8), uadd(sl(gc(sUrl, k + 6), 16), sl(gc(sUrl, k + 7), 24))))))
\nc = uadd(c, (uadd(gc(sUrl, k + 8), uadd(sl(gc(sUrl, k + 9), 8), uadd(sl(gc(sUrl, k + 10), 16), sl(gc(sUrl, k + 11), 24))))))<\/p>\n

m = mix(a, b, c)<\/p>\n

a = m(0)
\nb = m(1)
\nc = m(2)<\/p>\n

k = k + 12<\/p>\n

iLen = iLen – 12
\nLoop<\/p>\n

c = uadd(c, iLength)<\/p>\n

Select Case iLen ‘ all the case statements fall through
\nCase 11
\nc = uadd(c, sl(gc(sUrl, k + 10), 24))
\nc = uadd(c, sl(gc(sUrl, k + 9), 16))
\nc = uadd(c, sl(gc(sUrl, k + 8), 8))
\nb = uadd(b, sl(gc(sUrl, k + 7), 24))
\nb = uadd(b, sl(gc(sUrl, k + 6), 16))
\nb = uadd(b, sl(gc(sUrl, k + 5), 8))
\nb = uadd(b, gc(sUrl, k + 4))
\na = uadd(a, sl(gc(sUrl, k + 3), 24))
\na = uadd(a, sl(gc(sUrl, k + 2), 16))
\na = uadd(a, sl(gc(sUrl, k + 1), 8))
\na = uadd(a, gc(sUrl, k + 0))
\nCase 10
\nc = uadd(c, sl(gc(sUrl, k + 9), 16))
\nc = uadd(c, sl(gc(sUrl, k + 8), 8))
\nb = uadd(b, sl(gc(sUrl, k + 7), 24))
\nb = uadd(b, sl(gc(sUrl, k + 6), 16))
\nb = uadd(b, sl(gc(sUrl, k + 5), 8))
\nb = uadd(b, gc(sUrl, k + 4))
\na = uadd(a, sl(gc(sUrl, k + 3), 24))
\na = uadd(a, sl(gc(sUrl, k + 2), 16))
\na = uadd(a, sl(gc(sUrl, k + 1), 8))
\na = uadd(a, gc(sUrl, k + 0))
\nCase 9
\nc = uadd(c, sl(gc(sUrl, k + 8), 8))
\nb = uadd(b, sl(gc(sUrl, k + 7), 24))
\nb = uadd(b, sl(gc(sUrl, k + 6), 16))
\nb = uadd(b, sl(gc(sUrl, k + 5), 8))
\nb = uadd(b, gc(sUrl, k + 4))
\na = uadd(a, sl(gc(sUrl, k + 3), 24))
\na = uadd(a, sl(gc(sUrl, k + 2), 16))
\na = uadd(a, sl(gc(sUrl, k + 1), 8))
\na = uadd(a, gc(sUrl, k + 0))
\nCase 8
\nb = uadd(b, sl(gc(sUrl, k + 7), 24))
\nb = uadd(b, sl(gc(sUrl, k + 6), 16))
\nb = uadd(b, sl(gc(sUrl, k + 5), 8))
\nb = uadd(b, gc(sUrl, k + 4))
\na = uadd(a, sl(gc(sUrl, k + 3), 24))
\na = uadd(a, sl(gc(sUrl, k + 2), 16))
\na = uadd(a, sl(gc(sUrl, k + 1), 8))
\na = uadd(a, gc(sUrl, k + 0))
\nCase 7
\nb = uadd(b, sl(gc(sUrl, k + 6), 16))
\nb = uadd(b, sl(gc(sUrl, k + 5), 8))
\nb = uadd(b, gc(sUrl, k + 4))
\na = uadd(a, sl(gc(sUrl, k + 3), 24))
\na = uadd(a, sl(gc(sUrl, k + 2), 16))
\na = uadd(a, sl(gc(sUrl, k + 1), 8))
\na = uadd(a, gc(sUrl, k + 0))
\nCase 6
\nb = uadd(b, sl(gc(sUrl, k + 5), 8))
\nb = uadd(b, gc(sUrl, k + 4))
\na = uadd(a, sl(gc(sUrl, k + 3), 24))
\na = uadd(a, sl(gc(sUrl, k + 2), 16))
\na = uadd(a, sl(gc(sUrl, k + 1), 8))
\na = uadd(a, gc(sUrl, k + 0))
\nCase 5
\nb = uadd(b, gc(sUrl, k + 4))
\na = uadd(a, sl(gc(sUrl, k + 3), 24))
\na = uadd(a, sl(gc(sUrl, k + 2), 16))
\na = uadd(a, sl(gc(sUrl, k + 1), 8))
\na = uadd(a, gc(sUrl, k + 0))
\nCase 4
\na = uadd(a, sl(gc(sUrl, k + 3), 24))
\na = uadd(a, sl(gc(sUrl, k + 2), 16))
\na = uadd(a, sl(gc(sUrl, k + 1), 8))
\na = uadd(a, gc(sUrl, k + 0))
\nCase 3
\na = uadd(a, sl(gc(sUrl, k + 2), 16))
\na = uadd(a, sl(gc(sUrl, k + 1), 8))
\na = uadd(a, gc(sUrl, k + 0))
\nCase 2<\/p>\n

a = uadd(a, sl(gc(sUrl, k + 1), 8))
\na = uadd(a, gc(sUrl, k + 0))
\nCase 1
\na = uadd(a, gc(sUrl, k + 0))
\nEnd Select<\/p>\n

m = mix(a, b, c)<\/p>\n

GoogleCH = m(2)
\nEnd Function<\/p>\n

Function CalculateChecksum(sUrl)
\nCalculateChecksum = "6" & CStr(GoogleCH("info:" & sUrl))
\nEnd Function
\n%><\/p>\n

pr_asp.asp<\/p>\n

<!–#include file="google.asp"–>
\n<!–#include file="Cls_AspHttp.asp"–>
\n<%
\nSub Rw(Str)
\nResponse.Write Str & vbCrLf
\nResponse.Flush
\nEnd Sub<\/p>\n

Function HttpGet(lresolveTimeout,lconnectTimeout,Method,Url,Referer,Data,SetCookie,Language,CONTENT,Agent,Encoding,Accept,CodeBase)
\nSet DoGet = New FlyCms_AspHttp
\nDoGet.lresolveTimeout = lresolveTimeout
\nDoGet.lconnectTimeout = lconnectTimeout
\nDoGet.lsendTimeout = lsendTimeout
\nDoGet.lreceiveTimeout = lreceiveTimeout
\nDoGet.Method = Method
\nDoGet.Url = Url
\nDoGet.Referer = Referer
\nDoGet.Data = Data
\nDoGet.SetCookie = SetCookie
\nDoGet.Language = Language
\nDoGet.CONTENT = CONTENT
\nDoGet.Agent = Agent
\nDoGet.Encoding = Encoding
\nDoGet.Accept = Accept
\nDoGet.CodeBase = CodeBase
\nHttpGet = DoGet.HttpGet()
\nSet DoGet = Nothing
\nEnd Function<\/p>\n

Function GGPR(ByVal URL)
\nDim strRet
\nsURL = "http:\/\/www.google.com\/search?client=navclient&ch<\/a>=" & CalculateChecksum(URL) & "&features=Rank&q=info:" & URL
\nRw "\u67e5\u8be2\u5730\u5740: " & sURL & "<br \/>"
\nstrRet = HttpGet(10000, 20000,"GET",sUrl,"","","","zh-cn","","Mozilla\/4.0 (compatible; MSIE 6.0; Windows NT 5.1)","","*\/*","gb2312")
\nIf InStr(strRet,":") Then
\nR = Split(strRet,":")
\nGGPR = R(2)
\nElse
\nGGPR = 0
\nEnd If
\nRw "\u8fd4\u56de\u7ed3\u679c: " & strRet & "<br \/>"
\nRw "\u3000\u3000PR\u503c: " & GGPR & "<br \/>"
\nEnd Function<\/p>\n

iURL = Request("iURL")
\nIf iURL="" Then iURL = "http:\/\/www.v-ns.cn<\/a>"
\nCall GGPR(iURL)
\n%>
\n<html>
\n<head>
\n<title>Google PageRank\u67e5\u8be2
\n<\/title>
\n<\/head>
\n<body>
\n<h1>\u8f93\u5165\u5b8c\u6574\u9875\u9762\u5730\u5740\u67e5\u8be2PageRank(\u9875\u9762pr\u503c):<\/h1>
\n<form action="" method="post">
\nURL <input type="text" name="iURL" style="width:400px" \/><input type="submit" value="Pr\u67e5\u8be2" \/>
\n<\/form>
\n<\/body>
\n<\/html><\/p>\n","protected":false},"excerpt":{"rendered":"

Google PageRank\u67e5\u8be2\u7cfb\u7edf\u3002\u5e26\u672c\u7a0b\u5e8f\u793a\u4f8b\u4e09\u4e2a\u9875\u9762,\u5176\u4e2d\u7684\u8fdc\u7a0b\u83b7\u53d6\u7c7b\u975e\u5e38\u4e0d\u9519. \u4ee3\u7801\u6f14\u793a:http:\/\/www.china-aspx.com\/pr\/pr_asp.asp \u4e09\u4e2a\u9875\u9762: CLS_Asphttp.asp <% Cl…<\/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-345","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/345","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=345"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/345\/revisions"}],"predecessor-version":[{"id":66199,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/345\/revisions\/66199"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=345"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=345"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=345"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=345"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}