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

📄 admin_counter.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_CounterColor")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "ColorName")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "Num DESC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsCounter = .Execute()
End With
rsCounter.Close()
RowCount = CounterCmd(0)
TotalRowCount = CounterCmd(9)
PageCounts = CounterCmd(10)

CurrentPath = CurrentPath &">> 客户端屏幕色彩分析"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="30%" class="top_25"><strong>屏幕色彩</strong></td>
    <td width="11%" class="top_25"><strong>访问次数</strong></td>
    <td width="19%" class="top_25"><strong>百分比</strong></td>
    <td width="40%" class="top_25"><strong>图示</strong></td>
  </tr>
  <%
  If RowCount = 0 Then
    Response.Write "<tr><td colspan=4 class=td_50 align=center>没有屏幕色彩数据</td></tr>"
  Else
    rsCounter.Open()
    For i = 1 To RowCount
	   Percent = FormatNumber(rsCounter("Num")/TotalNum*100, 2, -1) &"%"
  %>
  <tr>
    <td class="item_25"><%=rsCounter("ColorName")%></td>
    <td class="item_25"><%=rsCounter("Num")%></td>
    <td class="item_25"><%=Percent%></td>
    <td class="item_25"><div style="width:<%=Percent%>; background:blue; font-size:xx-small; color:blue; height:8px;"><img src="Images/blank.gif"></div></td>
  </tr>
  <%
       If i<RowCount Then rsCounter.MoveNext
	Next
	rsCounter.Close()
  End If
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td align="right"><%Call EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "记录", "条")%></td>
  </tr>
</table>
<%
Set rsCounter = Nothing
Set CounterCmd = Nothing
EL_Common.ShowScriptError()

End Sub

Sub Counter_7()
On Error Resume Next
Dim CounterCmd, rsCounter, i, StrFields, StrCondition
Dim PageCounts, RowCount, TotalRowCount, Percent, TotalNum

StrFields = "*"
StrCondition = "1=1"

TotalNum = Conn.Execute("SELECT SUM(Num) FROM EL_CounterScreen")(0)

Call EL_Common.InitCommand(CounterCmd, "EL_SP_SplitPage")
With CounterCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_CounterScreen")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "ScreenName")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "Num DESC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsCounter = .Execute()
End With
rsCounter.Close()
RowCount = CounterCmd(0)
TotalRowCount = CounterCmd(9)
PageCounts = CounterCmd(10)

CurrentPath = CurrentPath &">> 客户端屏幕大小分析"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="30%" class="top_25"><strong>屏幕大小</strong></td>
    <td width="11%" class="top_25"><strong>访问次数</strong></td>
    <td width="19%" class="top_25"><strong>百分比</strong></td>
    <td width="40%" class="top_25"><strong>图示</strong></td>
  </tr>
  <%
  If RowCount = 0 Then
    Response.Write "<tr><td colspan=4 class=td_50 align=center>没有屏幕大小数据</td></tr>"
  Else
    rsCounter.Open()
    For i = 1 To RowCount
	   Percent = FormatNumber(rsCounter("Num")/TotalNum*100, 2, -1) &"%"
  %>
  <tr>
    <td class="item_25"><%=rsCounter("ScreenName")%></td>
    <td class="item_25"><%=rsCounter("Num")%></td>
    <td class="item_25"><%=Percent%></td>
    <td class="item_25"><div style="width:<%=Percent%>; background:blue; font-size:xx-small; color:blue; height:8px;"><img src="Images/blank.gif"></div></td>
  </tr>
  <%
       If i<RowCount Then rsCounter.MoveNext
	Next
	rsCounter.Close()
  End If
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td align="right"><%Call EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "记录", "条")%></td>
  </tr>
</table>
<%
Set rsCounter = Nothing
Set CounterCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub Counter_6()
On Error Resume Next
Dim CounterCmd, rsCounter, i, StrFields, StrCondition
Dim PageCounts, RowCount, TotalRowCount, Percent, TotalNum

StrFields = "*"
StrCondition = "1=1"

TotalNum = Conn.Execute("SELECT SUM(Num) FROM EL_CounterSystem")(0)

Call EL_Common.InitCommand(CounterCmd, "EL_SP_SplitPage")
With CounterCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_CounterSystem")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "SystemName")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "Num DESC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsCounter = .Execute()
End With
rsCounter.Close()
RowCount = CounterCmd(0)
TotalRowCount = CounterCmd(9)
PageCounts = CounterCmd(10)

