asp中，怎么将从数据库查询出来的数据生成一个word文件啊？

各位大虾,asp中，怎么将从数据库查询出来的数据生成一个word文件啊？
谢谢
---------------------------------------------------------------

一段收藏:

1@ Language=VBScript

1<html>
2<head>
3<meta content="Microsoft Visual Studio 6.0" name="GENERATOR"/>
4</head>
5<body>

sql = "Select department,count(department) From personnel group by department" '将记录按部门分类统计

Set Cnn = Server.CreateObject("ADODB.Connection") '连接数据库
cnn.Open "driver={sql server};server=ywz;uid=sa;pwd=413811;database=asims"

Set Rs = Server.CreateObject("ADODB.Recordset")

Rs.CursorType = 3

Rs.LockType = 3

Rs.Open sql, Cnn

If Rs.EOF Then '如果没有记录就结束

Response.End

End If

1  
2<html>   
3

'以下显示表格标题和输出表头

1  
2<p align="center"><b><font size="4">公司员工统计表</font></b></p>
3<div align="center">
4<table border="1" bordercolor="#111111" cellpadding="0" cellspacing="0" height="53" id="data" style="border-collapse: collapse" width="606"> ```
5'注意：此处标明表格的id为data

部门

合计

员工姓名

 1   
 2  
 3hj=0 '设置变量，总人数合计初始值为0   
 4  
 5'以下While循环按部门依次完成统计和报表   
 6  
 7while (not rs.eof)   
 8  
 9departmenttmp=rs("department") '设置临时变量，保存当前部门名称   
10  
11sqlstr="select * from personnel where department='"&amp;amp;departmenttmp&amp;amp;"'" '找出当前部门的所有员工   
12  
13Set conn = Server.CreateObject("ADODB.Connection") '再次连接数据库   
14  
15conn.Open "driver={sql server};server=ywz;uid=sa;pwd=413811;database=asims"   
16  
17Set rss = Server.CreateObject("ADODB.Recordset")   
18  
19rss.CursorType = 3   
20  
21rss.LockType = 3   
22  
23rss.Open sqlstr, conn   
24  
25number=0 '设置变量，当前部门人数合计初始值为0   
26  
27'以下While循环计算出当前部门人数合计   
28  
29while(not rss.eof)   
30  
31rss.movenext   
32  
33number=number+1   
34  
35wend   
36  
37hj=hj+number '总人数合计为各部门人数之和   
38  
39rss.movefirst   
40  
41flag=0 '设置变量，flag用来判断当前部门是否首次出现，初始值为0   
42  
43'以下While循环输出当前部门统计数据和员工名单   
44  
45while(not rss.eof)

1if (flag=0) then

1'如果flag为0，表示该部门是首次出现，表格此处就应该输出部门名称，部门员工合计人数

``` =departmenttmp ```

``` =number ```

1else

1'如果flag不为0，表示该部门不是首次出现，表格此处就应该输出空白

1end if

1'无论该部门是否首次出现，此处输出员工姓名

``` =rss("name") ```

1rss.movenext '当前部门员工记录指针rss指向下一个员工记录   
2  
3flag=flag+1 'flag加1   
4  
5wend

1rs.movenext '部门记录指针rs指向下一个部门记录   
2  
3wend

``` ''表格最后一行输出总人数合计 ```

员工合计

``` =hj ```