高分请教高手asp 生成txt 不要随便复制网上内容哦

来源：百度知道 编辑：UC知道 时间：2024/05/29 01:46:35
自动id表 ArticleID

内容表 Content

一条记录生成一个txt ，txt名字使用自动id表ArticleID的id，内容使用内容表 Content 批量生成txt文件
不太符合要求啊

'''''''//////保存聊天记录/////////
Name=Session("Name")
NewName = makefilename(now())
'创建一个FileSystemObject的实例
set fs=server.CreateObject("scripting.FileSystemObject")
filepath=Server.MapPath("message")
'判断文件夹是否存在
if not fs.folderexists(filepath&"/"&session("name")&"") then
'创建一个文件夹
fs.CreateFolder(filepath&"/"&session("name")&"")
'在指定文件夹创建一个txt文件
else
set mytextfile=fs.createtextfile(filepath&"/"&session("name")&"\"&session("name")&NewName&".txt")
'把信息写入文件
mytextfile.writeline(Application(name))
set mytextfile=fs.opentextfile(filepath&"/"&session("name")&"\"&session("name")&NewName&".txt")
mytextfile.close
set fs=nothing
end if

'''&#