Supposons que vous souhaitiez créer un livre d'or simple où vous pouvez créer une base de données où vous stockez des informations utilisateur. Cependant, l'utilisation de FSO pour stocker des informations vous fera économiser du temps et de l'argent si la puissance de la base de données n'est pas requise. Et, certains FAI peuvent restreindre les applications de base de données sur le Web.
Supposons que vous ayez collecté certaines informations utilisateur dans un formulaire, voici un code HTML simple:
<html>
<body>
<formulaire form = formhandler.asp méthode = post>
<input type = Text size = 10 name = nom d'utilisateur>
<Type d'entrée = Text Taille = 10 Name = Homepage>
<Type d'entrée = Text Taille = 10 Name = Email>
</ form>
</docy>
</html>
Jetons un coup d'œil au code qui traite les formulaires dans FormHandler.asp:
<%
'Obtenez des informations de formulaire
strname = request.form (nom d'utilisateur)
strhomePage = request.form (Homepage)
stremail = request.form (e-mail)
'Créer l'objet FSO
Set fso = server.createObject (scripting.fileSystemObject)
Jusqu'à présent, rien de nouveau n'est rien de plus que d'obtenir la valeur du champ de formulaire et d'attribuer des valeurs aux variables. Une partie intéressante apparaît ci-dessous - Écrivez un fichier:
chemin = c: empl est.txt
ForReading = 1, pour l'écriture = 2, pour la réappartement = 3
'Ouvrez le fichier
set file = fso.opentextfile (chemin, pour pair, true)
'Écrivez les informations sur le fichier
file.write (strname) & vbcrlf
file.write (strhomePage) & vbcrlf
file.write (stremail) & vbcrlf
'Fermer et nettoyer
file.close
set file = rien
Définir FSO = rien
Rappelons que la méthode OpenTextFile renvoie un objet TextStream, qui est un autre objet dans le modèle FSO. L'objet TextStream révèle des moyens de manipuler le contenu des fichiers, tels que l'écriture, la lecture et le saut d'une ligne. Le VB constant VBCRLF produit un caractère Newline.
Vrai est défini dans le paramètre de commande d'OpenTextFile, qui indique au système que si le fichier n'existe pas, créez-le. Si le fichier n'existe pas et que le paramètre True n'est pas défini, une erreur se produit.
Accédez maintenant au répertoire C: EMP, Open Test.txt, et vous pouvez voir les informations suivantes:
Nom de l'utilisateur
Page d'accueil de l'utilisateur
E-mail de l'utilisateur
Bien sûr, ces mots peuvent être remplacés par tout ce qui est entré dans le formulaire