Calcolare il Google PageRank con ASP

Menu Javascript Ricette Cocktail Corsi online Registrazione domini Area Aziende

Home + Articoli + Motori di Ricerca + Articolo # 166

ASPPageRank è un componente completamente gratuito che permette di calcolare il Google PageRank (detto anche semplicemente PR) attraverso un semplicissimo script ASP.

Per scaricare il componente + sufficiente recarsi sul sito dell'autore all'indirizzo:

http://nonnoi.com/index.php?page=productdetail&id=21

e cliccare sul bottone con etichetta [Download] in alto a destra.

Una volta scaricato il file è possibile installarlo con un doppio click sull'eseguibile e seguire tutti i passaggi lasciando inalterate le opzioni di default.

Al termine dell'installazione si aprirà il file con le istruzioni del componente.

Vediamo brevemente come utilizzare il componente. Si crei sul proprio Web Server il file pr.asp, lo si lanci all'indirizzo:

http://localhost/pr.asp

e lo si corredi del seguente codice:

<%@LANGUAGE = VBScript%>
<%
    Dim PR
    Set PR = Server.CreateObject("nonnoi_ASPPageRank.ASPPageRank")
    PR.Url = "www.lucaruggiero.it"
    Response.Write "PageRank: " & PR.PageRank & "/10"
    Set PR = Nothing
%>

La proprietà Url identifica l'indirizzo da controllare ed il metodo PageRank calcola appunto il PR che Google assegna alla pagina in questione.

L'esempio appena riportato controlla staticamente un indirizzo Web; vediamo dunque come come dinamizzare il processo.

Si crei adesso sul proprio Web Server il file pr.html e lo si corredi del seguente codice:

<form method="post" action="pr.asp">
    http://
    <input type="text" name="indirizzo">
    <input type="submit" value="Verifica PR">
</form>

Si modifichi adesso il file pr.asp come segue:

<%@LANGUAGE = VBScript%>
<%
    Dim indirizzo, PR
    indirizzo = Request.Form("indirizzo")
    If indirizzo = "" Then
        Response.Write "Specificare un indirizzo Web!"
        Response.End
    End If
    Set PR = Server.CreateObject("nonnoi_ASPPageRank.ASPPageRank")
    PR.Url = indirizzo
    Response.Write "PageRank: " & PR.PageRank & "/10"
    Set PR = Nothing
%>