show.asp

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

					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></tr>"
					i=i+1
					rs.movenext
					loop
					set rs=nothing
				end if
					%>
</table>
<%	hxshow.showPageInfo "CC_M","CMonth","",PageNo,MaxPageSize,"action=M"	%>
<%End Sub%>
<%Sub YearCount
Call MainTitle(Lang.item("m_15"))
%>
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="60" align="center"><%=Lang.item("g_043")%></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&" CYear,Visitor,PageView from CC_Y order by CYear 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_Y")(0)
					maxnum2=hx.execute("select max(PageView) from CC_Y")(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)
					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></tr>"
					i=i+1
					rs.movenext
					loop
					set rs=nothing
				end if
					%>
</table>
<%	hxshow.showPageInfo "CC_Y","CYear","",PageNo,MaxPageSize,"action=Y"	%>
<%End Sub%>
<%Sub WhereCount
Call MainTitle(Lang.item("m_33"))
Call ShowQuery%> 
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="280" align="center"><%=Lang.item("g_068")%></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=Where"
	else
		condition="where [Where] like '%"&query&"%'"
		linkstr="query="&query&"&action=Where"
	end if
	set rs=server.createobject("adodb.recordset")
	sql="select top "&MaxRecord&" [Where],CW from CC_W "&condition&" order by CW 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>"
					response.write rs(0)
					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 "CC_W","id",condition,PageNo,MaxPageSize,linkstr%>
<%End Sub%>
<%Sub IpCount
Call MainTitle(Lang.item("m_61"))
Call ShowQuery%> 
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="140" align="center"><%=Lang.item("g_030")%></th>
    <th width="140" 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=I"
	else
		condition="where Ip like '%"&query&"%'"
		linkstr="query="&query&"&action=I"
	end if
	set rs=server.createobject("adodb.recordset")
	sql="select top "&MaxRecord&" Ip,CIP,vtime from CC_I "&condition&" order by CIP 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
					if i=0 then maxnum=rs(1)
					do while not rs.eof and i<MaxPageSize
					response.write "<tr class=tablebody1><td>"
					response.write "&nbsp;<a href=http://union.itlearner.com/ip/ipinfo.asp?ip="&rs(0)&" target=_blank>"
					response.write rs(0)
					response.write "</a>"
					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_I","id",condition,PageNo,MaxPageSize,linkstr%>
<%End Sub%>
<%Sub SIpCount(num)
Select Case num
case 1
	Call MainTitle(Lang.item("m_64"))
case 2
	Call MainTitle(Lang.item("m_63"))
case 3
	Call MainTitle(Lang.item("m_62"))	
End Select
Call ShowQuery%> 
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="280" align="center"><%=Lang.item("g_030")%></th>
    <th width="220" align="center"><%=Lang.item("g_038")%></th>
  </tr>
  <%
	dim maxnum,i,barwidth 
	dim rs,sql
	dim condition
	dim linkstr
	dim datatable '视图名称
	dim outstr
	datatable="v_SI"&num
	if query="" then
		condition=""
		linkstr="action="&action
	else
		condition="where Ip like '%"&query&"%'"
		linkstr="query="&query&"&action="&action
	end if
	set rs=server.createobject("adodb.recordset")
	sql="select top "&MaxRecord&" Ip,SCIP from "&datatable&" "&condition&" order by SCIP desc"
	rs.open sql,conn,1,1
				if rs.eof then
					outstr = outstr & "<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
					outstr = outstr & "<tr class=tablebody1><td>&nbsp;"
					select case num
					case 1
						outstr = outstr & rs(0)&".*.*.*"
					case 2
						outstr = outstr & rs(0)&".*.*"
					case 3												
						outstr = outstr & rs(0)&".*"
					end select					
					barwidth=FormatNum(rs(1)/maxnum*150,2)
					outstr = outstr & "</td><td>"					
 					outstr = outstr & "<img height=12 align=absmiddle class=PicBar width="&barwidth&"> "   
  					outstr = outstr & rs(1)
					outstr = outstr & "</td></tr>"
					i=i+1
					rs.movenext
					loop
					set rs=nothing
				end if
				response.write outstr
					%>
