<% @Language = "vbscript" CODEPAGE = "936"%>
Enter URL <% if Trim (Request.QueryString ("ACT")) = "ok" The Google PageRank value of if Domain = Trim ("Domain")) if Domain <> "" "" "" "& domain &" "& getpr Domain) & "") End IFEND IF
Function getPR (Domain) getContent = getURL ("http://rankwhere.com/google-page-rank.php?url=" & domain) getLine1 = regexptext (getContent, "HAS Google PageRank. * Out of 10") getLine2 = Regexptext (GetLine1, "PageRank. * Out") getpr = regexptext (getLine2, "/ d") end function
Function BSTR (VIN) DIM STRRETURN, I, THISCHARCODE, INNERCODE, HIGHT8, LOW8, NEXTCHARCODE STRRETURN = "" for i = 1 to lenb (vin) thischarcode = ASCB (MIDB (Vin, I, 1)) IF thischarcode <& H80 THEN strReturn = strReturn & Chr (ThisCharCode) Else NextCharCode = AscB (MidB (vIn, i 1,1)) strReturn = strReturn & Chr (CLng (ThisCharCode) * & H100 CInt (NextCharCode)) i = i 1 End If Next bstr = strReturn End FunctionFunction GetURL (url) Set Retrieval = Server.CreateObject ( "Microsoft.XMLHTTP") With Retrieval .Open "GET", url, false .setRequestHeader "Content-Type", "application / x-www-form- Urlencoded ".send getURL = .responsebody end with set retrieval = Nothing getURL = BSTR (getURL) End Function
Function Regexptext (strng, regstr) 'Dim Regex, Match, Matches' establishes variables. Set regex = new regexp 'establishes regular expressions. Regex.pattern = regstr 'setting mode. Regex.ignoreCase = true 'Set whether you distinguish between characters. Regex.global = true 'Sets global availability. Set matches = regex.execute (strng) 'Executes your search. FOR Each Match In Matches' traverses matching collection. Retstr = RETSTR & MATCH.VALUE '& "|||" Next Regexptext = RetStr Set Regex = Nothingend Function%>
