请教如何生成文本文件？

[chime]

在asp中，根据用户录入的数据，如何生成一个文本文件。

[Kandy]

set myfileobject=server.createobject("Scripting.FileSystemObject")
set mytextfile=myfileobject.createTextFile("c:\mydir\xx.txt",8,true)
嘿嘿~~~~~~最后一句参数可以自己视情况改

[songzx66]

Dim fileso, wfile
Set fileso = CreateObject("Scripting.FileSystemObject")
dim pathstr
pathstr = server.mappath("/")&"/user/"
fileso.GetFolder(pathstr)
m_filename=pathstr&"1.txt"
Set wfile = fileso.CreateTextFile(m_filename, True)

wfile.WriteLine("returnvalue")

wfile.Close
set wfile = nothing

[hvq]

<%
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
set dr1=CreateObject("Adodb.Stream")
dr1.Mode=3
dr1.Type=1
dr1.Open

dr.WriteText "formdata",2
dr.Position=Position-1
dr.CopyTo dr1,filesize
dr1.SaveToFile "e:/temp_"&session("userid")&".txt",2 '文件保存
set dr=nothing:set dr1=nothing
%>

[sundna]

需要服务器支持FileSystemObject 对像, 在自己机上用是没问题的!:)

[chime]

谢谢，如何取出当前目录？
pathstr = server.mappath("/")
取出的是：c:\inetpub\wwwroot

[Kandy]

你的问题不是创建一个文件吗？创建一个什么文件当然就取什么文件了，
pathstr = server.mappath("/")取出的当然是：c:\inetpub\wwwroot 了
关于SERVER.mappath的用法也要吗？

[chime]

如何删除文件，谢谢！！！

[haveno]

set objfilesys=server.createobject("scripting.filesystemobject")
path1=server.mappath(文件名和路徑)
objfilesys.deletefile path1
set objfilesys=nothing

[chime]

最后一个问题，然后给分：
删除目录

[haveno]

set objfilesys=server.createobject("scripting.filesystemobject")
path1=server.mappath(文件名和路徑)
objfilesys.deletefolder path1
set objfilesys=nothing

[is]

略这。