将数据库的内容生成WORD文档.doc
版权申诉
48 浏览量
2022-06-04
21:10:10
上传
评论
收藏 33KB DOC 举报
将数据库的内容生成 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 对象
在客户端用这种东西 SetobjWordDoc=CreateObject("Word.Document")来调用 word 生成，
但是要用户改客户端的安全级别设置，不好！格式控制起来也麻烦。我鼓捣了老半天也搞不定。
4。利用 FSO 生成 word 文档
不敢说原创，只能说是综合大家的东西，搞成了这个东西。本文主要介绍我的这种方法。
下面主要介绍从数据库中取资料，然后利用 FSO 生成 Word 文档的例子，先给出部分 代码，
最后给出全部代码。
从数据库中读取数据的代码：
<%
'创建 RecordSet 对象
Setrs=Server.CreateObject("ADODB.Recordset")
'SQL 语句根据实际情况调整
sql="select*fromPeoplewherePeopleId="&PeopleId
'OpenRecordSet，省略了创建及打开 connection 对象的代码，请自行添加
rs.opensql,conn,3,3
ifrs.eofandrs.bofthen
'无记录
else
'做点事情，主要是从数据库中获取一些资源
'赋给变量，再用 FSO 生成
endif
rs.Close
Setrs=Nothing
conn.Close
Setconn=Nothing
%>
资源评论
老帽爬新坡
- 粉丝: 79
- 资源: 2万+
