<% strold=ReadData() if not(isnull(strold) or len(strOld)<6) then '分解数据文件，获得数据 vstr=split(strold,vbcrlf) '访问天数、平均每天访问量 vdays=now()-cdate(vstr(4)) vdayavg=vstr(1)/vdays vdays=int((vdays*10^3)+0.5)/10^3 if vdays<1 then vdays="0" & vdays vdayavg=int((vdayavg*10^3)+0.5)/10^3 %>