Exemple de ScriptsUtilisation : Pour créer et utiliser un objet dans vos documents ASP vous devez utiliser la commande ci-dessous : Set votreObjet = Server.CreateObject("LeNomdeVotreObjet")Voici un exemple de script ASP écrit en VBScript: Exemple simpleCe script affiche votre numéro de session
<HEAD> <TITLE>Exemple de script ASP</TITLE> </HEAD> <BODY> Bonjour, votre numéro de session est : <B> <% response.write(Session.SessionID) %> </B> </BODY> </HTML> Exemples plus techniquesGestion d'un formulaireCe fichier contient le code HTML pour afficher un simple formulaire HTML.
<HEAD> <TITLE>Exemple Formulaire</TITLE> </HEAD> <BODY><BR><BR> <FORM ACTION="GestionFormulaire.asp" METHOD="post" NAME="Formulaire"> <TABLE border="0" > <TR> <TD> Prénom : </TD> <TD> <INPUT TYPE="text" NAME="Iprenom" SIZE="30"><BR> </TD> </TR> <TR> <TD> Nom : </TD> <TD> <INPUT TYPE="text" NAME="Inom" SIZE="30"><BR> </TD> </TR> <TR> <TD> Age : </TD> <TD> <INPUT TYPE="text" NAME="Iage" SIZE="30"><BR> </TD> </TR> <TR> <TD> Email : </TD> <TD> <INPUT TYPE="text" NAME="Iemail" SIZE="30"><BR> </TD> </TR> </TABLE> <INPUT TYPE="submit"> </FORM> </BODY> </HTML> GestionFormulaire.asp : Ce fichier est appelé lors de la soumission du formulaire de la page
ExempleFormulaire.asp.
<HEAD> <TITLE>GestionFormulaire</TITLE> <% Dim Iprenom, Inom, Iemail, Iage Iprenom = request.form("Iprenom") Inom = request.form("Inom") Iage = request.form("Iage") Iemail = request.form("Iemail") %> </HEAD> <BODY> <% If Iprenom = "" Then Response.write "Vous devez entrer votre prénom." ElseIf Inom = "" Then Response.write "Vous devez entrer votre nom." ElseIf Iage = "" Then Response.write "Vous devez entrer votre age." ElseIf Iemail = "" Then Response.write "Vous devez entrer votre adresse de courriel." Else Response.write "Votre nom est " & Iprenom & " " & Inom & "<br>" & "Votre âge est " & Iage & "<br> " & "Votre courriel est " & Iemail &"." End If %> </BODY> </HTML> Exemple de connexion à une base de données
'Ouverture de la connexion a la BD. dim ConnBD, recordSetUsagerSet ConnBD = CreateObject("ADODB.Connection") ConnBD.Open "Provider=SQLOLEDB; Data Source=sqldev;Initial Catalog=NomdevotreBD; User Id=usr_nomusager; PWD=votremotdepasse" RecordSetUsager = ConnBD.Execute "Select Count(*) as NbUsager FROM TableUsager" Response.write "Le nombre d'usager est = " & RecordSetUsager("NbUsager") 'Fermeture de la connexion a la BD. ConnBD.close Set RecordSetUsager = Nothing Set ConnBD = Nothing %> Exemple de destruction d'un fichier sur disque dur
Set oFileSystem = Server.CreateObject("Scripting.FileSystemObject") oFileSystem.DeleteFile ("c:\fichieradetruire.txt", True) oFileSystem.Close %>  Les script ASP
|
Partenaires
Carrefour Internet
Carrefour Internet information
carrefourinternet
|
||||||||||||||||
| POPULARITÉ DU JOUR | VOTE DU JOUR | |||||||||||||||
|
||||||||||||||||
