Skriva till en textfil..

5 svar · 285 visningar · startad av Choronzon 31 dec. 2001

ChoronzonMedlem sedan aug. 20011 346 inlägg

Frågan31 dec. 2001 01:56#1

Får inte ordning på det här, ska alltså skriva över all text i textfilen med nytt innehåll med formuläret form.asp hade jag tänkt. Sen ska textfilen kunna läsas in på las.asp. Någon som kan ge en vink om vad felet/felen är?

form.asp:
-----------------------

<%
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFil = objFSO.OpenTextFile(server.MapPath("db/skrivtext.txt"),1)
		
	texten = objFil.readall
 	
  objFil.Close
%>

<html>

<form action="skriv.asp" method="post">
  <textarea name="maintexten"><%=texten%></textarea>
  <input type="submit" value="skicka">
</form>

</html>

-----------------------
skriv.asp:
-----------------------

<%
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFil = objFSO.OpenTextFile(server.MapPath("db/skrivtext.txt"),2)
  
  objFil.writeline = "texten" &request.form("maintexten")

  objFil.Close

  response.redirect "form.asp"
%>

-----------------------
las.asp:
-----------------------

<%
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFil = objFSO.OpenTextFile(server.MapPath("db/skrivtext.txt"),1)
		
	texten = objFil.readall
 	
  objFil.Close
%>

<html>

<%=texten%>

</html>

-----------------------

[Redigerat av Choronzon den 31 dec 2001]

SicoMedlem sedan maj 20002 597 inlägg

31 dec. 2001 04:21#2

Hejsan..
Under länken "WF-Kod" så kan du ser hur du skriver dina inlägg riktigt stiligt ;)

Regel nr1. Skriv inte kod som du måste ändra på flera ställen. som du gjort med sökvägen till txt-filen. ÄNDRA!!
Och så vitt jag vet så ska sökvägen börja med en "/" när man använder sig av mappath.
Lite dumt att det måste stå nått i den för annars funkar det inte.

objFil.writeline = "texten" &request.form("maintexten")

i skriv.asp borde vara

objFil.writeline request.form("maintexten")

------------------
Regler är till för att ändras, inte för att följas!
I wouldn't if I couldn't

[Redigerat av Sico den 31 dec 2001]

ChoronzonMedlem sedan aug. 20011 346 inlägg

31 dec. 2001 08:48#3

Jag som tyckte jag skrivit så fint :) hmm, ska kolla hur man gör..

Jo nu funkar det ju, tack för det, men hur menar du att jag skulle göra med sökvägen för att slippa ändra den på flera ställen då?

SicoMedlem sedan maj 20002 597 inlägg

31 dec. 2001 09:16#4

inkludera en fil där sökvägen ligger. Lite jobbigt när man kommer upp i 10 sidor där man ska ändra sökvägen. :(

------------------
Regler är till för att ändras, inte för att följas!
I wouldn't if I couldn't

ChoronzonMedlem sedan aug. 20011 346 inlägg

31 dec. 2001 09:25#5

Hmm, ok, hur hade du skrivit i det här fallet då?

SicoMedlem sedan maj 20002 597 inlägg

31 dec. 2001 09:43#6

hmm. I det här fallet där det är en txt-fil man skriver till kommer nog inte vara så nödvändigt ändå. Men ska arbeta med nåt större som tex en databas så kan man göra såhärvides artikel om databaser på webeye.nu

där har han gjort ett förslag hur man kan länka en access 2000 databas. mycket bra kod.

<%
Set Databas = Server.CreateObject( "Adodb.Connection" )
Databas.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath( "/cgi-bin/databas.mdb" )
Databas.ConnectionString = "Data Source='" & MdbFilePath & "'"
Databas.open
%>

Lägg det e en egen fil och inkludera den där sökvägen skall vara så slipper man ändra på varje sida.

------------------
Regler är till för att ändras, inte för att följas!
I wouldn't if I couldn't