Association Tiwanamane pour le dévelepemment et le coopération - almokar ntawsna

 

<% ' on demande au serveur de créer un objet de type fichier Set FSO = Server.CreateObject("Scripting.FileSystemObject") ' on désigne le chemin de deux fichiers intitulés "message.txt" et "login.txt" ' Le premier va être le fichier qui va collecter les messages ' Le second va collecter les pseudos des utilisateurs dans le but de controler leur validité cible = Server.MapPath("messages/messages.txt") logs = Server.MapPath("messages/login.txt") ' Si on clique sur le bouton ok ou ' si le champ message n'est pas vide alors if ((request.form("go")<>"") or (request.form("message")<>"")) then session("log")="in" ' On controle la validité du pseudo avec le fichier login.txt grâce au cookie if ((request.cookies("login")<>"") and (request.cookies("login")<>request.form("pseudo"))) then%> <% session("log")="out" end if if request.cookies("login")="" then set controle = FSO.OpenTextFile(logs,1) while not controle.atendofstream if request.form("pseudo")=controle.readline then session("log")="out" response.cookies("login")="" %> <% end if wend end if if session("log")="in" then if session("login")="" then set ajout_pseudo= FSO.OpenTextFile(logs,8) ajout_pseudo.writeline request.form("pseudo") response.cookies("login")=request.form("pseudo") response.cookies("login").Expires = date+1 end if ' Ajout du nouveau message dans le fichier si tout est ok ' on ouvre le fichier en mode "écriture à la fin du fichier" désigné par le nombre 8 set ajout = FSO.OpenTextFile(cible,8) ' on incrémente le pseudo et le message dans le fichier ajout.writeline formatdatetime(now(),4)&" "&request.form("pseudo")&" > "&request.form("message") ' on vide l'objet Fichier set FSO = nothing end if ' Sinon, si on clique sur "Tout Effacer" alors elseif request.form("destruct")<>"" then session("login")="" session("log")="out" ' Suppression du fichier en cours... set efface_message = FSO.getfile(cible) set efface_logs = FSO.getfile(logs) efface_message.delete efface_logs.delete ' ...et on en recrée un nouveau FSO.CreateTextFile(cible) set ajout = FSO.OpenTextFile(cible,8) ajout.writeline "NOUVELLE CONVERSATION" ajout.writeline "-----------------------------" FSO.CreateTextFile(logs) ' enfin on vide l'objet Fichier set FSO = nothing ' fin de condition end if %>
Votre pseudo : " style="font-size: 10 px">  

Votre message :
=> Veux-tu aussi créer une site gratuit ? Alors clique ici ! <=