巧用ASP实现Web数据统计、报表和打印

"center">&nbsp;</td>

        <%end if%>

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

         <td width="413" height="24"><p align="center"><font size=2><%=rss("name")%></font></td>

        <%rss.movenext   //当前部门员工记录指针rss指向下一个员工记录

        flag=flag+1     //flag加1

  wend%>

  </tr>

  <%rs.movenext  //部门记录指针rs指向下一个部门记录

wend%>

<tr>

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

       <td width="93" height="24"><p align="center"><font size=2>员工合计</font></td>

       <td width="78" height="24"><p align="center"><font size=2><%=hj%></font></td>

    <td width="413" height="24"><p align="center"><font size=2>&nbsp;</font></td>

    </tr>

  </table>

</div>

<input type=button onclick="vbscript:buildDoc" value="打印">  //点击“打印”按钮，调用vbscript函数buildDoc生成本地Word文档，实现本地打印。

</html>

//以下VBScript代码实现buildDoc函数

<script language="vbscript">

Sub buildDoc

set table = document.all.data   //把html文档中的表格data的结构和数据赋值给table

row = table.rows.length   //row为table的行数

column = table.rows(1).cells.length   //colnum为table的列数

Set objWordDoc = CreateObject("Word.Document")  //创建一个Word.Document的对象

Dim theArray(10,10000)   //定义数组变量，存放表格中的数据，10是虚拟列数，10000是虚拟行数

//以下两层for循环将html文档的表格中的纯文本数据赋值给数组

for i=0 to row-1

for j=0 to column-1

theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT  

next

next



objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("公司员工统计表")   //显示表格标题

objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("") //输出标题后回车换行



Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range

//以下With代码段设置标题属性

With rngPara

.Bold = True   //将标题设为粗体

.ParagraphFormat.Alignment = 1   //将标题居中

.Font.Name = "Arial"    //设定标题字体

.Font.Size = 12    //设定标题字体大小

End With



Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range

Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)

//以下for循环输出表头

f