Vad är det som är fel?

ASP

1 svar · 117 visningar · startad av Hulth

Medlem sedan juni 2001272 inlägg
Trådstart#1

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.

Medlem sedan juni 2001272 inlägg
#2

Jag kom på det själv.. :)

det skulle vara

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

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

	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

%>
263 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
129 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
128 ms — ändringar (db)