webForumDet fria alternativet

Vad är det som är fel?

ASP

1 svar · 109 visningar · startad av Hulth

Medlem sedan juni 2001272 inlägg
Frågan#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.

------------------
//Hulth

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

%>

------------------
//Hulth

268 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
129 ms — deklarationer (db)
0 ms — hämta statistik (cache)
137 ms — hämta tråd, inlägg och bilagor (db)
125 ms — ändringar (db)