1. du har text1.asp som action på första sidan. Det ska väl vara input.asp?
2. Skriptet du visar är inte det du använder. Det blir lättare att felsöka om du fixar det. ;)
Frågan#1
Jag läste denna artiel på http://navigera.net/arkiv/pubI1102I22502.html
och jag tyckte det skulle vara bra att ha på min webplats jag la alltså in koden i text.asp:
<HTML>
<HEAD>
</HEAD>
<BODY>
Skapa fil:<BR>
<Form Action="Text1.asp" Method="post">
Namn på filen:<BR>
<Input Type="text" Name="filn"><BR>
Innehåll i filen:<BR>
<Textarea Name="inhall" Rows="3"
Cols=60></Textarea>
<BR><Input Type="submit" Value="Skapa fil!">
</Form>
<Form Method="post" Action="Text.asp">
Öppna fil:
<BR>Filnamn:<BR>
<Input Type="text" Name="opfil">
<BR><Input Type="submit" Value="Läs!">
</Form>
<%
Sfil=Trim(Cstr(request.form("opfil")))
If Not Sfil="" Then
Response.Write "Innehållet i filen " &
Sfil & ".txt:\<BR\>\<BR\>"
Set FilStromobjekt = Server.CreateObject
("Scripting.FileSystemObject")
Set Lasa = FilStromobjekt.OpenTextFile
(Server.MapPath("/Textfiler") & "\\" &
Sfil & ".txt")
Do While not Lasa.AtEndofstream
Response.write Lasa.Readline & "\<BR\>"
Loop
Set Lasa=Nothing
End If
%>
</BODY>
</HTML>
och denna i huvet på input.asp
<%
sStr = Request.Form("filn")
sInh = Request.Form("inhall")
If Not sStr="" Then
Set FilStromobjekt = Server.CreateObject
("Scripting.FileSystemObject")
Set Skrivtillfil =
FilStromobjekt.CreateTextFile
(Server.MapPath("/Textfiler") & "\\" &
sStr & ".txt", True)
Skrivtillfil.WriteLine(sInh)
Skrivtillfil.Close
End If
Response.Redirect("Text.asp")
%>
Detta la jag sen upp på http://www.costodia.com/textpub/text.asp
min fråga är är det något fel i koden, jag testad eäven att lägga alltihopa i min skrivbara katalog men det funkar inte där heller,
jag skulle ha otroligt mycket användning frör en funktion som denna så om någon vet hur man gör är jag evigt tacksam.
mvh martin
------------------
Tack på förhand
Mvh Martin Persson
www.Costodia.com