如何完善以下代码：<!--#include file= p--<%dim rsdim sqldim total,str1,a1set rs= eateobject(" cordset")sql="select top 1 alluser from diaocha where 1=1 order by alluser desc"rs.open sql,conn,1,3total=rs("alluser")set sql=nothing osestr1="select answer1,count(*) from diaocha where answer1 in ('A','B') group by answer1"rs.open str1,conn,1,3a1=rs("数量")set str1=nothing ose%