哪位大哥用帮小弟简化以下该程序段，在线！

[wslmwslm]

tunit=Request.QueryString("单位")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\lwpost.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select count(*) as sum_device from device where (所在单位名称='"&tunit&"' and 设备名称='微机') "
rs.open sql,conn,3,3
t1=rs("sum_device")

rs.close
sql="select count(*) as sum_device from device where (所在单位名称='"&tunit&"' and 设备名称='打印机') "
rs.open sql,conn,3,3
t2=rs("sum_device")

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select count(*) as sum_device from device where (所在单位名称='"&tunit&"' and 设备名称='路由器') "
rs.open sql,conn,3,3
t3=rs("sum_device")

............‘还有很多

<%=t1%>
<%=t2%>
<%=t3%>
<%=t1+t2+t3%>

[ChinaOk]

关注；不知道用group 结合count能不能实现。

[wuya0531]

利用select case不知道可不可以

[saucer]

sql="select count(*) as sum_device from device where 所在单位名称='"&tunit&"' group by 设备名称"

[wslmwslm]

to saucer(思归) :
太感谢了！不过如何统计所有的'设备名称'呢？

[ChinaOk]

去掉后面的约束条件不就可以了

[saucer]

自己用个变量在循环纪录时累计

[wslmwslm]

靠！就这么简单！！
不过，就必须调用两次select了,能只调用一次么？

[sdtashenjie]

function getCount(temp)
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select count(*) as sum_device from device where (所在单位名称='"&tunit&"' and 设备名称='" & temp & "') "
rs.open sql,conn,3,3
rs.close
return rs("sum_device")
end function

用一个函数把设备作为参数,这只是个思路。

[wslmwslm]

这次调用select次数更多了!