config_counter.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<%
sub configs_load()
  conn.execute("insert into configs(id,num_topic,num_data,num_reg,new_username,num_news,num_article,num_down,num_product,counter,max_online,max_tim,start_tim) values(1,0,0,0,'',0,0,0,0,1,1,'"&now_time&"','"&time_type(now_time,33)&"')")
end sub

function counter_type(cmain,ct)
  dim rs,sql,ft,counters,max_online,max_tim,start_tim,types,counts
  types=1:i=0:counter_type=""
  sql="select counter,max_online,max_tim,start_tim from configs where id=1"
  set rs=conn.execute(sql)
  if rs.eof and rs.bof then
    rs.close
    call configs_load()
    set rs=conn.execute(sql)
  end if
  counters=rs("counter")
  max_online=rs("max_online")
  max_tim=rs("max_tim")
  start_tim=rs("start_tim")
  rs.close:set rs=nothing
  counters=int(counters)
  max_online=int(max_online)
  ft=mid(web_setup,7,1)
  if not(isnumeric(ft)) then ft=1
  ft=int(ft)
  if ft=0 then
    if trim(request.cookies(web_cookies)("counters"))<>"yes" then
      counters=counters+types
      response.cookies(web_cookies)("counters")="yes"
    end if
  else
    response.cookies(web_cookies)("counters")=""
    counters=counters+types
  end if
  if online_num>max_online then max_online=online_num:max_tim=now_time
  sql="update configs set counter="&counters&",max_online="&max_online&",max_tim='"&max_tim&"' where id=1"
  conn.execute(sql)
  if cmain="view" then
    counts="本站总访问量&nbsp;<font class=red_3 >" & counters & "</font>&nbsp;人次" & _ 
	   "<br>本站最高峰&nbsp;<font class=red_3 >" & max_online & "</font>&nbsp;人在线" & _ 
	   "<br>本站当前有&nbsp;<font class=red_3>" & online_num & "</font>&nbsp;人在线"& _
	   "<br>本站统计时间：从&nbsp;<font class=red_3>"&start_tim&"</font>&nbsp;至今"& _
	   "<br>最高峰发生在：<font class=red_3>" & max_tim & "</font> "& _
       "<br>页面执行时间：<font class=red_3>" &FormatNumber((timer()-timer_start)*1000,3)& "</font> 毫秒 "& _
	   "<br>网站当前版本：&nbsp;<font class=red_3>"&web_var(web_config,11)&"</font> "  
    counter_type=counts
  end if
end function
%>