show.asp

又一个统计系统。这个是做网站访问统计使用的。大家可以试试。很不错。http://www.cn-study.com

    <th><%=Lang.item("g_012")%></th>
    <th><%=Lang.item("g_013")%></th>
    <th><%=Lang.item("g_014")%></th>
    <th><%=Lang.item("g_015")%></th>
    <th><%=Lang.item("g_016")%></th>
    <th>     
  </tr>
  <tr align="center" class=tablebody1>
    <td><%=Lang.item("g_017")%></td>
    <td><%=Day11%></td>
    <td><%=Day21%></td>
    <td><%=Day31%></td>
    <td><%=Day41%></td>
    <td><%=Month11%></td>
    <td><%=Day01%></td>
    <td rowspan="2"><script src=<%=hx.baseurl%>mystat.asp></script>
    </td>
  </tr>
  <tr align="center" class=tablebody1>
    <td><%=Lang.item("g_018")%></td>
    <td><%=Day12%></td>
    <td><%=Day22%></td>
    <td><%=Day32%></td>
    <td><%=Day42%></td>
    <td><%=Month12%></td>
    <td><%=Day02%></td>
  </tr>
</table>
<br>
<%
set rs=nothing
End Sub
Sub GetCode
Call MainTitle(Lang.item("m_71"))
%>
<table border="0" align="center" cellpadding="0" cellspacing="0" class="tableBorder1">
  <tr> 
    <td><p><font color=#0033FF><%=Lang.item("g_057")%></font></p>
      <ul>
        <li><%=Lang.item("g_059")%>&lt;script src="<%=hx.baseurl%>mystat.asp"&gt;&lt;/script&gt;</li>
        <li><%=Lang.item("g_060")%>&lt;script src="<%=hx.baseurl%>mystat.asp?style=no"&gt;&lt;/script&gt;</li>
      </ul>
      <p><%=Lang.item("g_059")%><script src="<%=hx.baseurl%>mystat.asp"></script></p>
      <p>---------------------------------------------------------------------------------</p>

        <p><font color=#0033FF><%=Lang.item("g_058")%></font></p>
        <p>$AllVisitor -&gt; <%=Lang.item("g_016")&Lang.item("g_017")%><br>
		$AllPageView -&gt; <%=Lang.item("g_016")&Lang.item("g_018")%><br>
	    $TodayVisitor -&gt; <%=Lang.item("g_011")&Lang.item("g_017")%><br>
        $TodayPageView -&gt; <%=Lang.item("g_011")&Lang.item("g_018")%><br>
        $YestodayVisitor -&gt; <%=Lang.item("g_012")&Lang.item("g_017")%><br>
        $YestodayPageView -&gt; <%=Lang.item("g_012")&Lang.item("g_018")%><br>
</p>
		<%dim showstyle,p1,p2,p3
		showstyle=server.htmlencode(request.form("showstyle"))
		if showstyle="" then
		showstyle=Lang.item("g_016")&Lang.item("g_018")&":$AllPageView"
		end if

        p1 = request("p1")
        p2 = request("p2")
        p3 = request("p3")
	  %>
	  <table border="0" cellpadding="3" cellspacing="0" class="tableBorder2" width="650">
	  <tr class=tablebody1>
      <form name="form2" method="post" action="">
        <td>
        <input type="submit" name="Submit2" value="<%=Lang.item("b_04")%>">
        </td><td>
		<%
		dim temp1
		temp1 = split(Lang.item("g_143"),"|")		
		%>
        <input name="showstyle" type="text" id="showstyle" value="<%=showstyle%>" size="100"><br>
        <input type="radio" name="p1" value="0" <%if p1=0 or p1="" then response.write "checked"%>><%=temp1(0)%> <input type="radio" name="p1" value="1" <%if p1=1 then response.write "checked"%>><%=temp1(1)%>
        &nbsp;&nbsp;<%=temp1(2)%><select name="p2"><%dim i
        for i=1 to 10%><option<%if int(p2)=i then response.write " selected"%>><%=i%></option><%next%></select>&nbsp;&nbsp;
        <%=temp1(3)%><select name="p3"><%for i=1 to 3%><option<%if int(p3)=i then response.write " selected"%>><%=i%></option><%next%></select><%=temp1(4)%>
      </td></form></tr></table>
	  <table border="0" cellpadding="3" cellspacing="0" class="tableBorder2" width="650">
	  <tr class=tablebody1><td>
      <p><%=Lang.item("g_061")%>
