<%
' 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
%>
|
