14. januar 2005 - 15:59
Der er
18 kommentarer og 1 løsning
gemme vars i txt
Hejsa Har ALDRIG nogensinde programmeret ASP før - men JAVA, Flash og javascript og en meget lille smule PHP. Jeg står med lidt af en hastesag - skal have lavet et ASP-script der gemmer nogle variabler fra Flash (POST eller GET er ligegyldigt) i en txt-fil. variablerne hedder følgende: name, email, phone, msg I txt filen skal de opstilles på følgende måde: name1,email1,phone1,msg1; name2,email2,phone2,msg2; osv... Hvis filen ikke eksisterer skal den laves - og ellers skal den bare starte på en ny linie... Hvordan krænger jeg lige den? Meget gerne færdige ekspempler eller links til en hurtig gennemgang...
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
14. januar 2005 - 16:04
#1
Følgende bør lave en ny fil for hver request: <% Dim fso Dim tf Dim line Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile("C:\noget.txt") line = Request("name") & "," & Request("email") & "," & Request("phone") & "," & Request("msg") & ";" tf.WriteLine line tf.Close %> så er det lige med at få den til at appende til en eksisterende fil...
14. januar 2005 - 16:08
#2
Prøv at erstat Set tf = fso.CreateTextFile("C:\noget.txt") med Set tf = fso.OpenTextFile("c:\noget.txt", 8)
14. januar 2005 - 18:46
#3
Jeg er lige i gang med at finde en asp-server til at teste... OpenTextFile() - laver den også en ny fil, hvis den ikke eksisterer i forvejen?
14. januar 2005 - 18:57
#4
14. januar 2005 - 18:57
#5
Har du overvejet flere samtidige brugere problematikken ?
14. januar 2005 - 19:01
#6
Der vil ikke være flere brugere samtidig ;)
14. januar 2005 - 19:04
#7
Kan man i stedet for: "c:\noget.txt" bare skrive "noget.txt" så den ligger i samme mappe som asp'en?
14. januar 2005 - 19:06
#8
Ja. Men for at det bliver i samme mappe som ASP'en skal du nok bruge: Server.MapPath("noget.txt")
14. januar 2005 - 19:09
#9
altså: Set tf = fso.OpenTextFile(Server.MapPath("c:\noget.txt"), 8, True) ??
14. januar 2005 - 19:11
#10
Jep - prøv den
14. januar 2005 - 20:04
#11
Hmm - jeg kan umiddelbart ikke få det til at virke - ved ikke om det er min flash, serveren eller scriptet... hvordan udskriver man variablerne samtidig? eller bare sådan én: status=ok ??
14. januar 2005 - 20:07
#12
er det ikke noget med: Response.write "status=ok" ??
14. januar 2005 - 20:18
#13
Jo. Eller du kan sætte en: Response.Write line ind.
14. januar 2005 - 20:23
#14
Hov. Ikke: Set tf = fso.OpenTextFile(Server.MapPath("c:\noget.txt"), 8, True) men: Set tf = fso.OpenTextFile(Server.MapPath("noget.txt"), 8, True)
14. januar 2005 - 20:25
#15
nej - har lige opdaget det ;) Hvad med min Response.write... ser den fin ud?
14. januar 2005 - 20:26
#16
fino
14. januar 2005 - 20:26
#17
Jeg har lige testet med: <% Dim fso Dim tf Dim line Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.OpenTextFile(Server.MapPath("noget.txt"), 8, True) line = Request("name") & "," & Request("email") & "," & Request("phone") & "," & Request("msg") & ";" tf.WriteLine line tf.Close %> og den virker hos mig. Efter at jeg var inde og ændre noget permission !
14. januar 2005 - 22:47
#18
Virker bare herre totalt meget i ordent du! Host et svar op og du vil blive belønnet! :)
14. januar 2005 - 22:53
#19
svar
Kurser inden for grundlæggende programmering