<%		showstyle = "str=" & server.URLEncode(showstyle)%>
        <textarea name="textarea" cols="100" rows="3"><script src="<%=hx.baseurl%>showstat.asp?<%=showstyle%>&p1=<%=p1%>&p2=<%=p2%>&p3=<%=p3%>"></script></textarea>
      </p>
      <p><%=Lang.item("g_062")%><script src="<%=hx.baseurl%>showstat.asp?<%=showstyle%>&p1=<%=p1%>&p2=<%=p2%>&p3=<%=p3%>"></script></p>
       </td></tr></table>
      </td>
  </tr>
</table>
<%
End Sub
%>
<%
Sub referer
Call MainTitle(Lang.item("m_31"))
Call ShowQuery
%>              
<table width="768"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF" id="tabletitlelink"> 
    <th width="420" align="center"><%=Lang.item("g_032")%></th>
	<th width="128" align="center"><%=Lang.item("g_066")%></th>
	<th width="220" align="center"><%=Lang.item("g_038")%></th>
 </tr>
  <%
	dim maxnum,i,barwidth 
	dim rs,sql
	dim condition
	dim linkstr
	if query="" then
		condition=""
		linkstr="action=R"
	else
		condition="where Referer like '%"&query&"%'"
		linkstr="query="&query&"&action=R"
	end if
	sql="select top "&MaxRecord&" Referer,CR,vtime from CC_R "&condition&" order by CR desc"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	if rs.eof then
		response.write "<tr class=tablebody1><td colspan=3>"&Lang.item("g_045")&"</td></tr>"	
	else
		rs.pagesize=MaxPageSize
		rs.absolutepage=PageNo
					i=0
					if i=0 then maxnum=rs(1)
					do while not rs.eof and i<MaxPageSize
					response.write "<tr class=tablebody1><td>"
					if rs(0)="0" or rs(0)="" then
						response.write Lang.item("g_044")
					else
						response.write "<a href='"&rs(0)&"'  title='"&rs(0)&"' target=_blank>"&hx.OutStr(rs("Referer"),64)&"</a>"
					end if
					barwidth=FormatNum(rs(1)/maxnum*150,2)
					response.write "</td><td>"
  					response.write "&nbsp;"&FormatTime(rs(2))					
					response.write "</td><td>"					
 					response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth&"> "   
  					response.write rs(1)
					response.write "</td></tr>"
					i=i+1
					rs.movenext
					loop
					set rs=nothing
				end if				
					%>
</table>
<%
	hxshow.showPageInfo "CC_R","id",condition,PageNo,MaxPageSize,linkstr
%>
              <%End Sub%>
<%
Sub RefSite
Call MainTitle(Lang.item("m_32"))
Call ShowQuery
%>
<table width="768"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="558" align="center"><%=Lang.item("g_066")%></th>
    <th width="220" align="center"><%=Lang.item("g_066")%></th>
  </tr>
  <%
	dim maxnum,i,barwidth 
	dim rs,sql
	dim condition
	dim linkstr
	if query="" then
		condition=""
		linkstr="action=S"
	else
		condition="where RefSite like '%"&query&"%'"
		linkstr="query="&query&"&action=S"
	end if
	set rs=server.createobject("adodb.recordset")
	sql="select top "&MaxRecord&" RefSite,CSite from RefSite "&condition&" order by CSite desc"
	rs.open sql,conn,1,1
	if rs.eof then
		response.write "<tr class=tablebody1><td colspan=2>"&Lang.item("g_045")&"</td></tr>"
	else
		rs.pagesize=MaxPageSize
		rs.absolutepage=PageNo
					i=0
					if i=0 then maxnum=rs(1)
					do while not rs.eof and i<MaxPageSize
					response.write "<tr class=tablebody1><td>"
					if rs(0)="0" then
						response.write Lang.item("g_044")
					else
						response.write "<a href='"&rs(0)&"'  title='"&rs(0)&"' target=_blank>"&left(rs(0),60)&"</a>"
					end if
						barwidth=FormatNum(rs(1)/maxnum*150,2)
					response.write "</td><td>"					
 					response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth&"> "   
  					response.write rs(1)
					response.write "</td></tr>"
					i=i+1
					rs.movenext
					loop
					set rs=nothing
				end if
					%>
