<%
Option Explicit
Dim fso, tekstfil, tekst
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Set fso = CreateObject("Scripting.FileSystemObject")
'klargør fil til skrivning
if NOT fso.FileExists(Server.Mappath("minfil.txt")) then
fso.CreateTextFile(Server.Mappath("minfil.txt"))
end if
Set tekstfil = fso.OpenTextFile(Server.Mappath("minfil.txt"),2)
'skriv til fil
tekstfil.Write Request.Form("tekstfil")
tekstfil.Close
set tekstfil = nothing
'redirect til sig selv
response.redirect("exp446470.asp?status=" & Server.URLEncode("Filen er gemt..."))
else
Set fso = CreateObject("Scripting.FileSystemObject")
'klargør fil til læsning
if NOT fso.FileExists(Server.Mappath("minfil.txt")) then
fso.CreateTextFile(Server.Mappath("minfil.txt"))
end if
Set tekstfil = fso.OpenTextFile(Server.Mappath("minfil.txt"),1)
' Læs hver linje og læg i variable
Do While not tekstfil.AtEndOfStream
tekst = tekst & Server.HTMLEncode(tekstfil.ReadLine) & vbCrLf
Loop
tekstfil.Close
set tekstfil = nothing
%>
<html>
<head>
<title>Lidt hjælp til exp446470</title>
</head>
<body>
<center>
<p><%=Request.Querystring("status")%><p>
<form method="post" action="exp446470.asp">
<textarea NAME="tekstfil" COLS="85" ROWS="15"><%=tekst%></textarea><br />
<input type="submit" value="Gem tekstfil">
</form>
</center>
</body>
</html>
<% end if %>
Ny bruger
Nybegynder
Opret
Preview
