<%cz = request("cz") if cz = "" then exec="SELECT yhm,count(*) AS cs FROM yrwl_tb_dlxx GROUP BY yhm ORDER BY count(*) DESC" if cz = "zj" then exec = "SELECT yhm,zhsj from yrwl_tb_admin ORDER BY zhsj DESC" if cz = "cy" then exec = "SELECT ck,count(*) AS cs FROM yrwl_tb_dlxx GROUP BY ck ORDER BY count(*) DESC" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1 page =int(Request("page")) rs.PageSize =20 If page < 1 Then page = 1 If page > rs.PageCount Then page = rs.PageCount if not rs.eof then rs.AbsolutePage =page%> <%if cz = "" or cz = "zj" then zd1 = "yhm"%> <%if cz = "" then zd2 = "cs"%> <%end if%> <%if cz = "zj" then zd2 = "zhsj"%> <%end if end if%> <%if cz = "cy" then zd1 = "ck" zd2 = "cs"%> <%end if%> <%For i = 1 To rs.PageSize If rs.EOF Then Exit For ck = rs(zd1) sj = rs(zd2)%> <%rs.movenext next%>

序号	用户名	登陆次数	登陆时间	软件名称	使用次数
<%=rs.pagesize*(page-1)+cstr(i)%>	<%=ck%>	<%=sj%>

<%call pagefy(page,rs.pagecount,"?cz="&cz)%> <%rs.close call close_conn()%>