天津市卫生局幼儿园


	天津市卫生局幼儿园始建于1952年，环境优雅，师资精良，教师全部为大专及以上学历，幼儿园占地面积.......

<% dim length,cc,path,vtop,vip,vips,vtoday,vyesterday,vstarttime,vtodaytime,vsaveips,vmax,vmaxtime sql="select * from counter where used=1" set rs=conn.execute(sql) length=rs("lengh") path=rs("path") ' 网页立即过期，防止漏统计 Response.Expires = -1 ' 检查客户端IP vip=Request.ServerVariables("Remote_Addr") '如果已经存在统计数据 vtop=rs("number") vips=rs("vips") vtoday=rs("vtoday") vyesterday=rs("vyesterday") vstarttime=rs("vstartime") vtodaytime=rs("vtodaytime") vsaveips=rs("vsaveips") vmax=rs("vmax") vmaxtime=rs("vmaxtime") '向现有数据中追加值 vtop=vtop+1 if cdate(vtodaytime)=date() then vtoday=vtoday+1 else vyesterday=vtoday vtoday=1 vtodaytime=date() end if if instr(vsaveips,"#" & vip & "#")=false then vips=vips+1 if clng(vtoday)>clng(vmax) then vmax=vtoday vmaxtime=date() end if vsaveips=left(vsaveips,len(vsaveips)-1) vsaveips=right(vsaveips,len(vsaveips)-1) howip=split(vsaveips,"#") if ubound(howip) < 40 then vsaveips="#" & vsaveips & "#" & vip & "#" else vsaveips=replace("#" & vsaveips,"#" & howip(0) & "#","#") & "#" & vip & "#" end if '写入数据文件 '写入数据库 end if ' 关闭数据对象 rs.close '将数据写入数据库 sql="select * from counter where used=1" rs.open sql,conn,1,2 rs("number")=vtop rs("vips")=vips rs("vtoday")=vtoday rs("vyesterday")=vyesterday rs("vtodaytime")=vtodaytime rs("vmax")=vmax rs("vmaxtime")=vmaxtime rs("vsaveips")=vsaveips rs.update rs.close %>


			总访问量 <% cc=length-len(vtop) for i=1 to cc %><% next %> <% for i=1 to len(vtop)%><% next %> 今天访问量<% for i=1 to len(vtoday)%><% next %>，昨天访问量 <% for i=1 to len(vyesterday)%><% next %>