<% dim visitors,myplace,vwrite,MAXChannalCount MAXChannalCount = 6 myplace = 4 whichfile=server.mappath("../count/2.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(whichfile) visitors=Split(trim(thisfile.readline),"::") thisfile.close 'response.write visitors(myplace) visitors(0)=visitors(0)+1 visitors(myplace)=visitors(myplace)+1 Set out=fs.CreateTextFile(whichfile) vwrite = "" for i = 0 to MAXChannalCount - 1 vwrite =vwrite & visitors(i) & "::" next vwrite =vwrite & visitors(MAXChannalCount) out.WriteLine(vwrite) out.close set fs=nothing %> 展览频道/上海青年电子社区
　
　

上海青年文化活动中心
地震馆
场馆介绍
　     由图片、资料展示厅和地震模拟演示厅组成的地震馆，是上海青少年科普教育基地。展示厅以图片资料的形式向人们介绍地震成因、危害以及防震、减灾和自救、互救的知识。演示厅采用模拟震动台和声、光、点结合的影片，使人们感受到二级至九级地震的"真实"破坏情况。通过视、听、体验等生动形象的方式，使人有一种身临其境的感受。
资料图片
　


　展馆位置




　联系方式

地址：上海市汉中路188号
电话：（021）63535988
传真：（021）63542642
邮编：200070
交通：地铁1号线汉中路站、
隧道三线、128、104、109、64、113、41、95、114、722、741、723、58、701、13、63、835