</table>
<%	hxshow.showPageInfo "RefSite","CSite",condition,PageNo,MaxPageSize,linkstr%>

<%End Sub%>
<%Sub HourCount
Call MainTitle(Lang.item("m_11"))
%>
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="60" align="center" bgcolor="#CCCCFF"><%=Lang.item("g_034")%></th>
    <th width="220" align="center" bgcolor="#CCCCFF"><%=Lang.item("g_035")%></th>
    <th width="220" align="center" bgcolor="#CCCCFF"><%=Lang.item("g_036")%></th>
  </tr>
  <%
				dim maxnum1,maxnum2,i,barwidth1,barwidth2 
				dim rs,sql
				maxnum1=hx.execute("select max(CTH) from CC_H")(0)
				if maxnum1=0 then maxnum1=1
				maxnum2=hx.execute("select max(CCH) from CC_H")(0)
				if maxnum2=0 then maxnum2=1
				sql="select Hour,CTH,CCH from CC_H order by Hour"
				set rs=hx.execute(sql)
				if rs.eof then
					response.write "<tr class=tablebody1><td colspan=3>"&Lang.item("g_045")&"</td></tr>"
				else
					i=0
					do while not rs.eof
					response.write "<tr class=tablebody1><td>"
					response.write rs(0)
					barwidth1=FormatNum(rs(1)/maxnum1*150,2)
					barwidth2=FormatNum(rs(2)/maxnum2*150,2)
					response.write "</td><td>"					
 					response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth1&"> "   
  					response.write rs(1)
					response.write "</td><td>"
 					response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth2&"> "   
  					response.write rs(2)
					response.write "</td>"
					response.write "</tr>"
					i=i+1
					rs.movenext
					loop
					set rs=nothing
				end if
					%>
</table>
<%End Sub%>
<%Sub DayCount
Call MainTitle(Lang.item("m_12"))
%>
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="60" align="center" bgcolor="#CCCCFF"><%=Lang.item("g_037")%></th>
    <th width="220" align="center" bgcolor="#CCCCFF"><%=Lang.item("g_038")%></th>
    <th width="220" align="center" bgcolor="#CCCCFF"><%=Lang.item("g_039")%></th>
  </tr>
  <%
				dim maxnum1,maxnum2,i,barwidth1,barwidth2 
				dim rs,sql
				set rs=server.createobject("adodb.recordset")
				sql="select top "&MaxRecord&" CDate,Visitor,PageView from CC_D order by CDate desc"
				rs.open sql,conn,1,1
				if rs.eof then
					response.write "<tr class=tablebody1><td colspan=3>"&Lang.item("g_045")&"</td></tr>"
				else
					rs.PageSize = MaxPageSize
					rs.absolutepage=PageNo
					i=0
					maxnum1=hx.execute("select max(Visitor) from CC_D")(0)
					maxnum2=hx.execute("select max(PageView) from CC_D")(0)
					do while not rs.eof and i<MaxPageSize
					response.write "<tr class=tablebody1><td nowrap>"
					response.write rs(0)
					barwidth1=FormatNum(rs(1)/maxnum1*150,2)
					barwidth2=FormatNum(rs(2)/maxnum2*150,2)
					response.write "</td><td>"					
 					response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth1&"> "   
  					response.write rs(1)
					response.write "</td><td>"
 					response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth2&"> "   
  					response.write rs(2)
					response.write "</td>"
					response.write "</tr>"
					i=i+1
					rs.movenext
					loop
					set rs=nothing
				end if
					%>
</table>
<%	hxshow.showPageInfo "CC_D","id","",PageNo,MaxPageSize,"action=D"%>
<%End Sub%>
<%Sub WeekCount
dim vweek(7,2)
dim maxnum1,maxnum2,i,barwidth1,barwidth2 
dim rs,sql
for i=1 to 7
if IsSqlDataBase = 1 then
sql="select top 1 Visitor,PageView from CC_D where DATEPART(weekday,CDate)="&i &" order by id desc"
else
sql="select top 1 Visitor,PageView from CC_D where weekday(CDate)="&i &" order by id desc"
end if
set rs=hx.execute(sql)
if rs.eof then
	vweek(i,0)=0
	vweek(i,1)=0
