<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>无标题文档</title> </head>
<body> <% Set cn=Server.CreateObject("ADODB.Connection") cn.ConnectionString="DSN=weisheng;UID=sa;PWD=transit" cn.open Set rs=Server.CreateObject("ADODB.Recordset") Source="select Num,Area,num_count=count(num) from card1 GROUP BY Num" rs.Open source,cn Response.Write"<TABLE BORDER ALIGN=CENTER>" Response.Write"<TR>" Response.Write"<TD>地区编码</TD>" Response.Write"<TD>地区名称</TD>" Response.Write"<TD>卡片数目</TD>" DO While Not rs.Eof Response.Write"<TR>" For I=o to rs.Fields.Count-1 Response.Write"<TD>"&rs(I).Value&"</TD>" NEXT rs.MoveNext LOOP rs.Close cn.Close Set rs=Nothing Set cn=Nothing %> </body> </html>
