毕业设计需要从库里取纪录生成word文档,我找了半天，主要有这么几种方法：
1。改头，就是象excel似的
Response.Buffer = TRUE
Response.ContentType = "application/vnd.ms-excel" '--excel
Response.ContentType = "application/msword" '--word
excel倒是没事，但word就是总出错。弱！

2。微软的RTF-DOC的例子
　　它的例子倒是很成功，可根据实际需要改起来，不好弄，格式不好控制。

3。调用word.application对象
　　在客户端用这种东西Set objWordDoc = CreateObject("Word.Document")来调用word生成，但是要用户改客户端的安全级别设置，不好！格式控制起来也麻烦。我鼓捣了老半天也搞不定。

4。利用FSO生成word文档
　　不敢说原创，只能说是综合大家的东西，搞成了这个东西。本文主要介绍我的这种方法。

　　下面主要介绍从数据库中取资料，然后利用FSO生成Word文档的例子，先给出部分代码，最后给出全部代码。

从数据库中读取数据的代码：

<%
'创建RecordSet对象
Set rs = Server.CreateObject("ADODB.Recordset")

'SQL语句根据实际情况调整
sql="select * from People where PeopleId=" & PeopleId

'Open RecordSet，省略了创建及打开connection对象的代码，请自行添加
rs.open sql,conn,3,3

if rs.eof and rs.bof then
    '无记录
else
    '做点事情，主要是从数据库中获取一些资源
    '赋给变量，再用FSO生成
end if
rs.Close
Set rs=Nothing
conn.Close
Set conn = Nothing
%>

<%
  '下面生成文件的代码。
  Dim fso, MyFile
  '创建FSO对象，有些服务器有可能不支持这个对象，那就没戏了
  Set fso = CreateObject("Scripting.FileSystemObject")   
  '文件名
  sFileName = "temp.doc"
  '生成新文件文件放在当前目录的word/下,当前测试时必须有这个目录
  Set MyFile = fso.CreateTextFile(Server.MapPath(".")& "\word\"&sFileName, True)

  myString="这里是你预先排好的word文档，要填的地方都空好了，怎么弄底下告诉！"

 '将MyString作为新文件的内容写入文件
　MyFile.WriteLine(myString)
　
　MyFile.Close  '关闭文件
%>