📄 show.asp
字号:
<%
set rs=nothing
%>
<table width="768" align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
<tr id="tabletitlelink" align="center" bgcolor="#CCCCFF">
<th width="70"><%=Lang.item("g_029")%></th>
<th width="100"><%=Lang.item("g_030")%></th>
<th width="275"><%=Lang.item("g_031")%></th>
<th width="285"><%=Lang.item("g_032")%></th>
<th width="38"><%=Lang.item("g_033")%></th>
</tr>
<%
dim i
dim condition,linkstr
dim vpage,referer,q
condition="where Dateandtime is not null"
linkstr="action=V"
sql="select top 10 Dateandtime,Ip,Page,Referer,User_Agent from CC_V "&condition&" order by Dateandtime desc,id asc"
set rs=conn.execute(sql)
if rs.eof then
response.write "<tr class=tablebody1><td colspan=5>"&Lang.item("g_045")&"</td></tr>"
else
dim NewVisitor
NewVisitor=Rs.GetRows()
for i=0 to UBound(NewVisitor,2)
if i > 9 then exit for
response.write "<tr class=tablebody1>"
response.write "<td align=center>"&formatdatetime(FormatTime(NewVisitor(0,i)),3)&"</td>"
response.write "<td align=center>"
response.write "<a href=http://union.itlearner.com/ip/ipinfo.asp?ip="&NewVisitor(1,i)&" target=_blank title="""&Lang.item("g_074")&""">"
response.write NewVisitor(1,i)
response.write "</a>"
response.write "</td>"
response.write "<td>"
if NewVisitor(2,i)="0" then
vpage=Lang.item("g_053")
response.write vpage
else
vpage=NewVisitor(2,i)
response.write "<a href="""&vpage&""" target=_blank title="""&vpage&""">"&hx.OutStr(mid(vpage,8),40)&"</a>"
end if
response.write "</td>"
response.write "<td>"
if NewVisitor(3,i)="0" then
referer=Lang.item("g_044")
q=""
response.write referer
else
referer=NewVisitor(3,i)
response.write "<a href="""&referer&""" target=_blank title="""&referer&""">"&hx.OutStr(mid(referer,8),40)&"</a>"
q=hx.GetSearchKeyword(referer)
if q<>"" then
q=ReadText(q)
end if
end if
response.write "</td>"
response.write "<td align=center><a href=# title='"&Lang.item("g_029")&":"&FormatTime(NewVisitor(0,i))&vbCRLF
response.write Lang.item("g_069")&":"&NewVisitor(4,i)&vbCRLF
response.write Lang.item("g_031")&":"&vpage&vbCRLF
response.write Lang.item("g_032")&":"&referer&vbCRLF
if q<>"" then
response.write Lang.item("g_070")&":"&q
end if
response.write "'><font face=Wingdings>1</font></a></td>"
response.write "</tr>"
next
end if
%>
</table>
<%
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")%><script src="<%=hx.baseurl%>mystat.asp"></script></li>
<li><%=Lang.item("g_060")%><script src="<%=hx.baseurl%>mystat.asp?style=no"></script></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 -> <%=Lang.item("g_016")&Lang.item("g_017")%><br>
$AllPageView -> <%=Lang.item("g_016")&Lang.item("g_018")%><br>
$TodayVisitor -> <%=Lang.item("g_011")&Lang.item("g_017")%><br>
$TodayPageView -> <%=Lang.item("g_011")&Lang.item("g_018")%><br>
$YestodayVisitor -> <%=Lang.item("g_012")&Lang.item("g_017")%><br>
$YestodayPageView -> <%=Lang.item("g_012")&Lang.item("g_018")%><br>
</p>
<%dim showstyle,p1,p2,p3,p4
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")
p4 = request("p4")
if p4 = "" then p4 = 0
%>
<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)%>
<%=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>
<%=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)%>
<input type="checkbox" value="1" name="p4" <%if p4=1 then response.write "checked"%>><%=Lang.item("g_146")%>
</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%>&p4=<%=p4%>"></script></textarea>
</p>
<p><%=Lang.item("g_062")%><script src="<%=hx.baseurl%>showstat.asp?<%=showstyle%>&p1=<%=p1%>&p2=<%=p2%>&p3=<%=p3%>&p4=<%=p4%>"></script></p>
</td></tr></table>
</td>
</tr>
</table>
<%
End Sub
%>
<%
Sub referer
Call MainTitle(Lang.item("m_31"))
Call ShowQuery
dim orderby,ordernum
ordernum=request("ordernum")
if ordernum=1 then
orderby="vtime"
else
ordernum=0
orderby="CR"
end if
%>
<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"><a href=?action=R&ordernum=1&query=<%=query%>><%=Lang.item("g_066")%></a></th>
<th width="220" align="center"><a href=?action=R&query=<%=query%>><%=Lang.item("g_038")%></a></th>
</tr>
<%
dim maxnum,i,barwidth
dim rs,sql
dim condition
dim linkstr
if query="" then
condition=""
linkstr="action=R&ordernum="&ordernum
else
condition="where Referer like '%"&query&"%'"
linkstr="query="&query&"&action=R&ordernum="&ordernum
end if
sql="select top "&MaxRecord&" Referer,CR,vtime from CC_R "&condition&" order by "&orderby&" 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
response.write "</td><td>"
response.write " "&FormatTime(rs(2))
response.write "</td><td>"
if ordernum=0 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
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%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -