<% '请勿改动下面这三行代码 const ChannelID=1 Const ShowRunTime="Yes" MaxPerPage=20 SkinID=0 PageTitle="首页" Set rsArticle= Server.CreateObject("ADODB.Recordset") Set rsPic= Server.CreateObject("ADODB.Recordset") '================================================= '过程名：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 sum(Hits) from article" rsCount.open sqlCount,conn,1,1 response.write "文章阅读：" & rsCount(0) & "人次
" rsCount.close set rsCount=nothing response.write "" end sub %>

首页 新闻动态 机构简介 政务公开 卫生信息 行政许可 创卫专题 局属单位 卫生论坛