www.gusucode.com > 运动用品商城网站系统源代码程序 > stat/sAdmin_SiteTop.asp

    <!--#include file="inc_config.asp"-->
<!--#include file="inc_conn.asp"-->
<!--#include file="inc_siteinfo.asp"-->
<!--#include file="inc_Lang_admin.asp"-->
<!--#include file="inc_Lang_base.asp"-->
<!--#include file="style/style_all.asp"-->
<!--#include file="inc_admin_functions.asp"-->
<!--#include file="inc_class_AjGraph.asp"-->
<%
tTitle = Lang_sAdmin_Me & "-" & Lang_sTop
tMainName = Lang_sTop

Response.Write replace(Style_Header,"$Title",Site_Name & "-" & Lang_sTop)
Response.Write Style_Top
Response.Write replace(Style_Tips,"$Tips",Lang_sTop_Tips)


' 排行榜
set grtop=new ajgraph

	truenow		= dateadd("h",0 - CFG_ZoneServer,now())

set rs=conn.execute("select top 30 [view].site_id,sum([view].V_IP),sum([view].V_View),max(site.S_name) from [site] inner join [view] on [site].site_id=[view].site_id where [view].V_DTime>dateadd('h',-24,#"&truenow&"#) group by [view].site_id order by sum([view].V_IP) desc")

dim tmparr(30,6)
i=-1
do while not rs.eof
  i=i+1
  tmparr(i,0)=i+1 & ". <a target=""_blank"" href=""index.asp?siteid=" & rs(0) & """>" & left(rs(3),30) & "</a>"
  tmparr(i,1)=i+1
  tmparr(i,2)=rs(1)
  tmparr(i,4)=rs(2)
  rs.movenext
loop

grtop.reArr i,6
for j=0 to i
  grtop.ArrData(j,0)=tmparr(j,0)
  grtop.ArrData(j,1)=tmparr(j,1)
  grtop.ArrData(j,2)=tmparr(j,2)
  grtop.ArrData(j,4)=tmparr(j,4)
next

grtop.mousemodel = Lang_Visitors & ": $2, $3%" & vbcrlf & Lang_PageView & ": $4, $5%"
grtop.exec

' 绘图
  Response.Write replace(Style_MainTop,"$MainName",Lang_sTop) & "<table align=""center""><tr>"
  grtop.TabHeader = "<tr class=""fonts"" height=""16"" align=""center""><td width=""120"">" & Lang_sTop_0 & "</td><td width=""40"">"&Lang_Visitors&"</td><td width=""35"">"&Lang_Percent&"</td><td width=""40"">"&Lang_PageView&"</td><td width=""35"">"&Lang_Percent&"</td></tr>"
  grtop.TabRow = "<tr height=""16"" align=""right""><td align=""left"">&nbsp;$0</td><td>$2&nbsp;</td><td>$3%&nbsp;</td><td>$4&nbsp;</td><td>$5%&nbsp;</td></tr>"
  Response.Write "<td>" & grtop.TabGra(5) & "</td>"
  Response.Write "<td width=""10"">&nbsp;</td>"
  Response.Write "<td>" & grtop.Gra("d") & "</td>"
  Response.Write "</tr></table>"


Response.Write Style_MainBottom

Response.Write Style_Bottom


function chour(inhour,i,u_now)
  dim chourm
  if i=23 then
    chourm=minute(u_now)
    if chourm<10 then chourm="0" & chourm
    chour=datevalue(inhour) & " " & hour(inhour) & ":00-" & hour(u_now) & ":" & chourm
  else
    chour=datevalue(inhour) & " " & hour(inhour) & ":00-" & hour(dateadd("h",1,inhour)) & ":00"
  end if
end function


%>