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

				开馆时间>>       公交路线>>       票务中心>>       参观指南>>
> 飞机模拟驾驶 > 能量穿梭机 > 儿童 > 力学 > 人体奥秘 数学 机械 > 信息技术 > 声学 光学 电磁学
		》中国·合肥 科学家企业家讲坛第七十三讲在科技馆举行  [2008-08-19]  》科普新剧《 雨之语 》出台  [2008-08-15]   》“天天运动会”竞技科技馆 [2008-08-08]  》文明城市靠你靠我靠大家  我馆职工上街协管交通 (组图)   [2008-08-06]  》合肥市科技馆展厅更新改造广泛征求社会各界意见   》交流简讯　                                                   更多新闻...
				我们的链接     中国数字科技馆       中国科技馆       上海科技馆       天津科技馆       安徽省科协       合肥市科协            更多...
		》合肥科技馆大事记
		合肥科技馆合肥科普培训学校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以上浏览器