Läsa igenom fil!

hur menar du nu??

förmodligen menar han att köra en asp-fil lokalt, utan att ASP-koden dyker upp på sidan när man "förhandsgranskar"..

...men det går tyvärr inte, utan asp ska testas på en server, antingen du har skapat en egen på din dator eller laddat upp på en webbserver..

Menar du såhär?

<%
Dim objFSO, objTS, strASP

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("aspfil.asp"))

strASP = objTS.ReadAll

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing

Response.Write(Replace(Server.HTMLEncode(strASP), vbCrLf, "<br>"))
%>

yaz skrev:

förmodligen menar han att köra en asp-fil lokalt, utan att ASP-koden dyker upp på sidan när man "förhandsgranskar"..

...men det går tyvärr inte, utan asp ska testas på en server, antingen du har skapat en egen på din dator eller laddat upp på en webbserver..

Det vet jag mycket väl om, det jag menar är att när jag använder mig av Scripting.FileSystemObject så läser servern av hela sidan inkl. ASP-koden som finns på den.

Men jag vill undvika detta, jag vill att den ska läsa allt utom just ASP-koden.

Vilket jag hoppas Sebbe's gör :), har ju inte testat den koden än så.

:birp

Men tack! :)

Jag kan ha missuppfattat vad du ville göra. I så fall tror jag att den här koden funkar bättre. :)

<%
Dim objFSO, objTS, strASP, strText, RegExp

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("aspfil.asp"))

strASP = objTS.ReadAll

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing

Set RegExp = New Regexp
RegExp.Global = True
RegExp.IgnoreCase = True
RegExp.Pattern = "<%((.|\n)*)%>"
strText = RegExp.Replace(strASP, "")
Set RegExp = Nothing

Response.Write(Replace(strText, vbCrLf, "<br>"))
%>

Det är nog mer likt det jag söker! :)