BBS

人才理念

招聘信息
　

用户反馈

会员中心
定单查询
合同下载
会员投诉
售后服务
　
用户名:
密　码:
　     
<% call CloseConn() '================================================= '过程名：ShowSiteCountAll '作 用：显示站点统计信息 '参 数：无 '================================================= sub ShowSiteCountAll() dim sqlCount,rsCount Set rsCount= Server.CreateObject("ADODB.Recordset") sqlCount="select count(ArticleID) from Article where Deleted=False" rsCount.open sqlCount,conn,1,1 response.write "文章总数：" & rsCount(0) & "篇
" rsCount.close sqlCount="select count(SoftID) from Soft where Deleted=False" rsCount.open sqlCount,conn,1,1 response.write "下载总数：" & rsCount(0) & "个
" rsCount.close sqlCount="select count(PhotoID) from Photo where Deleted=False" rsCount.open sqlCount,conn,1,1 response.write "图片总数：" & rsCount(0) & "个
" rsCount.close 'sqlCount="select sum(Hits) from article" 'rsCount.open sqlCount,conn,1,1 'response.write "文章阅读：" & rsCount(0) & "人次
" 'rsCount.close 'sqlCount="select sum(Hits) from Soft" 'rsCount.open sqlCount,conn,1,1 'response.write "文件下载：" & rsCount(0) & "人次
" 'rsCount.close 'sqlCount="select sum(Hits) from Photo" 'rsCount.open sqlCount,conn,1,1 'response.write "图片查看：" & rsCount(0) & "人次
" 'rsCount.close sqlCount="select count(UserID) from " & db_User_Table rsCount.open sqlCount,Conn_User,1,1 response.write "注册用户：" & rsCount(0) & "名
" rsCount.close set rsCount=nothing response.write "" end sub %>