📄 infolist.asp
字号:
<!-- #include file=conn.asp -->
<%
Response.Expires=0
Sql="Select * From InfoList"
Rs.Open Sql,Conn,1,1
On Error Resume Next
Name=Rs("Name")
Url=Rs("Url")
DayNum=Rs("DayNum")
TotalNum=Rs("TotalNum")
MonthMaxNum=rs("MonthMaxNum")
MonthMaxDate=Rs("MonthMaxDate")
DayMaxNum=Rs("DayMaxNum")
DayMaxDate=Rs("DayMaxDate")
HourMaxNum=Rs("HourMaxNum")
HourMaxTime=Rs("HourMaxTime")
LiaoningNum=Rs("LiaoningNum")
ChinaNum=Rs("ChinaNum")
OtherNum=Rs("OtherNum")
StartDate=Rs("StartDate")
StatDayNum=DateDiff("D",StartDate,Date)+1
If StatDayNum<=0 Then
AveDayNum=StatDayNum
Else
AveDayNum=Cint(TotalNum/StatDayNum)
End If
Rs.Close
Sql="Select Top 1 * From FBrowser Order By TBrwNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxBrw=Rs("TBrowser")
MaxBrwNum=Rs("TBrwNum")
End If
Rs.Close
Sql="Select Top 1 * From FSystem Order By TSysNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxSys=Rs("TSystem")
MaxSysNum=Rs("TSysNum")
End If
Rs.Close
Sql="Select Top 1 * From FScreen Order By TScrNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxScr=Rs("TScreen")
MaxScrNum=Rs("TScrNum")
End If
Rs.Close
Sql="Select Top 1 * From FArea Order By TAreNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxAre=Rs("TArea")
MaxAreNum=Rs("TAreNum")
End If
Rs.Close
Sql="Select Top 1 * From FWeburl Order By TWebNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxWeb=Rs("TWeburl")
MaxWebNum=Rs("TWebNum")
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
%>
<html>
<head>
<title>雅客精彩—k666软件园—程序演示厅-http://www.yakefood.com ! http://www.vv66.net</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style/designer99.css">
<style>
body,table,tr,td,select,input {font-size:9pt;font-family:宋体}
img {border:0}
</style>
</head>
<body bgcolor="#333389" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<br>
<table width=608 border=0 cellpadding=0 cellspacing=0 align="center" class="leirong">
<tr>
<td> <img src="tongji/spacer.gif" width=127 height=1></td>
<td> <img src="tongji/spacer.gif" width=122 height=1></td>
<td> <img src="tongji/spacer.gif" width=148 height=1></td>
<td> <img src="tongji/spacer.gif" width=91 height=1></td>
<td> <img src="tongji/spacer.gif" width=120 height=1></td>
</tr>
<tr>
<td colspan=2> <img src="tongji/logo.gif" width=137 height=28></td>
<td> <a href="../faq.asp"> <img src="tongji/title_02.gif" width=148 height=28 border="0"></a></td>
<td> <a href="../webmaster/textclick_10tips.asp"> <img src="tongji/title_03.gif" width=91 height=28 border="0"></a></td>
<td> <a href="../about.asp"> <img src="tongji/title_04.gif" width=120 height=28 border="0"></a></td>
</tr>
<tr>
<td height="100" background="tongji/title_05.gif" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="leirong">
<tr>
<td height="58" width="36%"> <a name="1"></a></td>
<td height="58" width="64%"> </td>
</tr>
<tr>
<td width="36%"> </td>
<td width="64%"><font color="#9999FF">统 计 信 息</font></td>
</tr>
</table>
</td>
<td colspan=4 height="100" background="tongji/bg.gif" align="center">
<table width="100%" border="0" cellspacing="5" cellpadding="0" class="leirong">
<tr valign="bottom">
<td>
<!-- Active AD Server 2.0 广告投放代码开始
<IFRAME MARGINHEIGHT=0 MARGINWIDTH=0 FRAMEBORDER=0 WIDTH=468 HEIGHT=60 SCROLLING=NO SRC=http://210.74.232.48:88/scripts/aads.dll?Launch&248|1&textclick&广告位_3>
</IFRAME>
Active AD Server 2.0 广告投放代码结束 --><img border="0" src="tongji/banner.gif">
</td>
</tr>
<tr>
<td> <a href="FVisitor.asp"><font color="#CCFFCC">最近访问</font></a><font color="#8A8AA6">
</font><a href="StatYear.asp"><font color="#CCFFCC">年 报 表</font></a><font color="#8A8AA6">
</font><a href="StatMonth.asp"><font color="#CCFFCC">月 报 表</font></a><font color="#8A8AA6"> </font><a href="StatWeek.asp"><font color="#8A8AA6">
<font color="#CCFFCC">周 报 表 </font></font></a><font color="#8A8AA6"> </font><a href="StatDay.asp"><font color="#8A8AA6">
<font color="#CCFFCC">日 报 表</font></font></a><font color="#8A8AA6">
</font><a href="History.asp"><font color="#CCFFCC">历史报表</font></a></td>
</tr>
</table>
</td>
</tr>
</table>
<span class="biaoti"></span>
<table width="608" border="0" cellspacing="0" cellpadding="0" align="center" class="leirong">
<tr>
<td width="130" background="tongji/bg-left.gif" valign="top" height="179">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="20" class="leirong" background="tongji/bg-leftb.gif">
<tr valign="middle">
<td> <font color="#9999FF"><img src="tongji/arrow.gif" width="12" height="15">
</font><a href="Rereg.asp"><font color="#99CCFF">修 改 信 息</font></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="160" class="leirong" background="tongji/bg-lefta.gif">
<tr>
<td><font color="#9999FF"><img src="tongji/arrow.gif" width="12" height="15">
</font><a href="FArea.asp"><font color="#99CCFF">地 区 分 析 </font></a></td>
</tr>
<tr>
<td><font color="#9999FF"><img src="tongji/arrow.gif" width="12" height="15">
<a href="FAddress.asp"><font color="#99CCFF">地 址 分 析 </font></a></font></td>
</tr>
<tr>
<td><font color="#9999FF"><img src="tongji/arrow.gif" width="12" height="15">
</font><a href="FScreen.asp"><font color="#99CCFF">屏 幕 大 小</font></a></td>
</tr>
<tr>
<td><font color="#9999FF"><img src="tongji/arrow.gif" width="12" height="15">
</font><a href="FReferer.asp"><font color="#99CCFF">链 接 页 面</font></a></td>
</tr>
<tr>
<td><font color="#9999FF"><img src="tongji/arrow.gif" width="12" height="15">
<a href="FCounter.asp"><font color="#99CCFF">访 问 次 数 </font></a></font>
</td>
</tr>
<tr>
<td><font color="#9999FF"><img src="tongji/arrow.gif" width="12" height="15">
<a href="FSystem.asp"><font color="#99CCFF">操 作 系 统</font></a></font>
</td>
</tr>
<tr>
<td><font color="#9999FF"><img src="tongji/arrow.gif" width="12" height="15">
</font><a href=FIptwo.asp"><font color="#99CCFF">IP 地 址 </font></a></td>
</tr>
<tr>
<td><font color="#9999FF"><img src="tongji/arrow.gif" width="12" height="15">
</font><a href="FBrowser.asp"><font color="#99CCFF">浏 览 器</font></a></td>
</tr>
</table>
<br>
<table border="0" cellspacing="0" cellpadding="1" width="100%">
<tr>
<td width="13%"> </td>
<td colspan="2"><span class="leirong"><font color="#9999FF">统计信息可加密<br>
设为“公开”<br>
或“不公开”</font></span></td>
</tr>
<tr>
<td width="13%"> </td>
<td width="11%"><img src="tongji/button.gif" width="10" height="10"></td>
<td width="76%"><span class="leirong"><font color="#9999FF"><a href="/tcregister/register1.asp">文本交换用户</a></font></span></td>
</tr>
<tr>
<td width="13%"> </td>
<td width="11%"><img src="tongji/button.gif" width="10" height="10"></td>
<td width="76%"><span class="leirong"><font color="#9999FF"><a href="/stat/register1.asp">统计系统用户</a></font></span></td>
</tr>
<tr>
<td width="13%"></td>
<td width="11%"></td>
<td width="76%"><span class="leirong"><font color="#9999FF"><a href="http://www.textclick.com/pw/index.asp">太极品网</a>
</font></span></td>
</tr>
</table>
</td>
<td colspan="2" bgcolor="#6699FF" height="179" valign="top">
<table width="100%" border="0" cellspacing="8" cellpadding="0" height="233">
<tr bgcolor="#333399" valign="top">
<td height="218" bgcolor="#FFFFFF">
<!--开始统计-->
<table align=center border=0 cellpadding=0 cellspacing=0 width=426>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -