Hur använda?

[Starre]

Hej alla!

 

Jag var inne på Loopias hemsida och kollade att man för att skapa fso så måste man använda följande kod. Den ser helt annorlunda ut än den som WebStudio angav:

 

<%
on error resume next 
' skapar ett serverobjekt
set fso = createobject("scripting.filesystemobject")
' letar reda på textfilen
set act = fso.opentextfile(server.mappath("data.txt"))
' läser in värdet i textfilen, finns ingen textfil skapas den längre ned
counter = clng(act.readline)
' lägger till ett
counter = counter + 1
' stänger serverobjektet
act.close

' skapar en ny textfil om det inte redan existerar en fil
Set act = fso.CreateTextFile(server.mappath("textfil.txt"), true)
' skriver det nya värdet i textfilen
act.WriteLine(counter)
' stänger serverobjektet
act.Close

' skriver ut värdet i textfilen på skärmen
Response.Write counter
%>

Men hur ska jag kunna använda den här koden för att i textfilen (data.txt) kunna mata in info från ett formulär?

 

Tack så hemskt mycket på förhand!!!

[Kristianstad]

Funkar det inte med:

set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath("data.txt"), true)
act.WriteLine "test"
act.close

 

/ Kristoffer

 

[Starre]

Ska "test" bytas bytas ut mot "Request.Form" eller?

 

[Kristianstad]

Japp! Så det blir:

set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath("data.txt"), true)
act.WriteLine Request.Form("test")
act.close

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

[Starre]

Okej.

 

Hur plockar jag fram värdena och presenterar dem sedan då?

 

[Kristianstad]

Set Obj = CreateObject("Scripting.FileSystemObject")
Set TS = Obj.OpenTextFile(Server.Mappath("data.txt")) 
Rad1 = TS.ReadLine
Rad2 = TS.ReadLine
osv.

 

/ Kristoffer

 

[Starre]

Är du säker på att det inte ska vara något med?:

 

Response.Write

 

 

[Kristianstad]

För att sedan presentera Rad1, Rad2 i mitt exempel i föregående inlägg kan du använda dig utav Response.Write. Men jag föredrag (är kanske ensam om det?) att använda:

<%=Rad1%>

Hela koden blir alltså

<%
Set Obj = CreateObject("Scripting.FileSystemObject")
Set TS = Obj.OpenTextFile(Server.Mappath("data.txt")) 
Rad1 = TS.ReadLine
Rad2 = TS.ReadLine
%>
Rad 1 är <%=Rad1%>.
Rad 2 är <%=Rad2%>.

 

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

[Starre]

Tack för all möda du lägger ned på detta problem. Tyvärr måste man använda denna kod för att det ska funera på Loopia:

 

<%
on error resume next 
' skapar ett serverobjekt
set fso = createobject("scripting.filesystemobject")
' letar reda på textfilen
set act = fso.opentextfile(server.mappath("textfil.txt"))
' läser in värdet i textfilen, finns ingen textfil skapas den längre ned
counter = clng(act.readline)
' lägger till ett
counter = counter + 1
' stänger serverobjektet
act.close

' skapar en ny textfil om det inte redan existerar en fil
Set act = fso.CreateTextFile(server.mappath("textfil.txt"), true)
' skriver det nya värdet i textfilen
act.WriteLine(counter)
' stänger serverobjektet
act.Close

' skriver ut värdet i textfilen på skärmen
Response.Write counter
%> 

 

Du ser att någon form av räknare är inlaggd om jag vill byta ut detta mot att den lägger in info från ett formulär hur kommer koden se ut då???

 

Tack än en gång!

 

[Kristianstad]

Följande kod här nedan gör en ny fil med namnet data.txt. I första raden lägger jag till värdet i Request.Form("text")

<%
On Error Resume Next 
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath("data.txt"), true)
act.WriteLine(Request.Form("test"))
act.Close

Response.Write Request.Form("test")
%>

 

Vi får väl hoppas att koden funkar

Jag har tyvärr ingen möjlighet att testa den själv...

 

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

[Starre]

Underbart! Tack nu fungerade det!

 

Poäng!

 

[Starre]

En sista fråga bara:

 

Hur ska jag skriva för (enligt detta system) för att inte texten ska skrivas över varje gång?

 

[Kristianstad]

Tack för poängen, Starre!

Följande script öppnar data.txt, därefter skriver den till innehållet i Request.Form("test") sist i filen:

 

<%
On Error Resume Next 
set fso = createobject("scripting.filesystemobject")
Set act = fso.OpenTextFile(server.mappath("data.txt"), 8)
act.WriteLine(Request.Form("test"))
act.Close

Response.Write Request.Form("test")
%>

Hoppas det funkar!

 

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

[Starre]

Fungerade perfekt. Tack återigen!