<% 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.library.sh.cn/

　联系方式

地址：上海市徐汇区淮海中路1555号
邮编：200031
总机：021-64455555转
传真：021-64455001
交通：公交车：126、911、926、920、96、93、15、548等高安路或淮海中路站；地铁一号线衡山路站
EMAIL：www@libnet.sh.cn