<% 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 %> 展览频道/上海青年电子社区
 
　

外滩历史纪念馆
场馆介绍
　     为了更好地向中外游人介绍上海及外滩发展的历史轨迹，让人们了解过去，认识现在，展望未来，在人民英雄纪念塔的下面，黄浦区还建造了外滩历史纪念馆。外滩历史纪念馆专门开发了多媒体电脑系统，利用详实的图片、文字资料及部分实物仿制品更直观的向游人介绍外滩及上海的变迁。为了弥补纪念馆在编专职讲解员有限的不足，我区上海旅游服务职业技术学校的团员青年自愿组建了“外滩历史纪念馆义务讲解队”，坚持每逢周末到外滩地区义务向中外游人介绍外滩的历史变迁。同时，也展示了上海中心城区青年志愿者良好精神风貌。
外观图片
　


　联系方式

地址：中山东一路28号