else
	vweek(i,0)=rs(0)
	vweek(i,1)=rs(1)
	if rs(0)>maxnum1 then maxnum1=rs(0)
	if rs(1)>maxnum2 then maxnum2=rs(1)
end if
next
if maxnum1=0 then maxnum1=1
if maxnum2=0 then maxnum2=1

Call MainTitle(Lang.item("m_13"))
%>
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="60" align="center" bgcolor="#CCCCFF"><%=Lang.item("g_040")%></td>
    <th width="220" align="center" bgcolor="#CCCCFF"><%=Lang.item("g_038")%></td>
    <th width="220" align="center" bgcolor="#CCCCFF"><%=Lang.item("g_039")%></td>
  </tr>
<%
for i=1 to 7
response.write "<tr class=tablebody1>"
response.write "<td align=center>"&findweek(i)&"</td>"
barwidth1=FormatNum(vweek(i,0)/maxnum1*150,2)
barwidth2=FormatNum(vweek(i,1)/maxnum2*150,2)
response.write "<td>"
response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth1&"> "   
response.write vweek(i,0)
response.write "</td>"
response.write "<td>"
response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth2&"> "   
response.write vweek(i,1)
response.write "</td>"
response.write "</tr>"
next		
%>
</table>
<%
for i=1 to 7
if IsSqlDataBase = 1 then
sql="select sum(Visitor),sum(PageView) from CC_D where DATEPART(weekday,CDate)="&i
else
sql="select sum(Visitor),sum(PageView) from CC_D where weekday(CDate)="&i
end if
set rs=hx.execute(sql)
if not isnumeric(rs(0)) then
	vweek(i,0)=0
else
	vweek(i,0)=rs(0)
end if
if not isnumeric(rs(1)) then
	vweek(i,1)=0
else
	vweek(i,1)=rs(1)
end if
if vweek(i,0)>maxnum1 then maxnum1=vweek(i,0)
if vweek(i,1)>maxnum2 then maxnum2=vweek(i,1)
next
if maxnum1=0 then maxnum1=1
if maxnum2=0 then maxnum2=1
%>
<br>
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="60" align="center" bgcolor="#CCCCFF"><%=Lang.item("g_041")%></td>
    <th width="220" align="center" bgcolor="#CCCCFF"><%=Lang.item("g_038")%></td>
    <th width="220" align="center" bgcolor="#CCCCFF"><%=Lang.item("g_039")%></td>
  </tr>
<%
for i=1 to 7
response.write "<tr class=tablebody1>"
response.write "<td align=center>"&findweek(i)&"</td>"
barwidth1=FormatNum(vweek(i,0)/maxnum1*150,2)
barwidth2=FormatNum(vweek(i,1)/maxnum2*150,2)
response.write "<td>"
response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth1&"> "   
response.write vweek(i,0)
response.write "</td>"
response.write "<td>"
response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth2&"> "   
response.write vweek(i,1)
response.write "</td>"
response.write "</tr>"
next		
%>
</table>

<%
End Sub%>
<%Sub MonthCount
Call MainTitle(Lang.item("m_14"))
%>
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="60" align="center"><%=Lang.item("g_042")%></th>
    <th width="220" align="center"><%=Lang.item("g_038")%></th>
    <th width="220" align="center"><%=Lang.item("g_039")%></th>
  </tr>
  <%
				dim maxnum1,maxnum2,i,barwidth1,barwidth2
				dim rs,rs2,sql
				set rs=server.createobject("adodb.recordset")
				sql="select top "&MaxRecord&" CMonth,Visitor,PageView from CC_M order by CMonth desc"
				rs.open sql,conn,1,1
				if rs.eof then
					response.write "<tr class=tablebody1><td colspan=3>"&Lang.item("g_045")&"</td></tr>"
				else
					rs.PageSize = MaxPageSize
					rs.absolutepage=PageNo
					i=0
					maxnum1=hx.execute("select max(Visitor) from CC_M")(0)
					maxnum2=hx.execute("select max(PageView) from CC_M")(0)
					do while not rs.eof and i<MaxPageSize
					response.write "<tr class=tablebody1><td align=center>"
					response.write rs(0)
					barwidth1=FormatNum(rs(1)/maxnum1*150,2)
					barwidth2=FormatNum(rs(2)/maxnum2*150,2)