⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 aa_count.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Count_IEAs=Conn.Execute("Select Count_IEA from Tx_Count order by Count_IEA desc")(0)
Count_OsAs=Conn.Execute("Select Count_OsA from Tx_Count order by Count_OsA desc")(0)
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select ID,Count_IEA,Count_IEA,Count_OsA,Count_OsA From Tx_Count Where Id<=7"
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Count_IEA=Rs("Count_IEA")+Count_IEA
Count_OsA=Rs("Count_OsA")+Count_OsA
Count_IEAf=Count_IEAf & "," & Rs("Count_IEA")
Count_OsAf=Count_OsAf & "," & Rs("Count_OsA")
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
Count_IEAf=split(mid(Count_IEAf,2,len(Count_IEAf)),",")
Count_OsAf=split(mid(Count_OsAf,2,len(Count_OsAf)),",")
strIfa = "<TABLE WIDTH=100%  border=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=23 ALIGN=center class=Table6>浏览器及访问量</TD></TR><TR><TD HEIGHT=220 class=Table8><TABLE WIDTH=60%  border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1 class=Table6><TR><TD HEIGHT=155 valign=bottom class=Table9><TABLE WIDTH=100%  border=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=140 valign=bottom><TABLE WIDTH=100% HEIGHT=100%  border=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
          For i=0 To 6
              IF Count_IEA=0 THEN
              Answer=0
              Else
              Answer=int((Count_IEAf(i)/Count_IEAs)*140)
              End IF
              x=Count_IEA
              IF x=0 THEN x=1
              lsbf=int(Count_IEAf(i)*1000/x)/10
              IF lsbf<1 THEN lsbf="0" & lsbf
              lsbf=lsbf&"%"
              strIfa = strIfa & "<TD WIDTH=3% valign=bottom><TABLE WIDTH=100%  border=0 CELLPADDING=0 CELLSPACING=0><TR><TD HEIGHT=" & 140-Answer & " bgcolor=#E7EDF5></TD></TR><TR><TD HEIGHT=" & Answer & " title=访问" & int(Count_IEAf(i)) & "次，" & lsbf & " bgcolor=006699></TD></TR></TABLE></TD>"
		  Next
		  strIfa = strIfa & "</TR></TABLE></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR></TABLE></TD></TR></TABLE><TABLE WIDTH=60%  border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
		  IEx="IE 4.x|IE 5.x|IE 6.x|NetCaptor|Netscape|Opera|Other"
		  IEx=split(IEx,"|")
		  For i=0 to ubound(IEx)
		      strIfa = strIfa & "<TD WIDTH=3% HEIGHT=25>" & IEx(i) & "</TD>"
		  Next
		  strIfa = strIfa & "</TR></TABLE></TD></TR><TR><TD HEIGHT=23 ALIGN=center class=Table6> 操作系统及访问量 </TD></TR><TR><TD HEIGHT=220 class=Table8><TABLE WIDTH=60%  border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1 class=Table6><TR><TD HEIGHT=155 valign=bottom class=Table9><TABLE WIDTH=100%  border=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=140 valign=bottom><TABLE WIDTH=100% HEIGHT=100%  border=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
		  For i=0 To 6
		      IF Count_OsA=0 THEN
		          Answer=0
		      Else
		          Answer=int((Count_OsAf(i)/Count_OsAs)*140)
		      End IF
		      x=Count_OsA
		      IF x=0 THEN x=1
		      lsbf=int(Count_OsAf(i)*1000/x)/10
		      IF lsbf<1 THEN lsbf="0" & lsbf
		      lsbf=lsbf&"%"
		      strIfa = strIfa & "<TD WIDTH=3% valign=bottom><TABLE WIDTH=100%  border=0 CELLPADDING=0 CELLSPACING=0><TR><TD HEIGHT=" & 140-Answer & " bgcolor=#E7EDF5></TD></TR><TR><TD HEIGHT=" & Answer & " title=访问" & int(Count_OsAf(i)) & "次，" & lsbf & " bgcolor=#B50000></TD></TR></TABLE></TD>"
		  Next
		      strIfa = strIfa & "</TR></TABLE></TD></TR><TR><TD HEIGHT=1 bgcolor=#FFFFFF></TD></TR><TR><TD HEIGHT=1 bgcolor=#b50000></TD></TR></TABLE></TD></TR></TABLE><TABLE WIDTH=60%  border=0 ALIGN=center CELLPADDING=0 CELLSPACING=1><TR ALIGN=center>"
		      Osx="Other|Unix 类|Windows 2000|Windows 2003|Windows 9x|Windows NT|Windows XP"
		      Osx=split(Osx,"|")
			  For i=0 to ubound(Osx)
		          strIfa = strIfa & "<TD WIDTH=3% HEIGHT=25>" & Osx(i) & "</TD>"
		      Next
		      strIfa = strIfa & "</TR></TABLE></TD></TR></TABLE>"
