Hej Rasmus
Jeg har nøjagtig samme problem med at oprette en ny tekstfil både på
mit C og D drev der begge er formateret som NTFS, mens jeg godt kan
skrive til mit E drev der er formatteret som FAT32.
Desværre kan jeg ikke hjælpe dig men håber andre kan?
Rasmus wrote in dk.edb.internet.webdesign.serverside.asp:
> Hej jeg er den lykkelige ejer af en hjemmeside. Mindre lykkeligt
> er det når jeg skal ind og rette på koderne når jeg vil opdatere
> den. Så jeg gik herind og lærte om ASP.
> Jeg begyndte så at strikke mit eget news script sammen. Men der
> er en fejl og det irriterer mig som bare fa***n. Nå men
> nedenunder er ASP koderne:
>
> Første fil: default.asp.
> Funktion: Password box. Når der trykkes submit sendes inputet til
> Login.asp
> **************************************************
> <html>
> <title>default.asp</title>
> <head>
> </head>
> <body>
>
> <form method="post" action="Login.asp">
> <p>Password:<input type="password" name="password">
> <p><input type="submit" value="Enter">
>
> </form>
> </body>
> </html>
> **************************************************
> Anden fil: Login.asp
> Funktion: Tjekker om det input den fik fra default.asp er "Steak"
> og hvis den ikke er sender den en tilbage til default.asp
> **************************************************
> <html>
> <title>Login.asp</title>
> <head>
> </head>
> <body bgcolor="000000" text="FFFFFF">
> <%
> ' Tjek om login og password er korrekte
> If Request.Form("password") = "Steak" Then
>
> ' Hvis korrekt sættes session til JA
> Session("login") = "JA"
> Session.Timeout = 30
> Response.Write "<p>Du er nu logget korrekt ind</p>"
> Response.Write "<h4> <a href='Write.asp'> Skriv nyheder
> </a></h4>"
>
> Else
>
> Session("login") = "NEJ"
> Session.Timeout = 30
>
> End If
> %>
>
> <%
> If Session("login") <> "JA" Then
> Response.Redirect "default.asp"
> End If
> %>
>
> </body>
> </html>
> **************************************************
> Tredje fil: Write.asp
> Funktion: Tekstareal hvor du kan skrive nyheden og hvis du ikke
> loggede in bliver du sendt tilbage til default.asp. Den sender
> inputtet til WriteTo.asp
> **************************************************
> <html>
> <title>Formular</title>
> <head>
> </head>
> <body bgcolor="000000" text="FFFFFF">
>
> <h5>Navn</h5>
> <form method="post" action="WriteTo.asp">
> <input type="text" name="Name">
> <br>
>
> <h5>Nyhed</h5>
> <TEXTAREA NAME="News" ROWS=20 COLS=60></ TEXTAREA>
> <br>
> <input type="submit" value="Submit">
> </form>
>
> <%
> If Session("login") <> "JA" Then
> Response.Redirect "default.asp"
> End If
> %>
>
> </body>
> </html>
> **************************************************
> Fjerde fil: WriteTo.asp
> Funktion: Requester inputtet fra News tekstarealet of writer det
> til tekst filen News.txt
> **************************************************
> <html>
> <title>Denne fil kommer du nok aldrig til at se.</title>
> <head>
> </head>
> <body>
> <%
>
> Dim fso, f, filespec
> Set fso = CreateObject("Scripting.FileSystemObject")
> filespec = Server.Mappath("/News.txt")
> Set f = fso.OpenTextFile(filespec,2)
>
> f.Write Request.Form("News")
>
> f.Close
>
> %>
> </body>
> </html>
> **************************************************
> Femte fil: News.asp
> Funktion: Skriver de første 50 linier i News.txt
> **************************************************
> <html>
> <title>Læser og skriver de første 50 linier</title>
> <head>
> </head>
> <body>
> <%
> Dim fso, f, filespec, t
>
> Set fso = CreateObject("Scripting.FileSystemObject")
> filespec = Server.Mappath("/News.txt")
> Set f = fso.OpenTextFile(filespec,1)
>
> ' Læs 50 linier
> For t = 1 to 50
> Response.write f.ReadLine & "<br>"
> Next
>
> f.Close
> %>
> </body>
> </html>
> **************************************************
> Ideen er så at du skriver nyheden også bagefter når du går ind på
> siden News.asp som kommer til at blive hovedsiden så skriver den
> nyhederne. Egentlig ganske simpelt.
> Meeeen selvfølgelig skal det ikke virke.
> Alting virker bortset fra når jeg trykker submit på Write.asp
> siden så kommer denne fejlbesked:
> **************************************************
> HTTP 500.100 - Internal Server Error - ASP error
> Internet Information Services
>
> ----------------------------------------------------------------
>
> Technical Information (for support personnel)
>
> Error Type:
> Microsoft VBScript runtime (0x800A0046)
> Permission denied
> /WriteTo.asp, line 11
>
>
> Browser Type:
> Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
>
> Page:
> POST 15 bytes to /WriteTo.asp
>
> POST Data:
> Name=&News=hhhh
>
> Time:
> Tuesday, August 20, 2002, 5:08:38 PM
>
>
> More information:
> Microsoft Support
> **************************************************
>
> Permission denied altså. Hvordan i hulen kan jeg være deniet mit
> eget tekstdomkument. Og nej det er ikke skrivebeskyttet.
> Hmm bare for at lette jeres arbejde så er linje 11 i WriteTo.asp
> denne her:
> **************************************************
> Set f = fso.OpenTextFile(filespec,2)
> **************************************************
>
> Ja det var vist det. Hvis nogen kunne hjælpe vill det være skønt.
>
> Venlig hilsen Rasmus en asp n00b
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! =>
http://www.html.dk/tutorials
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials