<title>Document Title</title> </head> <body> <% dim fs dim fi dim dir1 dim filename1 dim content content="content is here !" set fs =server.CreateObject("Scripting.FileSystemObject")
tempvar = cstr(fs.GetFile(server.mappath("default.html")).parentfolder ) if instr("/",tempvar)<>0 then dir1 =tempvar +"/" else dir1 =tempvar +"\" end if filename1="test.txt" if not isempty(request.form("dir")) then dir1 =request.form("dir")
end if
if not isempty(request.form("filename")) then filename1 =request.form("filename") 'set fs =server.CreateObject("Scripting.FileSystemObject")
set fi =fs.OpenTextFile(trim(dir1) & trim(filename1)) content =fi.readall