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.
discuss this topic to forum
