首页 美女贴图 网络日记 重庆租房 搜索指南 网络电视 飘网音乐 飘网博客 精彩网址 友情链接 飘网地图 本站留言
飘网中国
专题:网络营销 | 网站设计 | QQ技巧 | 搜索优化 | 菜鸟进阶 | 病毒攻防 | 网络技术 | 系统应用 | 本站作品 | 常用软件 | 工具软件 |
飘网中国>>网站设计>>正文

ASP编写自己的网站统计程序

编辑:flymorn 来源:飘网中国 更新:2006-4-19 点击:
【字体:

摘要:自己的网站一直在使用别人提供的免费统计,如51YES,ITSUN,1TONG,51.LA,ADMIN88,50BANG等等,其中有很不错的统计系统,但免费归免费,这些服务器由于承受的负载都很大,偶尔还是会挂机的,一挂一般都是半天以上;况且有一些统计系统是不准确的.
关键字:ASP 统计 
正文:
长分析外部连接,搜索引擎来路!)
        <br>
        <hr noshade size="1">
      
    </div></td>
  </tr>
  <tr>
    <td><table width="756" border="0" align="left" cellpadding="0" cellspacing="0">
      <tr>
        <td><b>当日来路:</b> </td>
      </tr>
    </table></td>
  </tr>
</table>
<!--Powered by flymorn,www.cn-pn.com-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="biao_bdr3">
  <tr>
    <td><table width="758" border="1" align="left" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#DADCE4" class="xi">
      <tr>
        <td width="100"><div align="center"><strong>ID</strong></div></td>
        <td width="550"><div align="center"><strong>来访网站</strong></div></td>
        <td width="100"><div align="center"><strong>点击数</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 vcome,n,vlast from comes order by n 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
n=rs("n")
vcome=rs("vcome")
vlast=rs("vlast")
%>
   <tr class="table001" onmouseover="this.className=table002" onmouseout="this.className=table001">
        <td width="100"><div align="center"><%=x%></div></td>
        <td width="550"><%=vcome%><%if vcome=ownsiteurl or vcome="直接输入访问" then%><a href=http://www.cn-pn.com target=_blank>[GO]</a><%else%><a href=<%=vlast%> target=_blank title=<%=vlast%>>[GO]</a><%end if%></td>
        <td w
[1][2][3][4][5][6][7][8][9][10]
上一篇:17种正则表达式
下一篇:ASP编程中20个非常有用的例子
最新文章 更多
推荐文章 更多
热门文章 更多
© 2005-2010 飘网中国 版权所有
站长邮箱:①LCC-749AT163.com ②FlymornATgmail.com(AT改为@)
如转载时,请注明出处;本站部分资源来自网络,如有侵权,请来信说明;飘易文章系统 HTML版.
渝ICP备05000119号