最好用:
''''''''''''''''''
set rs=server.createObject("ADODB.recordset")
sql="select count(*) from table"
set rs=conn.execute(sql)
response.write(rs(0))
''''''''''''''''''
sql的执行速度绝对比ado的快
sub Total()
dim sqlTotal
dim rsTotal
sqlTotal="select Count(*) from info"
Set rsTotal= Server.CreateObject("ADODB.Recordset")
rsTotal.open sqlTotal,conn,1,1
if rsTotal.eof and rsTotal.bof then
totalPut=0
response.write "共有 0 篇文章"
else
totalPut=rsTotal(0)
response.Write "共有 " & totalPut & " 篇文章"
end if
rsTotal.close
set rsTotal=nothing
end sub