机构职能    |    政策法规    |    行政许可    |    规划公报    |    统计数据    |
    办事指南    |    文档下载    |    在线办理    |    查询中心    |    咨询投诉    |
    咨询留言    |    办事电话    |    局长信箱    |    网上调查    |    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 %>
 
网站声明
发布机构:局办公室 发布时间:2008-08-10 信息来源:天津市质监局
 

  1 、本网所有资料,凡未经特殊注明的,版权均属天津市质监局网站(www.tjjj.gov.cn)所有。

  2 、转载或引用本网内容必须是以新闻性或资料性公共免费信息为使用目的的合理、善意引用,不得对本网内容原意进行曲解、修改。但以下内容除外:

   ( 1 )本网所指向的非本网内容的相关链接内容;

   ( 2 )已作出不得转载或未经许可不得转载声明的内容;

   ( 3 )未由本网署名或本网引用、转载的他人作品等非本网版权内容;

   ( 4 )本网中特有的图形、标志、页面风格、编排方式、程序等;

   ( 5 )本网中必须具有特别授权或具有注册用户资格方可知晓的内容;

   ( 6 )其他法律不允许或本网认为不适合转载的内容。

  3 、转载或引用本网内容不得进行如下活动:

   ( 1 )损害本网或他人利益;

   ( 2 )任何违法行为;

   ( 3 )任何可能破坏公秩良俗的行为;

   ( 4 )擅自同意他人继续转载、引用本网内容;

  4 、转载或引用本网内容须注明“资料来源:天津市质监局网站”字样,并标明本网网址 ,违者将依法追究责任。

  5 、转载或引用本网中的署名文章,请按规定向作者支付稿酬。

  6 、对于不当转载或引用本网内容而引起的民事纷争、行政处理或其他损失,本网不承担责任。

  7 、对不遵守本声明或其他违法、恶意使用本网内容者,本网保留追究法律责任的权利。

  8 、本网所有资料的解释说明权归天津市质监局所有。天津市质监局有权对拥有版权的资料随时进行修改和更新。

   9 、本网属于政府机构网站,未经天津市质监局许可,其它商业性网站不得链接本网,违者将依法追究责任。

来源:天津市质监局

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