机构职能    |    政策法规    |    行政许可    |    规划公报    |    统计数据    |
    办事指南    |    文档下载    |    在线办理    |    查询中心    |    咨询投诉    |
    咨询留言    |    办事电话    |    局长信箱    |    网上调查    |    12365热线    |
" response.write "
关键字:   站点导航   <% mode = LCASE(Request("mode")) gif = Request("gif") Set conncount = Server.CreateObject("ADODB.Connection") conncount.Open(tcon()) SET rscount = Server.CreateObject("ADODB.Recordset") rscount.Open "Select * From counters" , conncount,1,3 LASTIP = rscount("LASTIP") NEWIP = REQUEST.servervariables("REMOTE_ADDR") IF CSTR(Month(rscount("DATE"))) <> CSTR(Month(DATE())) THEN rscount("DATE") = DATE() rscount("YESTERDAY") = rscount("TODAY") rscount("BMONTH") = rscount("MONTH") rscount("MONTH") = 1 rscount("TODAY") = 1 rscount.Update ELSE IF CSTR(Day(rscount("DATE"))) <> CSTR(Day(DATE())) THEN rscount("DATE") = DATE() rscount("YESTERDAY") = rscount("TODAY") rscount("TODAY") = 1 rscount.Update END IF END IF rscount("TOTAL") = rscount("TOTAL") + 1 rscount("TODAY") = rscount("TODAY") + 1 rscount("MONTH") = rscount("MONTH") + 1 rscount.Update counter=rscount("total") response.write "总访问量" GCounter( rscount("TOTAL") ) if counter=500000 then response.write "
" response.write "感谢您一直以来的支持,请凭这个号码(du83n)到我所领取精美礼品一份,期待您的到来" response.write "
" response.write "联系电话:23033321" else response.write "
" end if ' response.write "
" ' response.write "今日浏览总人数:" ' GCounter( rscount("TODAY") ) ' response.write "
" ' response.write "昨日浏览总人数:" ' GCounter( rscount("YESTERDAY") ) ' response.write "
" ' response.write "本月浏览总人数:" ' GCounter( rscount("MONTH") ) ' response.write "
" ' response.write "上月浏览总人数:" ' GCounter( rscount("BMONTH") ) ' response.write "
"%> <%response.write "
" N = Now D2 = DateValue(N) D1 = #27/11/2000# ' 开始统计日期(月/日/年) 'response.write "开站至今天:" ' GCounter( DateDiff("d", D1, D2) ) 'response.write "
" 'D3 = DateDiff("d", D1, D2) 'response.write "平均一日人数:" ' GCounter( rscount("TOTAL")\D3 ) conncount.CLOSE Function GCounter( counter ) Dim S, i, G S = CStr( counter ) For i = 1 to Len(S) G = G & "" Next response.write G End Function %>
关于印发《全国重点工业城市质量信息网管理办法》的通知

1989年5月10日,国家技监局

全国各省、自治区、重点工业城市经委(计经委)、技术监督局质量(科技)处(科):
为了及时掌握产品质量信息,加强宏观指导,原国家经委质量管理局在不断改进各省、自治区、直辖市质量信息报送办法的同时,逐步建立了79个工业城市的质量网及质量信息报送制度。三年来,质量信息网起到了及时为领导提供质量信息,加强各地间横向联系的重要作用,受到了各级领导的重视。为了巩固质量信息网已取得的成果,保持质量信息工作的连续性,根据去年11月宜昌会上代表们的要求,制订了《全国重点工业城市质量信息网管理办法》。现将本办法印发给你们,请结合本地实际情况参照执行。

附件:全国重点工业城市质量信息网管理办法
第一条 为加强全国重点工业城市质量信息网(以下简称全国质量信息网)的建设,使质量信息更好地为领导机关制订宏观战略决策和指导企业改进质量管理、提高产品质量服务,特制订本办法。
第二条 质量信息网的主要工作内容应根据各级主管部门的要求确定,做到准确及时地提供需要的信息。
目前,质量信息主要包括以下内容:
1.产品质量指标完成情况;
2.影响产品质量的主要因素及原因;
3.质量工作的典型经验;
4.各地加强质量工作的政策、规定、办法以及其他有关问题;
5.重大质量事故的情况。
第三条 全国质量信息网的基本任务是:
1.依据确定的质量指标,收集与贮存产品质量信息;
2.对产品质量信息进行分析、处理,提出改进质量工作的措施、建议;
3.按月编制产品质量情况报表;
4.及时报送与交流质量管理的有关资料和典型经验;
5.总结质量信息工作经验,并做好交流推广工作;
6.研究、改进质量统计考核指标体系。
第四条 全国质量信息网由国家技术监督局质量管理司统一组织管理,并作为子系统纳入国家技术监督局的信息网络。
第五条 全国质量信息网由大中工业城市组成。凡符合下列条件的工业城市,经所在省、自治区推荐,国家技术监督局质量管理司认可,均可参加全国质量信息网,成为成员单位:
1.直辖市;
2.计划单列市;
3.沿海开放城市;
4.省会(自治区首府)城市;
5.年工业总产值达百亿元以上的城市;
6.优质产品产值率在25%以上的城市;
7.质量管理试点城市。
第六条 全国质量信息网的成员单位有义务执行本办法,履行第二、三条规定的职责及任务。
第七条 全国质量信息网成员单位的专职或兼职信息人员,在本地区质量管理部门统一领导下,根据国家技术监督局的有关规定负责提出本城市质量信息的工作计划,并负责实施。
第八条 全国质量信息网要积极为各成员间开展横向联系及交流活动创造条件;各成员有优先获得本网络各类信息、资料和参加本网络组织的座谈会、研讨会、人材培训等活动的权利。
第九条 国家技术监督局质量管理司在征得有关省(自治区)和全国质量信息网成员单位领导同意的基础上,将不定期对全国质量信息工作的先进单位、先进个人提出表彰,颁发证书,以资鼓励。
第十条 本办法由国家技术监督局质量管理司负责解释,自下发之日起开始执行。

天津市质量技术监督信息网
 
隐私声明
版权所有:天津市质量技术监督局 技术支持:天津市质量技术监督信息中心
(浏览本网主页,建议将电脑显示屏的分辨率设置为1024×768)
津ICP备05001969
网站声明