首页  I  馆长致辞    关于科技馆  I  科技馆大事记  I  会展培训  I  展品研发  I   参观指南  I  联系我们

 

 

      开馆时间>>
      公交路线>>
      票务中心>>
      参观指南>>
> 飞机模拟驾驶
> 能量穿梭机
儿童
> 力学
> 人体奥秘 数学 机械
> 信息技术
> 声学 光学 电磁学
 
 
 专科(高职)招生咨询会在科技馆火爆登场  [2008-07-25]
 》合肥市科技馆消防工作交出满意答卷  [2008-07-24]
 》关,不关?这是一个问题  [2008-07-18]
 合肥市科技馆狠抓文明创建工作 [2008-07-11]
 》合肥市科技馆展厅更新改造广泛征求社会各界意见 
 》交流简讯                                                    更多新闻...
 
   
          我们的链接
    中国数字科技馆
      中国科技馆
      上海科技馆
      天津科技馆
      安徽省科协
      合肥市科协
           更多...   
   
   
   
   合肥科技馆大事记  

     合肥科技馆合肥科普培训学校2008年暑期航模班招生计划  
 科企讲坛  

进入穹幕 进入动感 进入高压放电  进入全息音响

 
 科普画廊  
 科技信息  
   

总访问量:<% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("djry.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SET Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "Select * From counters" , conn,1,3 IF CSTR(Month(Rs("DATE"))) <> CSTR(Month(DATE())) THEN Rs("DATE") = DATE() Rs("YESTERDAY") = RS("TODAY") Rs("BMONTH") = Rs("MONTH") Rs("MONTH") = 1 Rs("TODAY") = 1 Rs.Update ELSE IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN Rs("DATE") = DATE() Rs("YESTERDAY") = Rs("TODAY") Rs("TODAY") = 1 Rs.Update END IF END IF Rs("TOTAL") = Rs("TOTAL") + 1 Rs("TODAY") = Rs("TODAY") + 1 Rs("MONTH") = Rs("MONTH") + 1 Rs.Update Response.write "" MyCounter( Rs("TOTAL") ) Response.write " " Function MyCounter( counter ) Dim S, i, G S = CStr( counter ) For i = 1 to Len(S) G = G & "" Next Response.write G End Function %>         地址:黄山路与合作化路交叉口     邮编:230031     网址:www.hfstm.com     管理员信箱:web@hfstm.com
 皖ICP备05010338号    版权所有 合肥科技馆     合肥科技馆网络信息中心设计 制作 维护
 建议使用800 X 600像素分辨率和IE5.0以上浏览器