Composant de génération de fichiers Excel gratuit
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 / Composants Web : DypsoPRank Checker
Please visit also our sponsor
- Composant de calcul et d'affichage de page Rank :
Voici le résultat que l'on souhaite obtenir en affichant la page main.asp:
(La version complète ne contient pas la marque Dypso BO ©)
Afin d'afficher le page rank de plusieurs sites nous allons effectuer deux pages :
- - main.asp : contiendra un tableau avec des balises <img> dont l'url sera display.asp
- - display.asp : effectuera un appel au composant DypsoPRank et lui demandera de générer l'image affichant le page rank de l'url demandée.
Voici donc le script de la page main.asp :
<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>
et voici le script de la page display.asp
<%
set chk = server.createObject("DypsoPRank.checker")
chk.strURL = request.queryString("url")
chk.displayPR
set chk = nothing
%>
<< Page précédente |
Fonctions du composant
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.
Vous pouvez désormais poser toutes vos questions via le forum. Merci de votre compréhension.
You could now ask for support by using the forum.