t 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="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&qu

上一页  [1] [2] [3] 下一页

在google里搜索更多巧用ASP实现Web数据统计、报表和打印

	Web www.51ec.org

上一篇信息学院： 如何在Form域中Post大于100K字节的数据?

下一篇信息学院： ADO技巧精华10则