Vous voulez construire un annuaire de sites web et l'intégrer à votre site ? Je vous dirai que c'est tout à fait facile et même pas en 5 minutes : voyons ça de plus près
Pour la conception de cet annuaire on aura besoin d'une base de données que l'on va nommer "annuaire" et qui contiendra deux tables "annuaire" et "categories"
<% ' Création de l'objet de connection Set conn = Server.CreateObject("Adodb.Connection") ' Connexion conn.Open "annuaire" %>
<% ' Path long de la base de données dbPath = Server.MapPath(".")&"\annuaire.mdb" ' Création de l'objet permettant la connexion Set conn = Server.CreateObject("ADODB.Connection") ' Connexion conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" _ & " DBQ=" & dbPath %>
Enregistrez le fichier sous le nom de "_conn.asp" et mettez-le au même niveau que la base de données en cas de connexion sans DSN
On affiche les sites contenus dans la base de données
On va créer un fichier nommé "annuaire.asp" que l'on mettra au même niveau que le fichier "_conn.asp"
<% ' On récupère le nom du fichier actuel url=Request.ServerVariables("SCRIPT_NAME")%> <!--#include file="_conn.asp"--> <html> <head> <title>Annuaire Web</title> </head> <body> <% ' on crée un recordset dim rs set rs=Server.CreateObject("ADODB.Recordset") ' on affiche les catégories par ordre alphabétique dim sql sql="select * from categories order by categorie asc" ' on ouvre le recordset rs.open sql,conn,3,3 ' s'il y a des enregistrements if not rs.eof then ' tant qu'il y a des enregistrement on les affiche while not rs.eof%> <a href="<%=url%>?idcateg=<%=rs("id")%>"><%=rs("categorie")%></a> <% ' au suivant rs.movenext wend end if 'on ferme le recordset rs.close dim idcateg ' si l'utilisateur a spécifié une catégorie on affiche les sites correspondants idcateg=request.QueryString("idcateg") if idcateg<>"" and isnumeric(idcateg)=true then sql="select * from annuaire where categorie="&idcateg&" order by nombre desc" rs.open sql,conn,3,3 if not rs.eof then%> <hr width='100%'> <%while not rs.eof%> <a href="<%=rs("lien")%>" target="_blank"><%=rs("titre")%></a> (<%=rs("nombre")%> Visites)<br> <%=rs("description")%><br><br> <%rs.movenext wend end if rs.close end if%> </body> </html> <% ' on ferme le recordset et la connexion et on les détruit set rs=nothing conn.close set conn=nothing%>
Boutique |
Sites |
Bar |
Forum |
PhpBB |
Actu |
Glossaire |
Codes |
Tips |
Liens |
Livres |
Lettre
