Hejsan Kan nogen gennemskue hvorfår dette ikke virker: <% pgm = request.querystring("pgm") P = Request.ServerVariables("appl_physical_path") & "asp\" & pgm response.write("<br>" & P & "<br>" ) Set fso = CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("c:\test2.txt", 1, true) t = "" do while not f.eof t = t & f.ReadLine loop response.write(t) f.close set f = nothing set fso = nothing %> Fejlen der kommer er: Der opstod en Microsoft VBScript-kørselsfejl (0x800A01B6) Objektet understøtter ikke denne egenskab eller metode: 'eof' /Glo.asp, line 10
Som læser alle linier i filen, så vil dit script se således ud: <% pgm = request.querystring("pgm") P = Request.ServerVariables("appl_physical_path") & "asp\" & pgm response.write("<br>" & P & "<br>" ) Set fso = CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("c:\test2.txt", 1, true) t = f.readall response.write(t) f.close set f = nothing set fso = nothing %>
Ja det havde da en virkning. Men hvad jeg ikke skrev er at indholdet af filen er vb-script kode - et asp program. Hvad gør jeg for at få linierne i programmet ud i browseren som ren tekst og ikke som det sker nu, at asp-koden forsøges fortolket.
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.