Just nu i M3-nätverket
Jump to content

Hur använda?


Starre

Recommended Posts

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

Link to comment
Share on other sites

Funkar det inte med:

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

 

/ Kristoffer

 

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

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

 

/ Kristoffer

 

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

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!

 

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...