Asp > Files sample source codes

 ASP source viewer

ASP source viewer <%option explicit%> <% Const ForReading=1 Dim fso,ts,file,i file=Request.QueryString("file") Set fso = Server.CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile( Server.MapPath(file), ForReading) %> <H1><CENTER><%=file%></CENTER></H1> <% While Not ts.AtEndOfStream i=i+1 Response.Write "<B>" & i & ". </B>" & Server.HTMLEncode(ts.readline) & "<BR>" Wend Set ts=Nothing Set fso=Nothing %>



Privacy Policy | Link to Us | Links