<%
Dim tSql
Dim rs
dim conn
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data/data.mdb")
tSql="select month(date) as 月份,name_a as 硬件名称,type_a as 硬件型号,unit as 单位，sum(qty) as 数量 "
tSql=tSql&"from test"
tSql=tSql&"where year(date)=2007 group by month(date),name_a,type_a"
set rs=conn.execuet(tSql)
%>