<% '这里写你的数据库连接,自己写上数据库连接代码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")&"，包括前后两个引号。以此类推，把所有的地方都用库中的纪录搞定。

评论