最快就是生成静态网页

要想rs对象少 就用一个（除非特殊情况）
set rs=server……
……
rs.open……
……
rs.close
……
……
rs.open……
……
rs.close
……
……
不用的时候再set rs=nothing

set rsp1=server.CreateObject("adodb.recordset")
sql="select  * from category where categoryid=146  order by categoryid desc"
rsp1.open sql,conn,3,3
set rsp2=server.CreateObject("adodb.recordset")
sql="select  * from category where categoryid=147  order by categoryid desc"
rsp2.open sql,conn,3,3
set rsp3=server.CreateObject("adodb.recordset")
sql="select  * from category where categoryid=148  order by categoryid desc"
rsp3.open sql,conn,3,3
set rsp4=server.CreateObject("adodb.recordset")
sql="select  * from category where categoryid=149  order by categoryid desc"
rsp4.open sql,conn,3,3

可以改为
sql="select  * from category where categoryid  between 146 and 149  order by categoryid desc"