CurrentPath = CurrentPath &">> 客户端操作系统分析"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="30%" class="top_25"><strong>操作系统</strong></td>
    <td width="11%" class="top_25"><strong>访问次数</strong></td>
    <td width="19%" class="top_25"><strong>百分比</strong></td>
    <td width="40%" class="top_25"><strong>图示</strong></td>
  </tr>
  <%
  If RowCount = 0 Then
    Response.Write "<tr><td colspan=4 class=td_50 align=center>没有操作系统数据</td></tr>"
  Else
    rsCounter.Open()
    For i = 1 To RowCount
	   Percent = FormatNumber(rsCounter("Num")/TotalNum*100, 2, -1) &"%"
  %>
  <tr>
    <td class="item_25"><%=rsCounter("SystemName")%></td>
    <td class="item_25"><%=rsCounter("Num")%></td>
    <td class="item_25"><%=Percent%></td>
    <td class="item_25"><div style="width:<%=Percent%>; background:blue; font-size:xx-small; color:blue; height:8px;"><img src="Images/blank.gif"></div></td>
  </tr>
  <%
       If i<RowCount Then rsCounter.MoveNext
	Next
	rsCounter.Close()
  End If
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td align="right"><%Call EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "记录", "条")%></td>
  </tr>
</table>
<%
Set rsCounter = Nothing
Set CounterCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub Counter_5()
On Error Resume Next
Dim CounterCmd, rsCounter, i, StrFields, StrCondition
Dim PageCounts, RowCount, TotalRowCount, Percent, TotalNum

StrFields = "*"
StrCondition = "1=1"

TotalNum = Conn.Execute("SELECT SUM(Num) FROM EL_CounterMozilla")(0)

Call EL_Common.InitCommand(CounterCmd, "EL_SP_SplitPage")
With CounterCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_CounterMozilla")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "MozillaName")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "Num DESC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsCounter = .Execute()
End With
rsCounter.Close()
RowCount = CounterCmd(0)
TotalRowCount = CounterCmd(9)
PageCounts = CounterCmd(10)

CurrentPath = CurrentPath &">> 客户端字符串分析"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="35%" class="top_25"><strong>USER_AGENT字符串</strong></td>
    <td width="13%" class="top_25"><strong>访问次数</strong></td>
    <td width="12%" class="top_25"><strong>百分比</strong></td>
    <td width="40%" class="top_25"><strong>图示</strong></td>
  </tr>
  <%
  If RowCount = 0 Then
    Response.Write "<tr><td colspan=4 class=td_50 align=center>没有字符串数据</td></tr>"
  Else
    rsCounter.Open()
    For i = 1 To RowCount
	   Percent = FormatNumber(rsCounter("Num")/TotalNum*100, 2, -1) &"%"
  %>
  <tr>
    <td class="item_25" title="<%=rsCounter("MozillaName")%>"><%=Left(rsCounter("MozillaName"), 45)%></td>
    <td class="item_25"><%=rsCounter("Num")%></td>
    <td class="item_25"><%=Percent%></td>
    <td class="item_25"><div style="width:<%=Percent%>; background:blue; font-size:xx-small; color:blue; height:8px;"><img src="Images/blank.gif"></div></td>
  </tr>
  <%
       If i<RowCount Then rsCounter.MoveNext
	Next
	rsCounter.Close()
  End If
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td align="right"><%Call EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "记录", "条")%></td>
  </tr>
</table>
<%
Set rsCounter = Nothing
Set CounterCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub Counter_4()
On Error Resume Next
Dim CounterCmd, rsCounter, i, StrFields, StrCondition
Dim PageCounts, RowCount, TotalRowCount, Percent, TotalNum

StrFields = "*"
StrCondition = "1=1"

TotalNum = Conn.Execute("SELECT SUM(Num) FROM EL_CounterBrowser")(0)

Call EL_Common.InitCommand(CounterCmd, "EL_SP_SplitPage")
With CounterCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_CounterBrowser")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "BrowserName")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "Num DESC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsCounter = .Execute()
End With
rsCounter.Close()
RowCount = CounterCmd(0)
TotalRowCount = CounterCmd(9)
PageCounts = CounterCmd(10)

CurrentPath = CurrentPath &">> 客户端浏览器分析"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="30%" class="top_25"><strong>浏览器</strong></td>
    <td width="11%" class="top_25"><strong>访问次数</strong></td>
    <td width="19%" class="top_25"><strong>百分比</strong></td>
    <td width="40%" class="top_25"><strong>图示</strong></td>
  </tr>
  <%
  If RowCount = 0 Then
    Response.Write "<tr><td colspan=4 class=td_50 align=center>没有浏览器数据</td></tr>"
  Else
    rsCounter.Open()
    For i = 1 To RowCount
12345

⌨️ 快捷键说明

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