Today in history
Soyez le premier à donner votre avis sur cette source.
Vue 7 047 fois - Téléchargée 207 fois
Description
[ TESTE AVEC VWEBSERVER ]
Je crois que ca s'appelle comme ca!
Une page affiche tous les évènement historiques qui se sont passés ce jour la!
Voila,voila...
@++
vbtom.
.:.: SOURCES :.:.
<%
Dim objConn,URLDBB,Provider
'---- Les chemins physiques ----
URLDBB = Server.MapPath("/today/TodayInHistory.mdb") '>>> A configurer!!!!
Provider="DBQ=" & URLDBB & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
'---- Création de l'objet CONNECTION ----
Set objConn = server.createObject("ADODB.Connection")
objConn.Open Provider
'---- Création de l'objet RECORDSET ----
Dim dataRec
set dataRec = server.createObject("ADODB.RecordSet")
dataRec.CursorType = 1
dataRec.LockType = 3
dataRec.Open "SELECT * FROM event WHERE MID(Date,1,2)=" & DAY(Date), objConn,3
If Not dataRec.EOF Then
dataRec.MoveFirst
End If
'---- Fonction qui écrit une date en toute lettre ----
Function WriteThisDateInLetters(IDate)
Dim Jours,MoisS
Dim Jour,Mois,Annee
Jours=Array("","Dimanche","Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi")
MoisS=Array(" ","Janvier","Février","Mars","Avril","Mai","Juin","Juillet","Août","Septembre","Octobre","Novembre","Décembre")
Jour=Jours(WEEKDAY(IDate))
Mois=MoisS(MONTH(IDate))
Annee=YEAR(IDate)
WriteThisDateInLetters = Jour & " " & DAY(IDate) & " " & Mois & " " & Annee
End Function
%>
<HTML>
<HEAD>
<TITLE><% = WriteThisDateInLetters(Date) %> | Exemple de l'application "Today In History" | By vBtOM |</TITLE>
</HEAD>
<BODY>
<A style=font-family=verdana;font-size=16px;color=#0099cc;>Test de l'application "Today In History" pour le <% = WriteThisDateInLetters(Date) %></A>
<BR><BR>
<A style=font-family=verdana;font-size=10px;color=#0000ff;>
<%
WHILE not dataRec.EOF
Response.Write "<B>" & WriteThisDateInLetters(dataRec("Date")) & ": " & dataRec("EventTitre") & "</B><BR>" & vbcrlf & dataRec("EventText")
dataRec.MoveNext
WEND
%>
</A>
<BR><BR><BR><BR>
<CENTER><A style=font-family=verdana;font-size=10px;color=#cccccc;>©oded by vBtOM</A></CENTER>
</BODY>
</HTML>
Je crois que ca s'appelle comme ca!
Une page affiche tous les évènement historiques qui se sont passés ce jour la!
Source / Exemple :
[Tout est dans le zip]
Conclusion :
Voila,voila...
@++
vbtom.
.:.: SOURCES :.:.
<%
Dim objConn,URLDBB,Provider
'---- Les chemins physiques ----
URLDBB = Server.MapPath("/today/TodayInHistory.mdb") '>>> A configurer!!!!
Provider="DBQ=" & URLDBB & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
'---- Création de l'objet CONNECTION ----
Set objConn = server.createObject("ADODB.Connection")
objConn.Open Provider
'---- Création de l'objet RECORDSET ----
Dim dataRec
set dataRec = server.createObject("ADODB.RecordSet")
dataRec.CursorType = 1
dataRec.LockType = 3
dataRec.Open "SELECT * FROM event WHERE MID(Date,1,2)=" & DAY(Date), objConn,3
If Not dataRec.EOF Then
dataRec.MoveFirst
End If
'---- Fonction qui écrit une date en toute lettre ----
Function WriteThisDateInLetters(IDate)
Dim Jours,MoisS
Dim Jour,Mois,Annee
Jours=Array("","Dimanche","Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi")
MoisS=Array(" ","Janvier","Février","Mars","Avril","Mai","Juin","Juillet","Août","Septembre","Octobre","Novembre","Décembre")
Jour=Jours(WEEKDAY(IDate))
Mois=MoisS(MONTH(IDate))
Annee=YEAR(IDate)
WriteThisDateInLetters = Jour & " " & DAY(IDate) & " " & Mois & " " & Annee
End Function
%>
<HTML>
<HEAD>
<TITLE><% = WriteThisDateInLetters(Date) %> | Exemple de l'application "Today In History" | By vBtOM |</TITLE>
</HEAD>
<BODY>
<A style=font-family=verdana;font-size=16px;color=#0099cc;>Test de l'application "Today In History" pour le <% = WriteThisDateInLetters(Date) %></A>
<BR><BR>
<A style=font-family=verdana;font-size=10px;color=#0000ff;>
<%
WHILE not dataRec.EOF
Response.Write "<B>" & WriteThisDateInLetters(dataRec("Date")) & ": " & dataRec("EventTitre") & "</B><BR>" & vbcrlf & dataRec("EventText")
dataRec.MoveNext
WEND
%>
</A>
<BR><BR><BR><BR>
<CENTER><A style=font-family=verdana;font-size=10px;color=#cccccc;>©oded by vBtOM</A></CENTER>
</BODY>
</HTML>
Codes Sources
A voir également
- Today in history
- Today's i.e. history cleaner with sendkeys - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- PDA : Créer un plug-in today avec le framework christek - CodeS SourceS - Guide
- Exception in thread "awt-eventqueue-0" java.lang.nullpointerexception - Forum - Java
- Action listener in java - Conseils pratiques - Java
- Cat in c++ - Guide
ca marche pas pour moi rien a affiché
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.