将数据库的内容生成WORD文档

让word文档以附件的形式打开的代码:
Dim strFilePathConst adTypeBinary = 1 strFilePath = "word/temp.doc" Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile Server.MapPath(strFilePath) 'change the path if necessary Response.ContentType = "application/octet-stream" Response.AddHeader "Content-Disposition", "attachment; filename=化工学院教职工数据采集表--"&rs("name")&".doc" '如果文件名固定，那就直接filename=文件名.doc，这个名字就是用户选“保存”时，出现的名字 Response.BinaryWrite objStream.Read Response.Flush objStream.Close Set objStream = Nothing '写完，释放对象
[Ctrl+A 全部选择 然后拷贝]

发现把attachment去掉，就会用ie直接打开了。不让它直接打开！

以下为从库中取资料并生成Wrod代码：
<% Sub CreateWord(filename,content) Dim fso, MyFile '创建FSO对象，有些服务器有可能不支持这个对象，那就没戏了 Set fso = CreateObject("Scripting.FileSystemObject") '生成新文件文件放在当前目录的word/下,当前测试时必须有这个目录 Set MyFile = fso.CreateTextFile(filename, True) 　MyFile.WriteLine(content) 　 　MyFile.Close '关闭文件 Set fso = Nothing End Sub '假设数据库中有如下字段: 'FileName:生成的word文件名 'content:个人资料 Set conn = CreateObject("Adodb.Connection") strConn = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("你的Access库文件名") conn.Open strConn '创建RecordSet对象 Set rs = Server.CreateObject("ADODB.Recordset") 'SQL语句根据实际情况调整 sql="select * from [TableName]" 'Open RecordSet，省略了创建及打开connection对象的代码，请自行添加 rs.open sql,conn,3,3 if rs.eof and rs.bof then Response.Write("对不起数据库中还没有任何记录！") Response.End else sFilePath = "Word\" Do While Not rs.Eof sFileName = Server.Mappath(sFilePath & rs("filename")) sWordContent = rs("content") Call CreateWord(sFileName,sWordContent) rs.MoveNext Loop end if rs.Close Set rs=Nothing conn.Close Set conn = Nothing %>
[Ctrl+A 全部选择 然后拷贝]

注：myString="" 里面到底是什么？
用word做一个你要的格式的文档，都排好了，
把要填的地方做好标记，比如写几个字什么的。
然后“另存为”web页面。本文所说的是文档里没有图片的情况，有的话我也不会。

到你的硬盘里找到这个web页面，打开，查看源文件，ctrl+a,ctrl+c,
在word里，ctrl+N,ctrl+v,ctrl+F，点“替换”标签，
第一步：查找内容填双引号"，替换为填两个双引号""，全部替换即可。
第二步：点“高级”，查找内容里填“特殊字符”的“段落标记”，替换为填“特殊字符”的“不间断空格”，全部替换即可。
然后ctrl+a,ctrl+c,把东西paste在myString=""的两个引号之间。
==========================================
这时.asp文件已经可以执行，不过生成的是空word文档，啥也没填，没用。
在myString后面的引号里，找你那些标记，比如姓名一栏你填的是“西瓜”，
那么现在找到“西瓜”两个字，删除，打"&rs("name")&"，
包括前后两个引号。以此类推，把所有的地方都用库中的纪录搞定。
========================================
哦，现在就行了。基本满足要求了。
注：几个小问题

1。有时保存你的word文档到web页面时，会生成”你的文件名.files"的文件夹。
那你用这个.asp文件动态生成word文档时，会提示“XXXX丢失”，不爽！
解决办法：在你保存的web页面，查看源文件，查找“你的文件名.files“，
相关的地方都删除掉。一般会有<link...>还有style里的。看着删吧。

2。这个.asp文件执行是会出现下载提示框，如果选“打开”的话，
word就会打开生成的这个文档，我发现有时是以“web视图”打开的，
有时是“页面视图”打开的。很是奇怪，仔细对比了一下，发现：
只要在你的myString里找<w:WordDocument>，在后面加上<w:View>Print</w:View>，那么就会以“页面视图”打开了。好了！