一个ASP统计制作实例

[〈a href="dispcont.asp"〉刷新]

〈div align="left"〉

〈table border="0" cellpadding="0" style="font-size: 9pt"〉

〈tr〉〈td〉页码〈/td〉〈%page2=1

for i=1 to zs step pages

if page3=cstr(page2) then

%〉〈td 〉[〈%Response.Write page2%〉]〈/td〉

〈% else %〉

〈td 〉〈a href="http://dev.21tx.com/2005/11/04/dispcont.asp?pag=〈%Response.Write" page2%〉"〉[〈%Response.Write page2%〉]〈/td〉

〈% end if

page2=page2+1

next

sn=pages*(page3-1) '当前记录号=每页显示数*页数-每页显示数

if sn〉zs then sn=0

rs.move sn,1

'**********************************以上一段用于分页

%〉 〈/tr〉〈/table〉

〈/div〉 〈table style="font-size: 9pt" width="100%" bordercolorlight="#000000" border="1" bordercolordark="#FFFFFF" bgcolor="#A4D1E8" cellspacing="0" cellpadding="3"〉

〈tr〉〈td〉编号〈/td〉〈td〉最后访问首页〈/td〉〈td〉最后访问IP〈/td〉〈td〉首页次数〈/td〉〈td〉首次访问日期〈/td〉〈/tr〉〈%

for i=1 to pages

Response.Write "〈/tr〉"

Response.Write "〈td〉"&rs("ID")&"〈/td〉"

Response.Write "〈td〉"&rs("dat")&"〈/td〉"

Response.Write "〈td〉"&rs("IP")&"〈/td〉"

Response.Write "〈td〉"&rs("CS")&"〈/td〉"

Response.Write "〈td〉"&rs("DAT1")&" 〈/td〉"

Response.Write "〈/tr〉"

rs.movenext

if rs.eof then exit for

next

rs.close

%〉

〈tr〉〈td〉合计〈%=zs%〉〈/td〉〈td〉访问次数为100次以上的有〈%=cs100%〉 〈/td〉〈td〉访问次数为1的有：〈%=cs1%〉〈/td〉〈td〉总访问次数〈%=csi%〉〈/td〉〈td〉今天访问量：〈%=csdat1%〉〈/td〉〈/tr〉

〈/table〉

'****************************以上是完整的分页显示全部复制下来就可用。没有考虑一条记录也没有的情况。

您可以稍加改动，加入更多功能，好啦，最后请大家关注阿余的网站： http://www.zydn.net

这里有这个小程序的演示

上一篇： 用文本+ASP打造新闻发布系统

下一篇： Web服务器上防范基于ASP程序的木马