Tips & Tricks
[Précédent] [Retour]
Formater une date en français sur un
serveur hébergé aux US
DateFr = DatePart("d",Date) & "/" & _
DatePart("m",Date) & "/" & _
DatePart("yyyy",Date)
Response.Write DateFr
[Haut]
Afficher un lien de retour à la page
précédente
<a href="<%=
Request.ServerVariables("HTTP_REFERER") %>">Page
précédente</a>
[Haut]
Compteur avec graphique
Avec des images nommées c0.gif à c9.gif et un
formattage sur 5 chiffres (en VBScript) :
<%
function formatCounter( n )
dim str, i
str = "00000" & n
str = right( str, 5 )
for i = 1 to 5
response.write "<img src=""c" & mid( str, i, 1 ) &
".gif"">"
next
end function
%>
dans la page asp :
<%
formatCounter( Application( "Counter" ) )
%>
dans le global.asa :
sub Session_onStart
Application.Lock
Application( "Counter" ) = Application( "Counter" ) + 1
Application.Lock
end sub
[Haut]
Se connecter à une Base Acess sans
utiliser l'ODBC
<%Set Conn =
Server.CreateObject("ADODB.Connection")%>
' remplacer ici chemin par le chemin de votre base sur
le serveur
<%chemin = "" & Server.MapPath("mabase.mdb")%>
<%Conn.open "driver={Microsoft Access Driver (*.mdb)};DBQ="&chemin%>
<%sql="select lien, nom from info order by IDLIEN"%>
<%Set RS=Conn.Execute(sql)%>
'
' traitement
'
<%RS.close%>
<%set RS=Nothing%>
[Haut]
Rafraichir une page toutes
les n secondes
'remplacer le 5 par le nombres de secondes désirées
<META HTTP-EQUIV="REFRESH" CONTENT="5; url=default.asp">
[Haut]
Forcer l'actualisation
d'une page
<meta http-equiv="Pragma"
content="no-cache">
[Haut]
Verifier la validité d'une
date
La formule isDate(valeur) retourne TRUE si la date est
valide
[Haut]
Formater une date sur 4
chiffres ( Vive l'an 2000 )
Il suffit de faire : <%=Year(Date())%>
[Haut]
Tester l'existance d'un
fichier
<%Set fs =
CreateObject("Scripting.FileSystemObject")
if fs.FileExists(Server.MapPath("/tutorial") & "\default.htm") =
FALSE then
response.write "Le fichier est inéxistant"
Else
response.write "Le fichier existe"
end if
%>
[Haut]
Rediriger dans une frame
particuliere
<script language="JavaScript">
parent.frames[x].location="left.asp";
</script>
ou x représente le numero de la frame dans l'ordre des
déclarations.
[Haut]
Rediriger dans la fenetre
principale
<script language="JavaScript">
parent.location="index.asp";
</script>
si index.asp contient le framset, toutes les fenetres
sont rechargées.
[Haut]
Calculer le numéro de la
semaine
<script Language="VBScript">
Option Explicit
dim date_lundi ' Le lundi de la semaine en cours
dim numerosemaine 'le numero de semaine que nous cherchons
dim premierjanvier 'la date au 1ier janvier
premierjanvier = "1/1/" &
Right(Year(Now),2)
if Weekday(Now)=1 then 'si nous sommes un dimanche
date_lundi= DateValue(now - 6)
else
date_lundi = DateValue(now - (Weekday(Now)-2))
end if
numerosemaine =Int((DateSerial(year(now), month(now), day(date_lundi)) -
DateSerial(year(now), 1, 1)) / 7) + 1
Document.write "nous sommes à la semaine
n°" & numerosemaine
</script>
[Haut]
Formatage d'un champ mémo
Replace(contenu du champ mémo, vbCrLf,
"<BR>")
[Haut]
Récupération des données d'un
formulaire
<%
'**On compte tous les champs du formulaire qui ne sont pas vides
TotalCount=0
for each stuff in request.form
Total=request.form(stuff).count + TotalCount
Next
'**On récupère les valeurs des champs
for each stuff in request.form
ValueForm=request.form(stuff)
Counter=request.form(stuff).Count + Counter
if stuff<>"SUBMIT" then '**le champ submit doit être ignoré
If Counter<TotalCount then
SQLstmt=SQLstmt & stuff & "='" & ValueForm & "' and "
Else
SQLstmt=SQLstmt & stuff & "='" & ValueForm & "'"
'**Termine la chaîne
End if
End if
next
SQLstmt="Select from LaTable where " & SQLstmt
%>
[Haut]
Calcul du nombre de jour
jusqu'à l'An 2000
<%
Date1 = Date
Date2 = ("01/01/2000")
NbJour = DateDiff ("d",Date1,Date2,2,1)
response.write (NbJour)
%>
[Haut]
Arrondir un Nombre
<%=round(X,Y)%>
avec:
X : variable
Y : nombre de décimales souhaitées
[Haut]
|