Call Page_aTable(0,0)
Case "Form"
Page_BootmName="来路统计"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Form order by Form_Count desc"
Rs_Manage.open Sql,Conn,1,1
IF Rs_Manage.recordCount<>0 THEN FormCount=Rs_Manage("Form_Count")
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><tr><td width=60% height=23 align=center class=Table6> 来路</td><td align=center class=Table6>访问量</td></tr>"
Rs_Manage.PageSize = 25
totalrec=Rs_Manage.RecordCount 
iPageSize=Rs_Manage.PageSize
currentPage=Request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
page_count=page_count+1
	tdWih=(Rs_Manage("Form_Count")/FormCount)*150
	IF Rs_Manage("Form_Name")="直接输入网址进入的" THEN
	    FormName=Web_Const(1)
	Else
	    FormName=Rs_Manage("Form_Name")
	End IF
strIfa = strIfa & "<tr class=Table8 onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#799ae1'><td height=25><a title=" & FormName & " href=" & FormName & " target=_blank>" & gotTopic(Rs_Manage("Form_Name"),68,0) & "</a></td><td><table width=240  border=0 cellpadding=0 cellspacing=0><tr><td width=180><table  border=0 cellpadding=0 cellspacing=0><tr><td width=1 height=10 bgcolor=b50000></td><td width=1 height=10 bgcolor=FFFFFF></td><td width=" & tdWih & " title=一共访问" & Rs_Manage("Form_Count") & "次 height=10 bgcolor=b50000></td><td width=" & 150-tdWih & " bgcolor=#FFFFFF></td><td width=1 height=10 bgcolor=FFFFFF></td><td width=1 height=10 bgcolor=b50000></td></tr></table></td><td align=center>" & Rs_Manage("Form_Count") & "</td></tr></table></td></tr>"
Rs_Manage.MoveNext
Wend 
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR>"&_
                  "<TD HEIGHT=25 colspan=7 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
         "</TABLE>"
Call Page_aTable(0,1)
Case "To"
Page_BootmName="被访页面"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_To order by To_Count desc"
Rs_Manage.open Sql,Conn,1,1
IF Rs_Manage.recordCount<>0 THEN ToCount=Rs_Manage("To_Count")
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><tr><td width=60% height=23 align=center class=Table6> 被访页面</td><td align=center class=Table6>访问量</td></tr>"
Rs_Manage.PageSize = 25
totalrec=Rs_Manage.RecordCount 
iPageSize=Rs_Manage.PageSize
currentPage=Request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
page_count=page_count+1
tdWih=(Rs_Manage("To_Count")/ToCount)*150
strIfa = strIfa & "<tr class=Table8 onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#799ae1'><td height=25><a title=" & Rs_Manage("To_Name") & " href=" & Rs_Manage("To_Name") & " target=_blank>" & gotTopic(Rs_Manage("To_Name"),68,0) & "</a></td><td><table width=240  border=0 cellpadding=0 cellspacing=0><tr><td width=180><table  border=0 cellpadding=0 cellspacing=0><tr><td width=1 height=10 bgcolor=b50000></td><td width=1 height=10 bgcolor=FFFFFF></td><td width=" & tdWih & " title=一共访问" & Rs_Manage("To_Count") & "次 height=10 bgcolor=b50000></td><td width=" & 150-tdWih & " bgcolor=#FFFFFF></td><td width=1 height=10 bgcolor=FFFFFF></td><td width=1 height=10 bgcolor=b50000></td></tr></table></td><td align=center>" & Rs_Manage("To_Count") & "</td></tr></table></td></tr>"
Rs_Manage.MoveNext
Wend 
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR>"&_
                  "<TD HEIGHT=25 colspan=7 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
         "</TABLE>"
