Component to check your Google Page rank
Techniques
Cette section permet de regrouper un ensemble de techniques ou de scripts qui ont l'originalité d'arriver à résoudre une difficulté avec le moindre effort ou qui sont particulièrement efficaces...
Techniques / Web component : DypsoPRank Checker
Please visit also our sponsor
- Display dynamically your Google Page Rank from ASP :
Here is the final result you should have when browsing main.asp :
(The full version does not contain the mention : Dypso BO ©)
In order to display the page rank of various web site we will write two ASP pages :
- - main.asp : will contain the table and the <img> tag in order to display the above image. The href attribute of the img TAG will be : display.asp
- - display.asp : in the file we will going to call the DypsoPRank object so it will draw the correct rank image on our page.
Here is main.asp script :
<html>
<body>
<%
Response.Expires = 0
Response.Buffer = true
Response.Clear
Dim arr_url(4)
arr_url(0) = "dypso.free.fr"
arr_url(1) = "www.aspin.com"
arr_url(2) = "www.google.com"
arr_url(3) = "www.hotscript.com"
With Response
.write "<table "&_
"style='border:1px solid #cecece;width:350px'>"&_
"<tr>"
for i = Lbound(arr_url) to UBound(arr_url)-1
.write "<tr>"&_
"<td style='border-bottom:1px dashed silver'>"&_
arr_url(i) & "</td><td>"&_
"<a href='http://dypso.free.fr' "&_
" title='Display your Page Rank with DypsoPRank!'>"&_
" <img border='0' src='get_pr.asp?url="& arr_url(i) &"'>"&_
" </a></td></tr>" & vbcrlf
next
end with
%>
</body>
</html>
and now here is display.asp :
<%
set chk = server.createObject("DypsoPRank.checker")
chk.strURL = request.queryString("url")
chk.displayPR
set chk = nothing
%>
Declaimer: Because of dependency the components from functionality of
third party services (Google Search), the author disclaim any responsibility
for components functionality failures caused by activity or inactivity of this
third party services.
You could now ask for support by using the forum.