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


展览分类 >> 房产汽车（以下展览仅供参考，实际情况以各展览场馆安排为准！）
3月份
第三届上海创建规范服务达标大型装潢咨询会(20-21)[上海图书馆]
2004中国汽车零部件跨国采购洽谈会(25)[上海展览中心]
上海房地产中介服务二手房交易展示会(28-30)[上海东亚展览馆]
2月份
2004上海第七届大型家庭居室设计装饰咨询展览会(7-8)[光大会展中心]
第六届中国国际林业、木业机械与供应展/第六届中国国际家具生产、装璜与装饰机械及配件展/第四届中国国际家具、建筑及装璜用木料及木制品展(17-20)[国际展览中心]
1月份
上海房地产展示交易会(03.12.31-04.1.1)[上海展览中心]
上海市第六届家庭居室设计咨询展示(1-3)[上海图书馆]
上海轨道交通规划沿线住宅新年展示会暨江南别墅精品新年展示会(1-4)[光大会展中心]
香港房地产服务博览（上海）2004(13-15)[市贸商城]