天津市质量技术监督信息网

　　　　机构职能　　　　｜　　　　政策法规　　　　｜　　　　行政许可　　　　｜　　　　规划公报　　　　｜　　　　统计数据　　　　｜

　　　　办事指南　　　　｜　　　　文档下载　　　　｜　　　　在线办理　　　　｜　　　　查询中心　　　　｜　　　　咨询投诉　　　　｜

　　　　咨询留言　　　　｜　　　　办事电话　　　　｜　　　　局长信箱　　　　｜　　　　网上调查　　　　｜　　　　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 %>

中华人民共和国国家质量监督检验检疫总局令

第　64　号

　　《质量监督检验检疫行政许可委托实施办法》经 2004年6月21日国家质量监督检验检疫总局局务会审议通过，现予公布，自2004年7月1日起施行。
局　长　　李长江
二○○四年六月二十三日

质量监督检验检疫行政许可委托实施办法

第一条　为了规范行政许可委托实施工作，根据《中华人民共和国行政许可法》的规定，结合质量监督检验检疫工作实际，制定本办法。
第二条　国家质量监督检验检疫总局(以下简称国家质检总局)、直属出入境检验检疫局、省级质量技术监督局实施行政许可委托适用本办法。
第三条　实施行政许可委托，应当遵循合法、公开、便民、高效的原则。
第四条　法律、行政法规和国务院发布的决定规定由国家质检总局实施的行政许可事项，国家质检总局可以根据实际需要，全部或者部分委托出入境检验检疫机构或者地方质量技术监督局实施。
　　法律、行政法规和国务院发布的决定规定由直属出入境检验检疫局实施的行政许可事项，直属出入境检验检疫局可以根据实际需要，全部或者部分委托所属分支机构实施。
　　法律、行政法规和国务院发布的决定规定由省级质量技术监督局实施的行政许可事项，省级质量技术监督局可以根据实际需要，全部或者部分委托下级质量技术监督局实施。
第五条　委托行政机关应当在法定职责范围内实施行政许可委托。行政许可委托应当明确以下内容：
　　(一)行政许可委托的具体事项；
　　(二)委托行政机关的名称；
　　(三)受委托行政机关的名称；
　　(四)委托行政机关与受委托行政机关的权利和义务；
　　(五)行政许可委托的时限。
　　行政许可委托内容应当通过公告向社会发布。
第六条　委托行政机关和受委托行政机关应当签订行政许可委托书。
第七条　委托行政机关在行政许可委托的期限内需变更、中止或者终止委托的，应当及时向社会公告。
第八条　委托行政机关实施委托后，申请人仍向委托行政机关提出申请的，委托行政机关应当告知其具体的受理机关。
第九条　委托行政机关应当对受委托行政机关实施行政许可的行为进行监督检查，并对行政许可行为的后果承担法律责任。
第十条　受委托行政机关应当在委托的权限范围内办理行政许可。
第十一条　受委托行政机关应当以委托行政机关名义实施行政许可；不得再委托其他组织或者个人实施行政许可。
第十二条　受委托行政机关超越委托的权限实施行政许可，给当事人的合法权益造成损害的，自行承担法律责任。
第十三条　受委托行政机关应当按照国家质检总局统一制定的行政许可文书格式办理行政许可事项。
第十四条　国家质检总局负责制定行政许可委托事项的工作制度，并负责行政许可委托事项的业务指导和培训。
第十五条　法律、行政法规对行政许可委托已有规定的，依照其规定。
第十六条　国家认证认可监督管理委员会、国家标准化管理委员会行政许可委托工作，参照本办法执行。
第十七条　本办法由国家质检总局负责解释。
第十八条　本办法自2004年7月1 日起施行。

天津市质量技术监督信息网