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

上海通志馆
场馆介绍
　     位于王港镇西首，1994年12月开工，1995年5月落成启用。建筑面积5422平方米，内设资料、培训、管理等部门。资料部共800平方米，暂设2个资料室，1个藏书室、接待室和展示厅。收藏《上海通志》、全套《申报》、区县志和各类专业志；有关上海的历代史料典籍及全国各省、市、自治区、各县市的志书及省级年鉴。通志馆集资料存藏、成果展示、研究编纂、业务培训诸功能于一体。
　

　联系方式


地址：上海浦东王港镇西首
电话：58581662