用文件流TextStream追加部分源文件。。。。。。。。。。。看看大家有什么好的建议？

[rabbitisme]

第一步：就业办为毕业生提供有效的用人单位信息

共录入用人单位266家，其中学校管理员录入1 家，批量导入265 家，未通过审核用人单位257 家，符合审核条件9 家。
共发布招聘信息12条，其中已过期8 条。
共收到校企传呼 4条，其中未读邮件2 条。
共有5家用人单位发送招聘意向，有4家用人单位发送可视面试通知

这段是页面显示的结果，我已经做好统计。
现在要将“共录入用人单位266家。。。。。”开始到“可视面试通知”
这部分内容加到文件report.html中，我应该怎么做才是最有效的呢？

每一步要追加的部分都不一样。而且追加的都是源文件。

请问大家有什么好的想法？怎么实现？

解决了这个问题一定另辟贴子加分感谢！

[rabbitisme]

set fs=server.CreateObject("Scripting.FileSystemObject")
FileName=request("id")+".html"
Set nf = fs.CreateTextFile(server.mappath(FileName),true)
nf.close
Add_Text = "welcom"
Set wf = fs.OpenTextFile(Server.MapPath(FileName),true)
wf.Write(Add_Text)
wf.Close

我这样写有什么问题吗？

[fason]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsobjtextstream.asp

[rabbitisme]

Write等Method都是写。


那尾添怎么写？？？？？

[fason]

sorry,
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsmthOpenAsTextStream.asp

The iomode argument can have any of the following settings:

Constant Value Description
ForReading 1 Open a file for reading only. You can't write to this file.
ForWriting 2 Open a file for writing. If a file with the same name exists, its previous contents are overwritten.
ForAppending 8 Open a file and write to the end of the file.
~~~

[rabbitisme]

fason(Forbes Pu) 谢谢！！！！：）

[ycted]

fason到是很全面哦.
连
Const ForReading = 1, ForWriting = 2, ForAppending = 8
都被你翻出来了.

[wzhnet]

不大明白你的意思 ,如果是读写文件的话 用fso就可以解决.

[rabbitisme]

我明白是用TextStream对象来实现追加，但我不知道怎么对一个源文件进行部分提取，然后再天到文件里面去？

明白么？？我头都大了

[笨笨兔兔兔兔兔]

用Instr寻找到位置