摘要：
自己的网站一直在使用别人提供的免费统计，如51YES，ITSUN，1TONG，51.LA,ADMIN88，50BANG等等，其中有很不错的统计系统，但免费归免费，这些服务器由于承受的负载都很大，偶尔还是会挂机的，一挂一般都是半天以上；况且有一些统计系统是不准确的.关键字：
ASP 统计 正文：
enter"><strong>活跃时间</strong></div></td>
<td width="80"><div align="center"><strong>操作系统</strong></div></td>
<td width="150"><div align="center"><strong>浏览器</strong></div></td>
<td width="206"><div align="center"><strong>当前位置</strong></div></td>
<td width="30"><div align="center"><strong>PV</strong></div></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="758" border="1" align="left" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#DADCE4" class="xi">
<%
sql="select * from ip order by lastime desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
If rs.eof and rs.bof Then
response.Write("当前列表为空。")
Else
recordcountnum=Rs.recordcount
Rs.pagesize = listnum
page = SafeRequest("page",1)
If page = "" Then
page=1
End If
If (page-Rs.pagecount) > 0 Then
page=Rs.pagecount
End If
if page < 1 Then
page = 1
End If
Rs.absolutepage=page
j=rs.recordcount
j=j-(page-1)*listnum
i=0
x=1+listnum*(page-1)
do while not rs.eof and i<listnum
ip=rs("ip")
if rs("dlip")<>"" then
ip=rs("dlip")
end if
startime=rs("startime")
lastime=rs("lastime")
ie=browser(rs("browser"))
sys=system(rs("browser"))
url=rs("url")
if url="" then
url="直接输入访问"
end if
url1=url
if len(url)>30 then
url=left(url,30)&"…"
end if
n=rs("n")
%>
<tr class="table001" onmouseover="this.className=table002" onmouseout="this.className=table001">
<td width="40"><div align="center"><%=x%></div></td>
<td width="100"><div align="center"><%=ip%></div></td>
<td width="150"><div align="center"><%=lastime%></div></td>
<td width="80"><div align="center"><%=sys%></div></td>
<td width="150"><div align="center"><%=ie%></div></td>
<td width="206"><a href=<%=url1%> target=_blank title=<%=url1%>><%=url%></a></td>
<td width="30"><div align="center"><%=n%></div></td>
</tr>
<%
i=i+1
x=x+1
rs.movenext
loop
[1][2][3][4][5][6][7][8][9][10]
