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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<% 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.
