<%

'这里写你的数据库连接,自己写上数据库连接代码
Response.Buffer = True '这个好像得留着

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ceshi where id=1"
rs.open sql,conn,3,3  

  
 Dim fso, MyFile
 dim sFileName
 dim mystring
 mystring="这里的内容下面有说明"
 Set fso = CreateObject("Scripting.FileSystemObject")  '用到fso   
 sFileName = ""&rs("id")&".doc"   //根据id来取名称，可以自行修改
 Set MyFile = fso.CreateTextFile(Server.MapPath(".") & "\word\"&sFileName, True) '文件放在当前目录的word/下myString="这里是你预先排好的word文档，要填的地方都空好了，怎么弄底下告诉！"
 MyFile.WriteLine(myString)
 MyFile.Close  '关闭文件
%>


'=============下面是如何弄mystring里的内容
注：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")&"，
包括前后两个引号。以此类推，把所有的地方都用库中的纪录搞定。

评论