Formulaire + nom de fichier unique

Formulaire + nom de fichier unique - ASP - Programmation

Marsh Posté le 28-04-2004 à 13:54:24    

Bonjour!  :sol:  
 
J'ai fait un formulaire HTML et j'ai renommé formulaire.html en formulaire.asp
Mon formulaire est de 3 pages et sur la première page, quand on clique sur page suivante, un fichier txt se crée etles données du formulaire sont envoyées dans le fichier txt. Sur la 3ème page, lorsqu'on clique sur envoyer, les données du fichier text sont récupérées et envoyées dans la base.
 
En fait, j'aimerais donner un nom unique au fichier .txt car si plusieurs personnes remplissent le formulaire en même temps il faut un nom de fichier unique pour chacun! Comment je fais ça ??
 
Merci de votre aide!

Reply

Marsh Posté le 28-04-2004 à 13:54:24   

Reply

Marsh Posté le 28-04-2004 à 14:11:05    

dans serverobject (pas verifié), il y le sessionid du client qui est unique tu peux t'en servir dans ton nom de fichier (mais c'est une valeur tres grande). Sinon il y a la date a la seconde peut eventuellement faire l'affaire, ou bien un compteur auto quelquonque dans une table de parametre.

Reply

Marsh Posté le 28-04-2004 à 14:26:05    

comment je fais pour me servir de sessionid ?
J'ai créé mon fichier txt comme ca :
 Dim fso, MyFile
 Set fso = CreateObject("Scripting.FileSystemObject" )
 Set MyFile = fso.CreateTextFile("mon_fichier.txt",1,True)  

Reply

Marsh Posté le 28-04-2004 à 14:32:48    

cherche dans l'objet session je crois.

Reply

Marsh Posté le 28-04-2004 à 14:35:18    

Code :
  1. <%
  2. for each item in session.attributes(pas sur)
  3. response.write item & " = " & session(item) & "<BR>"
  4. next
  5. %>


 
je crois qu'il est dans une des collectyions de l'object session

Reply

Marsh Posté le 05-05-2004 à 20:06:44    

En fait dans la première page j'ai mis le code ci-dessous pour que le fichier texte ait un nom unique:
 
Response.Write(Session.sessionid )  
ResultFile = Server.MapPath ("/resultat" ) & sessionid&".txt"
Application("ResultFile" ) = ResultFile
 
Set FileObject = Server.CreateObject("Scripting.FileSystemObject" )
Set MyFile= FileObject.CreateTextFile(Application("ResultFile" ), TRUE, FALSE)

Et sur les page suivantes, j'ai ce code-la :
 
   Dim fso, MyFile
    ResultFile = Server.MapPath ("/resultat" ) & sessionid&".txt"
    Application("ResultFile" ) = ResultFile
    Set fso = CreateObject("Scripting.FileSystemObject" )
    Set MyFile= fso.OpenTextFile(Application("ResultFile" ), 8,True,-1)

Mais sur la dernière page, celle ou je récupère les données du fichier text lorsque je clique sur envoyer, il y a une erreur...
Qu'est-ce qui est faux??
 
Merci pour ton aide

Reply

Marsh Posté le 06-05-2004 à 16:24:40    

Cstr( Application... )

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed