📄 area.asp
字号:
<!--#include file=conn.asp-->
<html>
<head>
<title>流量统计</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/command.css" type="text/css">
<%
areaid=session("countuserid")
sqlaream="select * from kcountarea"
set rsareaid2=Server.createobject("adodb.recordset")
rsareaid2.open sqlaream,conn,1,1
sqlareanum=0
while not rsareaid2.eof
if rsareaid2(""&areaid&"")<>empty then
sqlareanum=sqlareanum+rsareaid2(""&areaid&"")
end if
rsareaid2.movenext
wend
rsareaid2.close
set rsareaid2=nothing
sqlaream2="select * from kcountarea where countcaption=1"
set rssqlaream2=Server.createobject("adodb.recordset")
rssqlaream2.open sqlaream2,conn,1,1
while not rssqlaream2.eof
if rssqlaream2(""&areaid&"")<>empty then
areatake1=1
end if
rssqlaream2.movenext
wend
rssqlaream2.close
set rssqlaream2=nothing
sqlaream3="select * from kcountarea where countcaption=0"
set rssqlaream3=Server.createobject("adodb.recordset")
rssqlaream3.open sqlaream3,conn,1,1
while not rssqlaream3.eof
if rssqlaream3(""&areaid&"")<>empty then
areatake2=1
end if
rssqlaream3.movenext
wend
rssqlaream3.close
set rssqlaream3=nothing
set rsareaid1=Server.createobject("adodb.recordset")
rsareaid1.open "kcountarea",conn,1,1
%>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="640" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td bgcolor="#FFFFFF">
<table width="640" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<!--#include file=title.htm-->
</td>
</tr>
<tr>
<td>
<table width="624" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="30"><img src="images/little.gif" width="1" height="1"></td>
</tr>
<tr>
<td>
<table width="624" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#3366cc">
<tr align="center" valign="bottom">
<td class="navigation" height="18" width="69" bgcolor="#FFFFFF"><font color="#000000"><a href="index.asp" class="titlefont">综合统计</a></font></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><font color="#000000"><a href="hour.asp" class="titlefont">时统计</a></font></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><font color="#000000"><a href="day.asp" class="titlefont">日统计</a></font></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><a href="week.asp" class="titlefont">周统计</a></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><a href="monther.asp" class="titlefont">月统计</a></td>
<td width="69" class="navigation" height="18" bgcolor="#3366cc"><font color="#FFFFFF" class="titlefont">地区</font></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><a href="exprace.asp" class="titlefont">浏览器</a></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><a href="economy.asp" class="titlefont">操作系统</a></td>
</tr>
<tr align="center" valign="bottom">
<td class="navigation" height="2" colspan="8" bgcolor="#3366cc"><img src="images/little.gif" width="1" height="1"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="18"><img src="images/little.gif" width="1" height="1"></td>
</tr>
<tr>
<td valign="top">
<table width="624" border="0" cellspacing="1" cellpadding="0" bgcolor="#3366cc">
<tr>
<td bgcolor="#FFFFFF" valign="top">
<table width="624" border="0" cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr>
<td colspan="4" height="20" bgcolor="#3366cc" align="center"><font color="#FFFFFF" style="letter-spacing:14pt;font-size:14px">地区流量统计基本信息</font></td>
</tr>
<tr bgcolor="#E7E7E7">
<td colspan="4" height="20"> <font color="#000000"><span style="letter-spacing:14px">国内浏览量排名</span></font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" align="center">地区</td>
<td height="20" bgcolor="#FFFFFF" align="center">访问量</td>
<td height="20" bgcolor="#FFFFFF" align="center">最新访问时间</td>
<td height="20" width="324" align="center">图示</td>
</tr>
<%
if areatake1=1 then
while not rsareaid1.eof
if rsareaid1(""&areaid&"")>=2 and rsareaid1("countcaption")=1 then
%>
<tr bgcolor="#FFFFFF">
<td height="20" align="center"><%=rsareaid1("countarea")%></td>
<td height="20" align="center"><%=rsareaid1(""&areaid&"")%></td>
<td height="20" align="center"><%=rsareaid1("countareatime")%></td>
<td height="20" width="324">
<table width="324" border="0" cellspacing="0" cellpadding="0" height="12">
<tr>
<td width="200">
<table width="<%=(rsareaid1(""&areaid&"")/sqlareanum)*200%>" border="0" cellspacing="0" cellpadding="0" height="13">
<tr>
<td background="images/img.GIF"><img src="images/little.gif" width="1" height="1"></td>
</tr>
</table>
</td>
<td> <%=FormatNumber((rsareaid1(""&areaid&"")/sqlareanum)*100,1)%>%</td>
</tr>
</table>
</td>
</tr>
<%
end if
rsareaid1.movenext
wend
rsareaid1.movefirst
else
%>
<tr bgcolor="#FFFFFF">
<td height="20" align="center" colspan="4">暂时无信息</td>
</tr>
<%
end if
%>
<tr bgcolor="#E7E7E7">
<td height="20" colspan="4"> <span style="letter-spacing:14px">国外浏览量排名</span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" align="center">地区</td>
<td height="20" align="center">访问量</td>
<td height="20" align="center">最新访问时间</td>
<td height="20" width="324" align="center">图示</td>
</tr>
<%
if areatake2=1 then
while not rsareaid1.eof
if rsareaid1(""&areaid&"")>=2 and rsareaid1("countcaption")=0 then
%>
<tr bgcolor="#FFFFFF">
<td height="20" align="center"><%=rsareaid1("countarea")%></td>
<td height="20" align="center"><%=rsareaid1(""&areaid&"")%></td>
<td height="20" align="center"><%=rsareaid1("countareatime")%></td>
<td height="20" width="324">
<table width="324" border="0" cellspacing="0" cellpadding="0" height="12">
<tr>
<td width="200">
<table width="<%=(rsareaid1(""&areaid&"")/sqlareanum)*200%>" border="0" cellspacing="0" cellpadding="0" height="13">
<tr>
<td background="images/img.GIF"><img src="images/little.gif" width="1" height="1"></td>
</tr>
</table>
</td>
<td> <%=FormatNumber((rsareaid1(""&areaid&"")/sqlareanum)*100,1)%>%</td>
</tr>
</table>
</td>
</tr>
<%
end if
rsareaid1.movenext
wend
else
%>
<tr bgcolor="#FFFFFF">
<td height="20" align="center" colspan="4">暂时无信息</td>
</tr>
<%
end if
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><!--#include file=copyright.htm--></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
rsareaid1.close
set rsareaid1=nothing
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -