5 svar · 308 visningar · startad av Choronzon
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]
[Redigerat av Choronzon den 31 dec 2001]
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")
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å?
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. 
Hmm, ok, hur hade du skrivit i det här fallet då?
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.