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。就是本文介绍的方法，但我只找到了思想，还是介绍生成excel的思想，例子的没有。

我这例子是生成教师个人资料的word文档。
=============================

  2. '这里写你的数据库连接
  3. Response.Buffer = True [color=blue]'这个好像得留着[/color]

  5. PeopleId=request("PeopleId")
  6. Set rs = Server.CreateObject("ADODB.Recordset")
  7. sql="select * from People where PeopleId=" & PeopleId
  8. rs.open sql,conn,3,3  
  9. if rs.eof and rs.bof then
  10.    做点事情
  11. end if
    12. 上面是把教师的资料取出来，换成你的东西。
    下面生成文件。
  • Dim fso, MyFile
  •    Set fso = CreateObject("Scripting.FileSystemObject")  [color=blue]'用到fso[/color]
  •    sFileName = "temp.doc"
  •   Set MyFile = fso.CreateTextFile(Server.MapPath(".") & "\word\"&sFileName, True) [color=blue]'文件放在当前目录的word/下[/color]
  • myString="这里是你预先排好的word文档，要填的地方都空好了，怎么弄底下告诉！"


    • 文件已经生成了。注意在iis里把word目录设置为“写入”。
    以下将word文档以数据流写出，不让IE自动打开，防止出错误提示。

     

    企业官网 网页设计 转化率优化 B2B营销