Salinan kode adalah sebagai berikut:
<%@Language = "vbscript" codepage = "936"%>
<! Doctypehtmlpublic "-// w3c // dtdhtml4.01transitional // en" "http://www.w3.org/tr/html4/loose.dtd">
<Html>
<head>
<metahttp-equiv = "konten-tipe" content = "text/html; charset = gb2312">
<Title> Program Kueri Nilai GooglePr </iteme>
</head>
<hody> <h3> Masukkan URL dan query Nilai GooglePagerank </h3>
<formname = "Form1" Method = "POST" ACTION = "? ACT = OK">
<p> Masukkan URL
<inputType = "text" name = "domain">
<inputType = "Kirim" Nama = "Kirim" Nilai = "Kirim">
</p>
</form>
<%
iftrim (request.queryString ("act")) = "ok" lalu
domain = trim (request.form ("domain"))
ifdomain <> "" Lalu
Response.write ("<b>" & domain & "</b> nilai GooglePagerank adalah <fontColor = red>" & getPr (domain) & "</font>")
endif
endif
FunctionGetPR (domain)
getContent = getUrl ("http://so.5eo.com/pr/rank.asp?domain=" & domain)
getPrline = regexPtext (getContent, "get.* (// d).* Poin di GooglePagerank skor penuh 10 poin peringkat")
getpr = regexPtext (getPrline, "// s // d // s")
Fungsi endfungsi
FunctionBTR (VIN)
Dimstrreturn, i, Kode ini, kode dalam, hight8, low8, nextCharcode
strreturn = ""
Fori = 1TolenB (VIN)
Kode ini = ASCB (midb (vin, i, 1))
Ifthischarcode <& H80then
Strreturn = Strreturn & CHR (Kode ini)
Kalau tidak
NextCharCode = ASCB (midb (vin, i+1,1)))
Strreturn = Strreturn & Chr (Clng (ThisCharcode)*& H100+CINT (NextCharCode))
i = i+1
Endif
Berikutnya
BSTR = Strreturn
Fungsi endfungsi
FunctionGetUrl (url)
SetRetrieval = server.createObject ("microsoft.xmlhttp")
Tanpa retrieval
.Open "get", url, false
.setRequestHeader "tipe konten", "Aplikasi/X-WWW-Form-Burlencoded"
.Mengirim
GetUrl = .responseBody
Endwith
SetRetrieval = tidak ada
GetUrl = bstr (getUrl)
Fungsi endfungsi
FunctionRegExptext (strng, regstr)
'Dimregex, Match, Matches' menciptakan variabel.
SetRegex = newregexp 'menciptakan ekspresi reguler.
Regex.pattern = Regstr 'Set Mode.
Regex.ignorecase = true 'Tetapkan apakah akan menjadi sensitif kasus.