28,409
社区成员




<%
dim conn,sql,rs
set conn=Server.CreateObject("adodb.Connection")
conn.provider="microsoft.jet.oledb.4.0"
conn.open Server.MapPath("/porder/porder.mdb")
sql="select 服务日期,业务员,count(公司名称) as 业务量 from 业务信息登记 group by 服务日期"
set rs=conn.Execute(sql)
if Err.number>0 then
Response.Write(Err.Description)
end if
if rs.bof then
Response.Write "现在还有没有数据"
else
do while not rs.eof
Response.Write rs("服务日期")&" "&rs("业务员")&" "&rs("业务量")&"<br>"
rs.movenext
loop
end if
set rs=nothing
set conn=nothing
%>