21. februar 2001 - 18:50Der er
20 kommentarer og 1 løsning
Log-fil m.m.
Heysa! Jeg har siddet og fumlet lidt med en chat, faktisk kun for at blive sejere til ASP *G* Men jeg mangler sku en kode som gør følgende: skriv.asp: <html> <head> <title> ASP </title> </head> <body> <form action=\"main.asp\"> Chat:<input type=\"text\" name=\"chat\"> <br> <input type=\"submit\" value=\"Send\"> </form> </body> </html>
Main.asp skal så modtage det og vise det men kun de 10 første linjer. Så skal den så gemme alt i en fil som hedder [Dato].txt
<% Set fso = CreateObject(\"Scripting.FileSystemObject\") Set chatfile = fso.OpenTextFile(Server.Mappath(\"dato.txt\"), 1) linie = 0 do until linie = 10 chat = chatfile.ReadLine response.write chat & \"<br>\" linie = linie + 1 loop chatfile.close %>
<% Set fso = CreateObject(\"Scripting.FileSystemObject\") Set chatfile = fso.OpenTextFile(Server.Mappath(\"dato.txt\"), 1) linie = 0 do until linie = 10 or chatfile.AtEndOfstream chat = chatfile.ReadLine response.write chat & \"<br>\" linie = linie + 1 loop chatfile.close %>
Sådan, nu virker det også hvis der ikke er 10 linier i filen!
<% Set fso = CreateObject(\"Scripting.FileSystemObject\") Set chatfile = fso.OpenTextFile(Server.Mappath(\"dato.txt\"), 1) linie = 0 chat = array() do until linie = 10 chat(linje) = chatfile.ReadLine linie = linie + 1 loop
chatfile.close
for i=ubound(chat) to 0 step -1 response.write( chat(i) ) next
Fejltype: Der opstod en Microsoft VBScript-kørselsfejl (0x800A0009) Indekset er uden for området: \'linje\' /chat/chat.asp, line 7
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
