Nu är jag här igen.. ganska aktiv vecka för mig här nu.. hmm...
nåja.. när jag har öppnat min .txt-fil med nedanstående kod och väljer att spara så ska den skriva ut en text men det gör den inte och den sparar inte filen. vad är det som är fel?
<%
action = Request.Querystring("action")
If action = "edit" Then
vad = "../" & Request.Querystring("vad")
sokvag = Server.MapPath("" & vad & "")
Dim FSO, textfil, innehall
Set FSO = CreateObject("Scripting.FileSystemObject")
Set textfil = FSO.OpenTextFile("" & sokvag & "")
innehall = textfil.ReadAll
textfil.Close
If action = "save" Then
vadfil = Request.Querystring("vadfil")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set textfil = FSO.CreateTextFile("" & vadfil & "", True)
textfil.Write Request.Form("text")
textfil.Close
Response.Write "<font face=""Verdana"" size=""2"">Filen har ändrats<br><a href=""index.asp?meny=edit&visa=edit_main"">Tillbaka...</a></font>"
End If
%>
<br>
<font face="Verdana" size="2">Du har valt att ändra filen <%=vad%></font>
<form action="index.asp?meny=edit&visa=edit&action=save&vadfil=<%=sokvag%>" method="post">
<textarea name="text" rows="10" cols="60"><%=innehall%></textarea><br>
<input type="submit" value="Lagra text!">
</form>
<% End If %>
länkarna jag använder anropar såhär:
index.asp?visa=edit&action=edit&vad=fil.txt
i index.asp så inkluderar den olika filer som heter edit.asp, main.asp osv beroende på vad det är för värde i Querystringen visa.
filerna den ska hämta ligger en katalog innan så därför har jag .// före Server.MapPath.