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

上海科技京城
场馆介绍
　     上海科技京城是上海市中心城区唯一一家由市政府命名的高科技园区。上海科技京城管理委员会由上海市科学技术委员会和黄浦区人民政府发起成立和共同管理。在市区两级政府的重点扶持下，科技京城已日益凸现其综合配套和后发优势，正建成上海中央商务区最具规模的国内外知名高科技企业的聚集高地，上海高新技术成果转化中心，上海技术产权交易中心，大规模、专业化的信息中产品展示交易中心以及最具活力和投资价值的高科技创业中心。

　
外观图片
　

网址
http://www.king.sh.cn/frame.htm

　展馆位置



　联系方式
 
地址：上海市北京东路668号
邮编：200001
电话：021-53080880
　　　53089568
　　　53083122
　　　53080637
传真：021-53083479
　　　53087413