Oprettet fre. d. 14. januar 2005 kl. 15:59:09

pyroman
pyroman (32.673 point. Point ude: 285)

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...

Skrevet fre. d. 14. januar 2005 kl. 16:04:56| #1

arne_v
arne_v (1.005.403 point)
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...

Skrevet fre. d. 14. januar 2005 kl. 16:08:04| #2

arne_v
arne_v (1.005.403 point)
Prøv at erstat

Set tf = fso.CreateTextFile("C:\noget.txt")

med

Set tf = fso.OpenTextFile("c:\noget.txt", 8)

Skrevet fre. d. 14. januar 2005 kl. 18:46:24| #3

pyroman
pyroman (32.673 point)
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?

Skrevet fre. d. 14. januar 2005 kl. 18:57:27| #4

arne_v
arne_v (1.005.403 point)
Måske skal det være:

Set tf = fso.OpenTextFile("c:\noget.txt", 8, True)

for at opnå det.

Jævnfør:

http://msdn.microsoft.com/ (...)

http://www.w3schools.com/ (...)

Skrevet fre. d. 14. januar 2005 kl. 18:57:59| #5

arne_v
arne_v (1.005.403 point)
Har du overvejet flere samtidige brugere problematikken ?

Skrevet fre. d. 14. januar 2005 kl. 19:01:33| #6

pyroman
pyroman (32.673 point)
Der vil ikke være flere brugere samtidig ;)

Skrevet fre. d. 14. januar 2005 kl. 19:04:05| #7

pyroman
pyroman (32.673 point)
Kan man i stedet for: "c:\noget.txt" bare skrive "noget.txt" så den ligger i samme mappe som asp'en?

Skrevet fre. d. 14. januar 2005 kl. 19:06:26| #8

arne_v
arne_v (1.005.403 point)
Ja.

Men for at det bliver i samme mappe som ASP'en skal du nok bruge:

Server.MapPath("noget.txt")

Skrevet fre. d. 14. januar 2005 kl. 19:09:07| #9

pyroman
pyroman (32.673 point)
altså:

Set tf = fso.OpenTextFile(Server.MapPath("c:\noget.txt"), 8, True)

??

Skrevet fre. d. 14. januar 2005 kl. 19:11:03| #10

arne_v
arne_v (1.005.403 point)
Jep - prøv den

Skrevet fre. d. 14. januar 2005 kl. 20:04:01| #11

pyroman
pyroman (32.673 point)
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

??

Skrevet fre. d. 14. januar 2005 kl. 20:07:21| #12

pyroman
pyroman (32.673 point)
er det ikke noget med:

Response.write "status=ok"

??

Skrevet fre. d. 14. januar 2005 kl. 20:18:52| #13

arne_v
arne_v (1.005.403 point)
Jo.

Eller du kan sætte en:

Response.Write line

ind.

Skrevet fre. d. 14. januar 2005 kl. 20:23:27| #14

arne_v
arne_v (1.005.403 point)
Hov.

Ikke:

Set tf = fso.OpenTextFile(Server.MapPath("c:\noget.txt"), 8, True)

men:

Set tf = fso.OpenTextFile(Server.MapPath("noget.txt"), 8, True)

Skrevet fre. d. 14. januar 2005 kl. 20:25:17| #15

pyroman
pyroman (32.673 point)
nej - har lige opdaget det ;)

Hvad med min Response.write... ser den fin ud?

Skrevet fre. d. 14. januar 2005 kl. 20:26:09| #16


Skrevet fre. d. 14. januar 2005 kl. 20:26:40| #17

arne_v
arne_v (1.005.403 point)
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 !

Skrevet fre. d. 14. januar 2005 kl. 22:47:31| #18

pyroman
pyroman (32.673 point)
Virker bare herre totalt meget i ordent du!

Host et svar op og du vil blive belønnet! :)

Skrevet fre. d. 14. januar 2005 kl. 22:53:55| #19


Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   

   

Seneste spørgsmål

Udskrive mappens navn

Oprettet den 8. februar 2012 kl. 13.32
no_doubt giver 60 point for svar | Giv et svar »

Flere tæller/counter SQL og ASP!

Oprettet den 7. februar 2012 kl. 20.09
denny giver 30 point for svar | Giv et svar »

hjælp til fejl

Oprettet den 1. februar 2012 kl. 10.54
sth giver 100 point for svar | Giv et svar »

Seneste guides

Installer win 7
Den gode bruger


   




Tips & Tricks fra PC World

Teaser billede

Gør dig selv en tjeneste: Køb et ordentligt SD-kort

Der kan være meget stor hastighedsforskel på to umiddelbare ens SD-kort. Se her hvad du skal være opmærksom på, når du køber ekstra hukommelse til din mobil, tablet eller kamera.


Anmeldelser fra PC World

Teaser billede

Test: Denne super-tablet er iPads hårdeste konkurrent

Eee Pad Transformer Prime er frygtindgydende med sin quadcore processor og evne til at trylle sig om til bærbar. Apple bør kigge i bagspejlet, for Asus' tablet-pc kommer buldrende - og gør det...


Seneste blogindlæg

Teaser billede

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...


Nyheder fra PC World

Teaser billede

Gratis flysimulator fra Microsoft

Den legendariske Flight Simulator fra Microsoft genopstår den 29. februar - og denne gang er spillet gratis.


Nyheder fra Computerworld

Teaser billede

Bank: Derfor er login uden NemID helt i orden

Der er ikke hold i påstanden om sikkerhedsproblemer i forbindelse med bankkunders login uden brug af NemID, lyder det fra Nykredit Bank.


Kurser
Samarbejdspartnere

Udgiver · © 2012 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger