|
#2
zln2007-09-30 13:12
|
dim wuwu,liushi,liuwu,qishi,qiwu,jiuwu,sqlstr,conn
%>
</head>
<body>
<div align="center">
<%
set rs_zongrenshu = server.CreateObject("adodb.recordset")
rs_zongrenshu.open "select * from tuixiu",conn,3,1
zongrenshu = rs_zongrenshu.RecordCount
set rs_wuwu=server.CreateObject("adodb.recordset")
sqlstr = "select * from tuixiu where UserBirth between'19520101' and '19570101'"
rs_wuwu.open sqlstr,conn,3,1
wuwu = rs_wuwu.RecordCount
set rs_liushi=server.CreateObject("adodb.recordset")
sqlstr = "select * from tuixiu where UserBirth between'19470101' and '19510101'"
rs_liushi.open sqlstr,conn,3,1
liushi = rs_liushi.RecordCount
set rs_liuwu=server.CreateObject("adodb.recordset")
sqlstr = "select * from tuixiu where UserBirth between'19420101' and '19460101'"
rs_liuwu.open sqlstr,conn,3,1
liuwu = rs_liuwu.RecordCount
set rs_qishi=server.CreateObject("adodb.recordset")
sqlstr = "select * from tuixiu where UserBirth between'19370101' and '19410101'"
rs_qishi.Open sqlstr,conn,3,1
qishi=rs_qishi.Recordcount
set rs_qiwu=server.CreateObject("adodb.recordset")
sqlstr = "select * from tuixiu where UserBirth between'19320101' and '19360101'"
rs_qiwu.open sqlstr,conn,3,1
qiwu = rs_qiwu.RecordCount
set rs_jiuwu=server.CreateObject("adodb.recordset")
sqlstr = "select * from tuixiu where UserBirth between'19110101' and '19310101'"
rs_jiuwu.open sqlstr,conn,3,1
jiuwu= rs_jiuwu.RecordCount
%>
<strong>按年龄统计</strong>
</p>
</div>
<p> </p>
</div>
<table width="618" border="1" align="center">
<tr>
<td width="228"><div align="center">50-55(岁）</div></td>
<td width="374"><div align="center">
<%response.Write(wuwu)%>
人</div></td>
</tr>
<tr>
<td><div align="center">56-60(岁）</div></td>
<td><div align="center">
<%response.Write(liushi)%>
人</div></td>
</tr>
</table>
