<% dim visitors,myplace,vwrite,MAXChannalCount myplace = 4 whichfile=server.mappath("../count/2.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(whichfile) visitors=Split(trim(thisfile.readline),"::") MAXChannalCount = Ubound(visitors) 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 %> 展览频道/上海青年电子社区
 网站主页 | 上海共青团 | 青年报—生活周刊—学生导报— 学生导报  | 留学—考试—新书—展览—游戏—旅游—美味—企业
东方少年
频道首页 - 教育科普 - 文化艺术 - 电器电子 - 服装食品 - 房产汽车 - 其它及综合