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

" height="53" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">  //注意：此处标明表格的id为data

    <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">合计</font></td>

      <td width="413" height="24">

        <p align="center"><font size="2">员工姓名</font></td>

    </tr>

       

<%

hj=0  //设置变量，总人数合计初始值为0

//以下While循环按部门依次完成统计和报表

while (not rs.eof)

departmenttmp=rs("department")  //设置临时变量，保存当前部门名称

sqlstr="select * from personnel where department=''"&departmenttmp&"''"  //找出当前部门的所有员工

Set conn = Server.CreateObject("ADODB.Connection")  //再次连接数据库

conn.Open "data"

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

rss.CursorType = 3

rss.LockType = 3

rss.Open sqlstr, conn

number=0  //设置变量，当前部门人数合计初始值为0

//以下While循环计算出当前部门人数合计

while(not rss.eof)

rss.movenext

number=number+1

  wend

hj=hj+number  //总人数合计为各部门人数之和

rss.movefirst

flag=0  //设置变量，flag用来判断当前部门是否首次出现，初始值为0

//以下While循环输出当前部门统计数据和员工名单

  while(not rss.eof)%>

        <tr>

        <%if (flag=0) then%>

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

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

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

        <%else%>

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

              <td width="93" height="24"><p align="center">&nbsp;</td>

              <td width="78" height="24"><p align=