vis sidens kilde

hvis du har en fil koden er i så kan du læse den og udskrive files indhold med Server.HTMLEncode sådan kilkekode vises og ikke udføre.:
Et eks:

<%
fil = Server.Mappath("source.asp")
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.OpenTextFile(Server.MapPath(fil),1)
if not f.AtEndOfStream then Response.Write Server.HTMLEncode(f.readall)
f.Close
set f=Nothing
set fs=Nothing
%>

tanx :-)