合肥市科技馆

首页 I 馆长致辞 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以上浏览器