广玉兰什么时候栽好:我做显示注册了多少用户的页面（ASP）请问检索数据库并用数字显示出来的代码怎么写

dim rs,sql
sql="select * from 用户注册表"
set rs = conn.execute(sql)
if not rs.eof then
do while not rs1.eof
ZC=ZC+1
rs1.movenext
loop
else
response.write"还没有用户注册！"
end if
rs.close
set rs = nothing

dim rs1
sql="select * from 文章表"
set rs1 = conn.execute(sql)
if not rs1.eof then
do while not rs1.eof
WZ=WZ+1
rs1.movenext
loop
else
response.write"还没有发表的文章！"
end if
rs1.close
set rs1 = nothing

ZC和WZ变量就是注册用户数和发表文章数，调用即可。

dim rs,sql
sql="select count(*) from 用户表"
set rs = conn.execute(sql)
if not rs.eof then
response.write(rs(0))
end if
rs.close:set rs = nothing

dim rs1
sql="select count(*) from 文章表"
set rs1 = conn.execute(sql)
if not rs1.eof then
response.write(rs1(0))
end if
rs1.close:set rs1 = nothing

<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from 用户表"
rs.open sql,conn,1,1
yhsum=rs.recordcount
rs.close:set rs = nothing
%>
有多少用户：<%=yhsum%>

<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from 文章表"
rs.open sql,conn,1,1
wzsum=rs.recordcount
rs.close:set rs = nothing
%>
有多少文章：<%=wzsum%>