votre nom de domaine .com .net .org pour seulement 95€ TTC
Besoin d'images :
Astuces du jour:
Images
- Boutons -
-
|
(Sélectionnez
l'objet avec le bouton droit de la souris, puis Enregistrer l'image
sous...)
|

- Lignes -
-
|
(Sélectionnez
l'objet avec le bouton droit de la souris, puis Enregistrer l'image
sous...)
|

- Chiffres -
-
-
-
|
(Sélectionnez
l'objet avec le bouton droit de la souris, puis Enregistrer l'image
sous...)
|
- Fonts -
|
(Sélectionnez
l'objet avec le bouton droit de la souris, puis Enregistrer l'image
sous...)
|

-Textures -
Bois
|
(Sélectionnez
l'objet avec le bouton droit de la souris, puis Enregistrer l'image
sous...)
|
Carreaux
|
(Sélectionnez
l'objet avec le bouton droit de la souris, puis Enregistrer l'image
sous...)
|
Marbres
|
(Sélectionnez
l'objet avec le bouton droit de la souris, puis Enregistrer l'image
sous...)
|
Murs
|
(Sélectionnez
l'objet avec le bouton droit de la souris, puis Enregistrer l'image
sous...)
|
Pierres
|
(Sélectionnez
l'objet avec le bouton droit de la souris, puis Enregistrer l'image
sous...)
|
Astuces du jour
- Comment utiliser une base de données via ODBC
-
1- Vérifier dans Panneau de configuration, Icone ODBC, Onglet
DSN Système le nom ADOSamples S'il n'existe pas vous en créez un en lui
sélectionnant vers une base de donnée Access ou Sql server.
2- Créer un fichier .ASP ci-dessous
3- Double cliquer sur Microsoft Internet Server => Gestionnaire
des services => Repertoire:
C:\InetPub\wwwroot\votre répertoire Scrtipt contenent
.asp en Exécuter (
pour NT serveur)
C:\webShare\wwwroot\votre répertoire Scrtipt contenant .asp en Exécuter
( pour NT workstation ou windows 95, 98)
<%@
Language=JScript %>
<html>
<head>
<title> Ce Script permet d'afficher
des informations d'une base de donnée via ODBC</title>
</head>
<body BGCOLOR="#FFFFFF">
<h3>ActiveX Data Object (ADO)</h3>
<%
Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("ADOSamples")
RS = Conn.Execute("SELECT * FROM Orders")
%>
<table BORDER="1">
<tr>
<% for (i = 0; i < RS.Fields.Count
- 1; i++) { %>
<td><b><%=
RS.Fields(i).Name %></b></td>
<% } %>
</tr>
<% while (!RS.EOF) { %>
<tr>
<% for (i = 0; i < RS.Fields.Count
- 1; i++) { %>
<td VALIGN="TOP"><%=
RS(i) %>
</td>
<% } %>
</tr>
<%
RS.MoveNext()
}
RS.Close()
Conn.Close()
%>
</table>
</body>
</html> |

- Problème avec des codes SQL (apostrophe)
-
| Il faut créer une fonction
qui remplace apostrophe par double guillemet et insérer cette fonction
à chaque fichier ASP nécessaire.
Fonction DblQuote(Txt)
L=Len(Txt)
For i = 1 to L
Char = Lid(Txt,i,1)
if Char= "'" then
Result = Result & "'"
else
Result = Result & Char
end if
next i
DblQuote = Result
End Function
Function Check_Texte(Txt)
Check_Texte = DblQuote(Txt)
End Function
|

- Méthode de tri Buble -
On Compare d'abord le 1er élément aux N-1 autres en inversant, chaque fois
que l'un d'eux est plus petit, de façon à amener le plus petit en première
position.
| For I = 1 to N - 1
For J = I + 1 to N
IF A(J) < A(I) then A(J) = A(I)
Next J
Next I
|

|

|
©
2004 Datagraphic S.A.
|