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

				开馆时间>>       公交路线>>       票务中心>>       参观指南>>
> 飞机模拟驾驶 > 能量穿梭机 > 儿童 > 数学 力学 机械 > 人体测试 能源 > 信息技术 > 声学 光学 电磁学
		》合肥市科技馆举办《日食与月食》科普图片展   [2009-06-10]     》合肥科技馆“数学、力学和机械”主题展区集体亮相   [2009-06-04]    》著名历史学家刘申宁、历史小说家唐浩明在我馆联袂开讲   [2009-05-31]]  》端午、六一畅游合肥科技馆   [2009-05-27]  》1800人免费“玩转”合肥科技馆   [2009-05-23]  》交流简讯  [2009-05-27]　                                     更多新闻...
				我们的链接     中国数字科技馆       中国科技馆       上海科技馆       天津科技馆       安徽省科协       合肥市科协            更多...
		》合肥科技馆大事记
		合肥科技馆合肥科普培训学校2009年春季航模班招生计划
科企讲坛
家长学堂
科技信息
科普画廊

总访问量:<% 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以上浏览器