Call Page_aTable(0,1)
Case "Ip"
Page_BootmName="Ip统计"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Ip order by Ip_Count desc"
Rs_Manage.open Sql,Conn,1,1
IF Rs_Manage.recordCount<>0 THEN IpCount=Rs_Manage("Ip_Count")
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><tr><td width=60% height=23 align=center class=Table6> 来路</td><td align=center class=Table6>访问量</td></tr>"
Rs_Manage.PageSize = 25
totalrec=Rs_Manage.RecordCount 
iPageSize=Rs_Manage.PageSize
currentPage=Request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
page_count=page_count+1
tdWih=(Rs_Manage("Ip_Count")/IpCount)*150
strIfa = strIfa & "<tr class=Table8 onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#799ae1'><td height=25><a title=" & Rs_Manage("Ip_Name") & " href=" & Rs_Manage("Ip_Name") & " target=_blank>" & Rs_Manage("Ip_Name") & "</a></td><td><table width=240  border=0 cellpadding=0 cellspacing=0><tr><td width=180><table  border=0 cellpadding=0 cellspacing=0><tr><td width=1 height=10 bgcolor=b50000></td><td width=1 height=10 bgcolor=FFFFFF></td><td width=" & tdWih & " title=一共访问" & Rs_Manage("Ip_Count") & "次 height=10 bgcolor=b50000></td><td width=" & 150-tdWih & " bgcolor=#FFFFFF></td><td width=1 height=10 bgcolor=FFFFFF></td><td width=1 height=10 bgcolor=b50000></td></tr></table></td><td align=center>" & Rs_Manage("Ip_Count") & "</td></tr></table></td></tr>"
Rs_Manage.MoveNext
Wend 
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR>"&_
                  "<TD HEIGHT=25 colspan=7 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
         "</TABLE>"
Call Page_aTable(0,1)
Case "Ress"
Page_BootmName="访问者地区"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Ress order by Ress_Count desc"
Rs_Manage.open Sql,Conn,1,1
IF Rs_Manage.recordCount<>0 THEN RessCount=Rs_Manage("Ress_Count")
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><tr><td width=60% height=23 align=center class=Table6> 来路</td><td align=center class=Table6>访问量</td></tr>"
Rs_Manage.PageSize = 25
totalrec=Rs_Manage.RecordCount 
iPageSize=Rs_Manage.PageSize
currentPage=Request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
page_count=page_count+1
tdWih=(Rs_Manage("Ress_Count")/RessCount)*150
strIfa = strIfa & "<tr class=Table8 onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#799ae1'><td height=25><a title=" & Rs_Manage("Ress_Name") & " href=" & Rs_Manage("Ress_Name") & " target=_blank>" & Rs_Manage("Ress_Name") & "</a></td><td><table width=240  border=0 cellpadding=0 cellspacing=0><tr><td width=180><table  border=0 cellpadding=0 cellspacing=0><tr><td width=1 height=10 bgcolor=b50000></td><td width=1 height=10 bgcolor=FFFFFF></td><td width=" & tdWih & " title=一共访问" & Rs_Manage("Ress_Count") & "次 height=10 bgcolor=b50000></td><td width=" & 150-tdWih & " bgcolor=#FFFFFF></td><td width=1 height=10 bgcolor=FFFFFF></td><td width=1 height=10 bgcolor=b50000></td></tr></table></td><td align=center>" & Rs_Manage("Ress_Count") & "</td></tr></table></td></tr>"
Rs_Manage.MoveNext
Wend 
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR>"&_
                  "<TD HEIGHT=25 colspan=7 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
         "</TABLE>"
Call Page_aTable(0,1)
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -