模板
教程
环境
性能
功能
管理
开放源码 - 访客统计查询（二）
发表于：2007-06-30来源：作者：点击数：
标签：
!--#Include File=Statistics_Connection.asp-- html head meta http-equiv=Content-Type content=text/html; charset=gb2312 link rel=stylesheet type=text/css href=Statistics_CSS.css titleStatistics View/title SCRIPT LANGUAGE=JScript !-- // ------
<!--#Include File="Statistics_Connection.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="Statistics_CSS.css">
<title>Statistics View</title>
<SCRIPT LANGUAGE="JScript">
<!--
// ---------- 函数 - 处理表格交互变化
function ChangeColor(argPtr, argColor)
{
if(!argColor)
argPtr.style.backgroundColor = "#dddddd";
else
argPtr.style.backgroundColor = "#eeeeee";
}
// ---------- 函数 - 处理多选框 ----------
var ie = document.all ? 1 : 0;
//var ns4 = document.layers ? 1 : 0;
function HighLight(cb)
{
if(ie)
{ while(cb.tagName != "TR")
{ cb = cb.parentElement;
}
}
else
{ while (cb.tagName != "TR")
{ cb = cb.parentNode;
}
}
cb.className = ‘’ColorHighLight‘’;
}
function LowLight(cb)
{
if(ie)
{ while (cb.tagName != "TR")
{ cb = cb.parentElement;
}
}
else
{ while (cb.tagName != "TR")
{ cb = cb.parentNode;
}
}
cb.className = ‘’ColorLowLight‘’;
}
function Check(cb)
{
if (cb.checked)
{ HighLight(cb);
}
else
{ LowLight(cb);
}
}
function CheckAll()
{
var fmobj = document.frmOperation;
for(var i = 0; i < fmobj.elements.length; i ++)
{ var e = fmobj.elements[i];
if((e.name != ‘’Check_All‘’) && (e.type == ‘’checkbox‘’) && (!e.disabled))
{ e.checked = fmobj.Check_All.checked;
if(e.checked)
{ HighLight(e);
}
else
{ LowLight(e);
}
}
}
}
function CheckCheckAll()
{
var fmobj = document.frmOperation;
var TotalBoxes = 0;
var TotalOn = 0;
for(var i = 0; i < fmobj.elements.length; i ++)
{ var e = fmobj.elements[i];
if((e.name != ‘’Check_All‘’) && (e.type == ‘’checkbox‘’))
{ TotalBoxes ++;
if(e.checked)
{ TotalOn ++;
}
}
}
if(TotalBoxes == TotalOn)
{ fmobj.Check_All.checked = true;
}
else
{ fmobj.Check_All.checked = false;
}
}
function Check_Read()
{
var fmobj = document.frmOperation;
for(var i = 0; i < fmobj.elements.length; i ++)
{ var e = fmobj.elements[i];
if((e.type == ‘’hidden‘’) && (e.value == 1) && (! isNaN(e.name)))
{ eval("fmobj.Check_ID_" + e.name + ".checked = true;");
HighLight(e);
}
}
}
function UnCheck_All()
{
var fmobj = document.frmOperation;
for(var i = 0; i < fmobj.elements.length; i ++)
{ var e = fmobj.elements[i];
if(e.type == ‘’checkbox‘’)
{ e.checked = false;
LowLight(e);
}
}
}
// ---------- 函数 - 处理Submit() ----------
function CheckSubmit(argAction)
{
var frmObject = document.frmOperation;
var flgChecked = false;
var flgSubmit = false;
for(var i = 0; i < frmObject.elements.length; i ++)
{ var e = frmObject.elements[i];
if((e.name != ‘’CheckAll‘’) && (e.type == ‘’checkbox‘’) && e.checked)
{ flgChecked = true;
break;
}
}
if(! flgChecked)
{ alert("Please select any record first!");
return;
}
else
{ if(confirm(argAction + " the selected record(s)?"))
{ frmObject.HiddenAction.value = argAction;
frmObject.submit();
}
else
return;
}
}
// ---------- 函数 - 处理<TR> 双击响应 ----------
function CheckDblClick(argObject)
{
var olastChild = argObject.lastChild;
if(!olastChild.children.item(0).checked)
{ olastChild.children.item(0).checked = true;
HighLight(argObject);
}
else
{ olastChild.children.item(0).checked = false;
LowLight(argObject);
}
CheckCheckAll();
return;
}
//-->
</SCRIPT>
</head>
<body>
<%
‘’ ---------- 函数 - 处理客户端信息（ Request.ServerVariables("SCRIPT_NAME") ）分解 ----------
Function UserSysInfo(info, getInfo)
If InStr(info, ";") > 0 Then
Dim UserSys
UserSys = Split(info, ";", -1, vbTextCompare)
If Ubound(UserSys) >= 2 Then
UserSys(1) = Replace(UserSys(1), "MSIE", "Internet Explorer")
UserSys(2) = Replace(UserSys(2), ")", "")
UserSys(2) = Replace(UserSys(2), "NT 5.1", "XP")
UserSys(2) = Replace(UserSys(2), "NT 5.0", "2000")
UserSys(2) = Replace(UserSys(2), "9x", "Me")
UserSys(1) = Trim(UserSys(1))
UserSys(2) = Trim(UserSys(2))
If getInfo = 1 Then
UserSysInfo = UserSys(1)
Else
UserSysInfo = UserSys(2)
End If
Else
If getInfo = 1 Then
UserSysInfo = "Unknown"
Else
UserSysInfo = "Unknown"
End If
End If
Else
If getInfo = 1 Then
UserSysInfo = "Unknown"
Else
UserSysInfo = "Unknown"
End If
End If
End Function
%>
<%
Dim rstStatistics, strSQLStatistics
Dim argPageSize, argPageNumber, argAgent, argPageType, argPageDaily
Dim argRecordCount, argID, argPageCount, argPageSizeLoop, I, sPlace
‘’ ---------- 模块 - 处理页面大小参数 ----------
argPageSize = Trim(Request.Form("HiddenPageSize"))
If argPageSize = "" Then
argPageSize = 50
Else
argPageSize = CInt(argPageSize)
End If
‘’ ---------- 模块 - 处理页面号码参数 ----------
argPageNumber = Trim(Request.Form("HiddenPageNumber"))
If argPageNumber = "" Then
argPageNumber = 1
Else
argPageNumber = CInt(argPageNumber)
End If
‘’ ---------- 模块 - 处理Agent 字段参数 ----------
argAgent = Trim(Request.Form("HiddenAgent"))
Select Case argAgent
Case "OS" argAgent = argAgent
Case "BT" argAgent = argAgent
Case Else argAgent = "OS"
End Select
‘’ ---------- 模块 - 处理相关页面参数 ----------
argPageType = Trim(Request.Form("HiddenPageType"))
Select Case argPageType
Case "sttPage" argPageType = "sttPage"
Case "refPage" argPageType = "refPage"
Case Else argPageType = "sttPage"
End Select
‘’ ---------- 模块 - 处理日期参数，显示该日期访问记录 ----------
argPageDaily = Trim(Request.Form("HiddenPageDaily"))
If argPageDaily = "" Then
argPageDaily = "All"
End If
If argPageDaily = "All" Then
strSQLStatistics = _
"Select * From IPs " _
& "Left Join IPDatas " _
& "On IPs.IP_ID = IPDatas.IP_ID " _
& "Order By ID Desc"
Else
strSQLStatistics = _
"Select * From IPs " _
& "Left Join IPDatas " _
& "On IPs.IP_ID = IPDatas.IP_ID " _
& "where VisitDate = #" & argPageDaily & "# " _
& "Order By ID Desc"
End If
Set rstStatistics = Server.CreateObject("ADODB.Recordset")
With rstStatistics
.ActiveConnection = cnnStatistics
.CursorType = adOpenForwardOnly
.CursorLocation = adUseClient
.LockType = adLockReadOnly
.Source = strSQLStatistics
.Open
End With
argRecordCount = rstStatistics.RecordCount
rstStatistics.PageSize = argPageSize
argPageCount = rstStatistics.PageCount
If argPageNumber < 1 Then argPageNumber = 1
If argPageNumber > argPageCount Then argPageNumber = argPageCount
rstStatistics.AbsolutePage = argPageNumber
argPageSizeLoop = 1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td>
<!-- 表格 - 站点导航 -->
<table class="ColorBottomL1" cellspacing="1" cellpadding="5" border="0" height="100%">
<tr class="ColorBottomL2_ItemBody">
<td>
<a href="../Index.asp" title="Home">Home</a> |
<a href="mailto:mq_1980@163.net" title="Contact Me">Contact Me</a> |
<a href="../MyHistory.htm" title="History">History</a> |
<a href="../MySkills.htm" title="Skills">Skills</a> |
<a href="../MyWorks.htm" title="Works">Works</a> |
<a href="../MyResume.htm" title="Resume">Resume</a> |
<a href="../Msg.asp" title="Guestbook">Guestbook</a> |
<a href="Statistics_Diagram.asp" title="Statistics Diagram" target="_blank"><font color="#ff0000">Statistics Diagram</font></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td>
<!-- 表格 - 页面号码参数设定 -->
<table class="ColorBottomL1" cellspacing="1" cellpadding="5" border="0" height="100%">
<tr class="ColorBottomL2_ItemBody">
<td>
<form action="<% = Request.ServerVariables("SCRIPT_NAME")%>" method="post" name="frmPageNumber" id="frmPageNumber">
<select name="HiddenPageNumber" onchange="JavaScript:frmPageNumber.submit();">
<%
For I = 1 To argPageCount
If I = argPageNumber Then
Response.Write "<Option value=‘’" & I & "‘’ selected>" & I & "</option>" & vbCrLf
Else
Response.Write "<Option value=‘’" & I & "‘’>" & I & "</option>" & vbCrLf
End If
Next
%>
</select>
<input type="Hidden" name="HiddenPageSize" value="<% = argPageSize%>">
<input type="Hidden" name="HiddenAgent" value="<% = argAgent%>">
<input type="Hidden" name="HiddenPageType" value="<% = argPageType%>">
<input type="Hidden" name="HiddenPageDaily" value="<% = argPageDaily%>">
</form>
</td>
</tr>
</table>
</td>
<td> </td>
<td>
<!-- 表格 - 页面号码参数设定 -->
<table class="ColorBottomL1" cellspacing="1" cellpadding="5" border="0" height="100%">
<tr class="ColorBottomL2_ItemBody">
<td>
<form action="<% = Request.ServerVariables("SCRIPT_NAME")%>" method="post" name="frmPageNav" id="frmPageNav">
<%
If argPageCount = 1 Then
Response.Write "<input type=‘’button‘’ name=‘’btnFirstPage‘’ value=‘’First‘’ disabled title=‘’Go to first page!‘’>"
Response.Write "<input type=‘’button‘’ name=‘’btnPreviousPage‘’ value=‘’Previous‘’ disabled title=‘’Go to first page!‘’>"
Response.Write "<input type=‘’button‘’ name=‘’btnNextPage‘’ value=‘’Next‘’ disabled title=‘’Go to last page!‘’>"
Response.Write "<input type=‘’button‘’ name=‘’btnLastPage‘’ value=‘’Last‘’ disabled title=‘’Go to last page!‘’>"
Else
Select Case argPageNumber
Case 1 Response.Write "<input type=‘’button‘’ name=‘’btnFirstPage‘’ value=‘’First‘’ " _
& "disabled title=‘’Go to first page!‘’>"
Response.Write "<input type=‘’button‘’ name=‘’btnPreviousPage‘’ value=‘’Previous‘’ " _
& "disabled title=‘’Go to first page!‘’>"
Response.Write "<input type=‘’button‘’ name=‘’btnNextPage‘’ value=‘’Next‘’ " _
& "title=‘’Go to page " & argPageNumber + 1 & "!‘’>"
Response.Write "<input type=‘’button‘’ name=‘’btnLastPage‘’ value=‘’Last‘’ " _
& "title=‘’Go to last page!‘’>"
Case argPageCount Response.Write "<input type=‘’button‘’ name=‘’btnFirstPage‘’ value=‘’First‘’ " _
& "title=‘’Go to first page!‘’>"
Response.Write "<input type=‘’button‘’ name=‘’btnPreviousPage‘’ value=‘’Previous‘’ " _
& "title=‘’Go to page " & argPageNumber - 1 & "!‘’>"
Response.Write "<input type=‘’button‘’ name=‘’btnNextPage‘’ value=‘’Next‘’ " _
& "disabled title=‘’Go to last page!‘’>"
Response.Write "<input type=‘’button‘’ name=‘’btnLastPage‘’ value=‘’Last‘’ " _
& "disabled title=‘’Go to last page!‘’>"
Case Else Response.Write "<input type=‘’button‘’ name=‘’btnFirstPage‘’ value=‘’First‘’ " _
& "title=‘’Go to first page!‘’>"
Response.Write "<input type=‘’button‘’ name=‘’btnPreviousPage‘’ value=‘’Previous‘’ " _
& "title=‘’Go to page " & argPageNumber - 1 & "!‘’>"
Response.Write "<input type=‘’button‘’ name=‘’btnNextPage‘’ value=‘’Next‘’ " _
& "title=‘’Go to page " & argPageNumber + 1 & "!‘’>"
Response.Write "<input type=‘’button‘’ name=‘’btnLastPage‘’ value=‘’Last‘’ " _
& "title=‘’Go to last page!‘’>"
End Select
End If
%>
<script For="btnFirstPage" EVENT="onClick" Language="VBScript">
<!--
Document.frmPageNav.HiddenPageNumber.Value = "1"
Document.frmPageNav.Submit
-->
</script>
<script For="btnPreviousPage" EVENT="onClick" Language="VBScript">
<!--
Document.frmPageNav.HiddenPageNumber.Value = "<% = argPageNumber - 1%>"
Document.frmPageNav.Submit
-->
</script>
<script For="btnNextPage" EVENT="onClick" Language="VBScript">
<!--
Document.frmPageNav.HiddenPageNumber.Value = "<% = argPageNumber + 1%>"
Document.frmPageNav.Submit
-->
</script>
<script For="btnLastPage" EVENT="onClick" Language="VBScript">
<!--
Document.frmPageNav.HiddenPageNumber.Value = "<% = argPageCount%>"
Document.frmPageNav.Submit
-->
</script>
<input type="Hidden" name="HiddenPageSize" value="<% = argPageSize%>">
<input type="Hidden" name="HiddenPageNumber">
<input type="Hidden" name="HiddenAgent" value="<% = argAgent%>">
<input type="Hidden" name="HiddenPageType" value="<% = argPageType%>">
<input type="Hidden" name="HiddenPageDaily" value="<% = argPageDaily%>">
</form>
</td>
</tr>
</table>
</td>
<td> </td>
<td>
<!-- 表格 - 页面大小参数设定 -->
<table class="ColorBottomL1" cellspacing="1" cellpadding="5" border="0" height="100%">
<tr class="ColorBottomL2_ItemBody">
<td>
<form action="<% = Request.ServerVariables("SCRIPT_NAME")%>" method="post" name="frmPageDaily" id="frmPageDaily">
<select name="HiddenPageDaily" onchange="JavaScript:frmPageDaily.submit();">
<Option value=‘’All‘’>All Records</Option>
<%
Dim rstStatisticsVisitDate
Set rstStatisticsVisitDate = Server.CreateObject("ADODB.Recordset")
With rstStatisticsVisitDate
.ActiveConnection = cnnStatistics
.Source = "Select Distinct VisitDate From IPs Order By VisitDate Desc"
.Open
End With
Do While Not rstStatisticsVisitDate.EOF
If CStr(rstStatisticsVisitDate("VisitDate")) = argPageDaily Then
Response.Write _
"<Option value=‘’" & rstStatisticsVisitDate("VisitDate") & "‘’ selected>" _
& rstStatisticsVisitDate("VisitDate") & "</option>" & vbCrLf
Else
Response.Write _
"<Option value=‘’" & rstStatisticsVisitDate("VisitDate") & "‘’>" _
& rstStatisticsVisitDate("VisitDate") & "</option>" & vbCrLf
End If
rstStatisticsVisitDate.MoveNext
Loop
rstStatisticsVisitDate.Close
Set rstStatisticsVisitDate = Nothing
%>
</select>
<input type="Hidden" name="HiddenPageSize" value="<% = argPageSize%>">
<input type="Hidden" name="HiddenPageNumber" value="<% = argPageNumber%>">
<input type="Hidden" name="HiddenAgent" value="<% = argAgent%>">
<input type="Hidden" name="HiddenPageType" value="<% = argPageType%>">
</form>
</td>
</tr>
</table>
</td>
<td> </td>
<td>
<!-- 表格 - 页面大小参数设定 -->
<table class="ColorBottomL1" cellspacing="1" cellpadding="5" border="0" height="100%">
<tr class="ColorBottomL2_ItemBody">
<td>
<form action="<% = Request.ServerVariables("SCRIPT_NAME")%>" method="post" name="frmPageSize" id="frmPageSize">
<Select name="HiddenPageSize" onchange="JavaScript:frmPageSize.submit();">
<%
Select Case argPageSize
Case "50" Response.Write "<Option value=‘’50‘’ selected>List 50 per page</Option>" & vbCrLf
Response.Write "<Option value=‘’100‘’>List 100 per page</Option>" & vbCrLf
Response.Write "<Option value=‘’150‘’>List 150 per page</Option>" & vbCrLf
Response.Write "<Option value=‘’200‘’>List 200 per page</Option>" & vbCrLf
Case "100" Response.Write "<Option value=‘’50‘’>List 50 per page</Option>" & vbCrLf
Response.Write "<Option value=‘’100‘’ selected>List 100 per page</Option>" & vbCrLf
Response.Write "<Option value=‘’150‘’>List 150 per page</Option>" & vbCrLf
Response.Write "<Option value=‘’200‘’>List 200 per page</Option>" & vbCrLf
Case "150" Response.Write "<Option value=‘’50‘’>List 50 per page</Option>" & vbCrLf
Response.Write "<Option value=‘’100‘’>List 100 per page</Option>" & vbCrLf
Response.Write "<Option value=‘’150‘’ selected>List 150 per page</Option>" & vbCrLf
Response.Write "<Option value=‘’200‘’>List 200 per page</Option>" & vbCrLf
Case "200" Response.Write "<Option value=‘’50‘’>List 50 per page</Option>" & vbCrLf
Response.Write "<Option value=‘’100‘’>List 100 per page</Option>" & vbCrLf
Response.Write "<Option value=‘’150‘’>List 150 per page</Option>" & vbCrLf
Response.Write "<Option value=‘’200‘’ selected>List 200 per page</Option>" & vbCrLf
End Select
%>
</SELECT>
<input type="Hidden" name="HiddenPageNumber" value="<% = argPageNumber%>">
<input type="Hidden" name="HiddenAgent" value="<% = argAgent%>">
<input type="Hidden" name="HiddenPageType" value="<% = argPageType%>">
<input type="Hidden" name="HiddenPageDaily" value="<% = argPageDaily%>">
</form>
</td>
</tr>
</table>
</td>
<td> </td>
<td>
<!-- 表格 - 管理操作 -->
<table class="ColorBottomL1" cellspacing="1" cellpadding="5" border="0" height="100%">
<tr class="ColorBottomL2_ItemBody">
<td>
<%
Dim Delete, Pin, Unpin
Delete = Chr(34) & "Delete" & Chr(34)
Pin = Chr(34) & "Pin" & Chr(34)
Unpin = Chr(34) & "Unpin" & Chr(34)
If Session("AdminJack") = "AdminJack" Then
Response.Write _
"<a href=‘’../Logout.asp‘’ title=‘’logout‘’>Logout</a> | " _
& "<a href=‘’#‘’ onClick=‘’CheckSubmit(" & Delete & ");‘’ title=‘’Delete‘’>Delete</a> | " _
& "<a href=‘’#‘’ onClick=‘’CheckSubmit(" & Pin & ");‘’ title=‘’Pin‘’>Pin</a> | " _
& "<a href=‘’#‘’ onClick=‘’CheckSubmit(" & Unpin & ");‘’ title=‘’Unpin‘’>Unpin</a>"
Else
Response.Write _
"<a href=‘’../Login.asp‘’ title=‘’Login‘’>Login</a>" _
& "<font color=‘’#808080‘’> | " _
& "Delete | " _
& "Pin | " _
& "Unpin</font>"
End If
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="0" class="ColorBottomL1">
<tr>
<td>
<table class="ColorBottomL1_Back" width="100%" border="0" cellspacing="1" cellpadding="5">
<tr class="ColorBottomL2_ItemTop">
<td><strong>ID</strong></td>
<td><strong>Date</strong></td>
<td><strong>Time</strong></td>
<td><strong>IP</strong></td>
<td>
<form action="<% = Request.ServerVariables("SCRIPT_NAME")%>" method="post" name="frmAgent" id="frmAgent">
<select name="HiddenAgent" onchange="JavaScript:frmAgent.submit();">
<%
Select Case argAgent
Case "OS" Response.Write "<Option value=‘’OS‘’ selected>Operating System</Option>" & vbCrLf
Response.Write "<Option value=‘’BT‘’>Browser Type</Option>" & vbCrLf
Case "BT" Response.Write "<Option value=‘’OS‘’>Operating System</Option>" & vbCrLf
Response.Write "<Option value=‘’BT‘’ selected>Browser Type</Option>" & vbCrLf
End Select
%>
</select>
<input type="Hidden" name="HiddenPageSize" value="<% = argPageSize%>">
<input type="Hidden" name="HiddenPageNumber" value="<% = argPageNumber%>">
<input type="Hidden" name="HiddenPageType" value="<% = argPageType%>">
<input type="Hidden" name="HiddenPageDaily" value="<% = argPageDaily%>">
</form>
</td>
<td>
<form action="<% = Request.ServerVariables("SCRIPT_NAME")%>" method="post" name="frmPageType" id="frmPageType">
<select name="HiddenPageType" onchange="JavaScript:frmPageType.submit();">
<%
Select Case argPageType
Case "sttPage" Response.Write "<Option value=‘’sttPage‘’ selected>Start Page</Option>" & vbCrLf
Response.Write "<Option value=‘’refPage‘’>Referer Page</Option>" & vbCrLf
Case "refPage" Response.Write "<Option value=‘’sttPage‘’>Start Page</Option>" & vbCrLf
Response.Write "<Option value=‘’refPage‘’ selected>Referer Page</Option>" & vbCrLf
End Select
%>
</select>
<input type="Hidden" name="HiddenPageSize" value="<% = argPageSize%>">
<input type="Hidden" name="HiddenPageNumber" value="<% = argPageNumber%>">
<input type="Hidden" name="HiddenAgent" value="<% = argAgent%>">
<input type="Hidden" name="HiddenPageDaily" value="<% = argPageDaily%>">
</form>
</td>
<td><strong>Location</strong></td>
<!-- 表单 - 管理操作 -->
<form action="Statistics_Operation.asp" method="post" name="frmOperation" id="frmOperation">
<td>
<input type="checkbox" name="Check_All" value="Check_All" onClick="CheckAll(this);">
</td>
</tr>
<%
Do While Not rstStatistics.EOF And argPageSizeLoop <= argPageSize
argID = argRecordCount - argPageSize * (argPageNumber - 1) - argPageSizeLoop + 1
%>
<tr onDblClick="CheckDblClick(this);"
<%
If rstStatistics("Pinned") Then
Response.Write "class=‘’ColorPinned‘’"
Else
Response.Write "class=‘’ColorBottomL2_ItemBody‘’"
End If
%>
title="No. <% = argID%> of <% = argRecordCount%> records!">
<td><% = argID%></td>
<td><% = rstStatistics("VisitDate")%></td>
<td><% = rstStatistics("VisitTime")%></td>
<td><% = rstStatistics("IPAddress")%></td>
<!-- onmouseover=‘’ChangeColor(this, true);‘’ onmouseout=‘’ChangeColor(this, false);‘’ -->
<%
Select Case argAgent
Case "OS" Response.Write _
"<td " _
& "onmouseover=‘’ChangeColor(this, true);‘’ " _
& "onmouseout=‘’ChangeColor(this, false);‘’ " _
& "title=‘’Browser Type:" & vbCrLf & UserSysInfo(rstStatistics("IEversion"), 1) & "‘’>" _
& UserSysInfo(rstStatistics("IEversion"), 2) _
& "</td>"
Case "BT" Response.Write _
"<td " _
& "onmouseover=‘’ChangeColor(this, true);‘’ " _
& "onmouseout=‘’ChangeColor(this, false);‘’ " _
& "title=‘’Operating System:" & vbCrLf & UserSysInfo(rstStatistics("IEversion"), 2) & "‘’>" _
& UserSysInfo(rstStatistics("IEversion"), 1) _
& "</td>"
End Select
%>
<%
Dim tmpRefPage
If rstStatistics("refPage") <> "" Then
tmpRefPage = rstStatistics("refPage")
Else
tmpRefPage = "No"
End If
Select Case argPageType
Case "sttPage" Response.Write _
"<td " _
& "onmouseover=‘’ChangeColor(this, true);‘’ " _
& "onmouseout=‘’ChangeColor(this, false);‘’ " _
& "title=‘’Referer Page:" & vbCrLf & tmpRefPage & "‘’>"
Case "refPage" Response.Write _
"<td " _
& "onmouseover=‘’ChangeColor(this, true);‘’ " _
& "onmouseout=‘’ChangeColor(this, false);‘’ " _
& "title=‘’Start Page:" & vbCrLf & rstStatistics("sttPage") & "‘’>"
End Select
If rstStatistics(argPageType) <> "" Then
Response.Write rstStatistics(argPageType)
Else
Response.Write "No"
End If
Response.Write "</td>"
%>
<%
sPlace = rstStatistics("IP_Country") & rstStatistics("IP_City")
Response.Write "<td style=‘’font-size:12px;‘’>" & sPlace & "</td>"
%>
<td>
<input onClick="Check(this);CheckCheckAll();" type="checkbox" id="Check_ID" name="Check_ID" value="<% = rstStatistics("ID")%>">
</td>
</tr>
<%
argPageSizeLoop = argPageSizeLoop + 1
rstStatistics.MoveNext
Loop
rstStatistics.Close
Set rstStatistics = Nothing
Call CloseDatabase
%>
<input type="Hidden" name="HiddenAction">
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