</table>
<%	hxshow.showPageInfo datatable,"0",condition,PageNo,MaxPageSize,linkstr%>
<%End Sub%>
<%Sub Page_PV(num)
dim orderby
if num=1 then
Call MainTitle(Lang.item("m_22"))
Call ShowQuery
Call Showinfo(Lang.item("g_065"))
orderby="Visitor+PageView"
else
Call MainTitle(Lang.item("m_03"))
Call ShowQuery
orderby="vtime"
end if
%> 
<table width="768"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="420" align="center"><%=Lang.item("g_031")%></th>
    <th width="128" align="center"><%=Lang.item("g_066")%></th>
    <th width="220" align="center"><%=Lang.item("g_039")%></th>
  <%
				dim maxnum,i,barwidth
				dim rs,sql
				dim condition
				dim linkstr
				if query="" then
					condition=""
					linkstr="action=PV"&num
				else
					condition="where Page like '%"&query&"%'"
					linkstr="query="&query&"&action=PV"&num
				end if
				set rs=server.createobject("adodb.recordset")
				sql="select top "&MaxRecord&" Page,Visitor+PageView,vtime from CC_P "&condition&" order by "&orderby&" 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
					do while not rs.eof and i<MaxPageSize
					if i=0 then maxnum=rs(1)
					response.write "<tr class=tablebody1><td>"
					if rs(0)="0" then
						response.write Lang.item("g_053")
					else
						response.write "<a href='"&rs(0)&"' title='"&rs(0)&"' target=_blank>"&hx.OutStr(rs(0),65)&"</a>"
					end if
						
					response.write "</td><td>"
					response.write "&nbsp;"&FormatTime(rs(2))					
					response.write "</td><td>"
				if num=1 then
					barwidth=FormatNum(rs(1)/maxnum*150,2)
 					response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth&"> "   
				end if
  					response.write rs(1)
					response.write "</td></tr>"
					i=i+1
					rs.movenext
					loop
				end if
				set rs=nothing
					%>
</table>
<%	hxshow.showPageInfo "CC_P","id",condition,PageNo,MaxPageSize,linkstr%>
              
<%End Sub%>
<%Sub Page_VT
Call MainTitle(Lang.item("m_21"))
Call ShowQuery
Call Showinfo(Lang.item("g_065")) 
%> 
<table width="768"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="420" align="center"><%=Lang.item("g_031")%></th>
    <th width="128" align="center"><%=Lang.item("g_066")%></th>
    <th width="220" align="center"><%=Lang.item("g_038")%></th>
  <%
				dim maxnum,i,barwidth
				dim rs,sql
				dim condition
				dim linkstr
				if query="" then
					condition="where Visitor>0"
					linkstr="action=VT"
				else
					condition="where Visitor>0 and Page like '%"&query&"%'"
					linkstr="query="&query&"&action=VT"
				end if
				set rs=server.createobject("adodb.recordset")
				sql="select top "&MaxRecord&" Page,Visitor,vtime from CC_P "&condition&" order by Visitor 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
					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_053")
					else
						response.write "<a href='"&rs(0)&"' title='"&rs(0)&"' target=_blank>"&hx.OutStr(rs(0),65)&"</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
				end if
				set rs=nothing
					%>
</table>
<%	hxshow.showPageInfo "CC_P","id",condition,PageNo,MaxPageSize,linkstr%>
              
<%End Sub%>

<%Sub Keyword
Call MainTitle(Lang.item("m_500"))
Call ShowQuery
Call Showinfo(Lang.item("m_511"))
%>
<table width="768"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="210" align="center"><%=Lang.item("g_070")%></th>
    <th width="210" align="center"><%=Lang.item("g_073")%></th> 
    <th width="128" align="center"><%=Lang.item("g_066")%></th>
	<th width="220" align="center"><%=Lang.item("g_038")%></th> </tr>
  <%
	dim q
	dim maxnum,i,barwidth 
	dim rs,sql
	dim condition,linkstr
	if query="" then
		condition="where Q is not null"
		linkstr="action=Q"
	else
		condition="where (Q like '%"&encodeURIComponent(query)&"%' or Q like '%"&AnsiCode(query)&"%' or RefSite like '%"&query&"%') and Q is not null"
		linkstr="query="&query&"&action=Q"
	end if
	sql="select top "&MaxRecord&" Q,CR,RefSite,Referer,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=4>"&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>"
					q=ReadText(rs(0))
					response.write "<a href='"&rs(3)&"' target='_blank'>"
					response.write q					
					response.write "</a>"
					barwidth=FormatNum(rs(1)/maxnum*150,2)
					response.write "</td><td>"
					response.write "<a href="&rs(2)&">"&rs(2)&"</a>"					
					response.write "</td><td>"
					response.write "&nbsp;"&FormatTime(rs(4))					
					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
			end if
	rs.close:set rs=nothing
					%>
</table>
<%	hxshow.showPageInfo "CC_R","id",condition,PageNo,MaxPageSize,linkstr %>
<%End Sub%>
<%Sub SQ1
Call MainTitle(Lang.item("m_500"))
Call ShowQuery
Call Showinfo(Lang.item("m_521"))
%>
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="280" align="center"><%=Lang.item("g_070")%></td>              
    <th width="220" align="center"><%=Lang.item("g_038")%></td>
  </tr>
                <%
	dim q
	dim maxnum,i,barwidth 
	dim rs,sql
	dim condition,linkstr
	if query="" then
		condition=""
		linkstr="action=SQ1"