Buongiorno a tutti, vengo dal forum Flash e non conosco ASP.
Ho realizzato unaapplicazione Flash che mi permette di gestire i colori di una struttura Flash e del Testo di un'altra applicazione
Ho studiato come passare le variabili da Flash ad ASP ed ho trovato uno script per creare un file TXT ma non so come comporre il tutto.
in più sono su un Server 2000 di Aruba quindi suppongo che debba scrivere sulla cartella public per il problema dei permessi.
Questo è quello che ho realizzato.
Sareste così gentili da completarmi lo script ASP ??
Grazie Rempox
Questo quello che ho trovato
codice:Set fso = CreateObject("Scripting.FileSystemObject") fso.CreateTextFile "percorso", True Set ts = fso.OpenTextFile("percorso", ForWriting) ts.WriteLine "ciaooo" ts.Close set ts=Nothing set fso = Nothing
questo quello che ho scritto
codice:<% 'Variabili passate dal filmato Flash 'Utilizzando il Replace facciamo in modo di sostituire il singolo apice 'con il doppio apice per evitare che la stringa di inserimento dati ‘ generi un'errore Color_Data = Replace(request("Color_Data"),"'", "''") Color_text = Replace(request("Color_text"),"'", "''") Color_Off_R = Replace(request("Color_Off_R"),"'", "''") Color_Off_G = Replace(request("Color_Off_G"),"'", "''") Color_Off_B = Replace(request("Color_Off_B"),"'", "''") ' Elimino gli spazi bianchi all'inizio e alla fine della stringa Color_Data=Trim(Color_Data) Color_text=Trim(Color_Data) Color_Off_R=Trim(Color_Off_R) Color_Off_G=Trim(Color_Off_G) Color_Off_B=Trim(Color_Off_B) ' Verifico se le variabili sono stringhe vuote if Len(Color_Data)=0 Or Len(Color_text)=0 Or Len(Color_Off_R)=0 Or Len(Color_Off_G)=0 Or Len(Color_Off_B)=0 then Response.Write("att=Compilare Tutti i campi!&errore=si") Else ‘ Qui vorreti creare il File – nel caso esista riscriverci sopra ‘ ottenendo un risultato del tipo ‘ parametri.txt ‘ &Color_Data=#FFCC00& ‘ &Color_Data=#FFFFFF& ‘ &Color_Off_R=0& ‘ &Color_Off_G=51& ‘ &Color_Off_B=20& Response.Write("att=ok&errore=no") End If %>

Rispondi quotando