enkel nybörjarfråga

emilMedlem sedan apr. 2000106 inlägg

Trådstart19 sep. 2000 11:30#1

Har en text.txt i en katalog.
Vill göra en sida med ett formulär som kan läsa ut texten från filen och så skall kan kunna uppdatera texten.

Tacksam för hjälp

mvh emil

bohlinMedlem sedan mars 2000263 inlägg

19 sep. 2000 16:16#2

jag gjorde en sån för några timmar sen, behövde en sån..så här får du den:

<%
	Dim FSO, fil, data
	Set FSO = Server.CreateObject("Scripting.FileSystemObject") 

	If Request.Form("todo") <> "" And Request.Form("password") = "MITT_HEMLIGA_LÖSENORD" Then
		Set fil = FSO.OpenTextFile(Server.MapPath("text.txt"), 2, true)
		fil.write(server.htmlencode(Request.Form("todo")))
		Set fil = Nothing
	End If

	Set fil = FSO.OpenTextFile(Server.MapPath("text.txt"), 1, true)
	data = fil.readall
	Set fil = Nothing
	Set FSO = Nothing
%>

<html>
<head>
<title>FILEN</title>
</head>
<body>
<form action="URLEN_TILL_DENNA_FILEN.asp" method="post">
<textarea name="todo" rows=25 cols=100><%=data%></textarea><br>
Lösenord: <input type="password" name="password"><br>
<input type="submit" value="Ändra">
</form>

</body>
</html>