月流量统计,上一篇文章,下一篇文章的链接

不用数据库你也得用文本文件什么的记录数据,其实还是数据库了.
如果自已要用,可以去http://count.申请一个免费的网站访问统计用户.

上一篇,下一篇不用组件的,你查找一下翻页的代码一看就知道,或有别人写好的类
直接使用也行

函数要么？
'num为分类号，upage为需要分上一篇和下一篇的页面，udate为数据库中的表

'下一篇函数
'定义一个thenext函数来找出下一篇的ID，如果当前记录已经是最前面的一条记录，则输出文字“没有了”
function thenext(id,udate,upage,num)
    dim sql,i
    set rsnew=server.CreateObject("adodb.recordset")
    sql="select top 1 *  from "&udate&" where id>"&(id+1)&" and categoryid="&num&" order by id asc"
    rsnew.open sql,cnn,1,1
    if rsnew.eof then
        response.Write("没有了")
    else
        i=rsnew("id")
        response.Write("<a href='"&upage&"?id="&(i)&"'>下一篇</a>&nbsp;&nbsp;&nbsp;<a href='"&upage&"?id="&(i)&"'>"&rsnew("title")&"</a>")
    end if
    rsnew.close
end function

'上一篇函数
'定义一个thehead函数来找出上一篇的ID，如果当前记录已经是最后面的一条记录，则输出文字“没有了”
function thehead(id,udate,upage,num)
    dim sql,i
    set rsnew=server.CreateObject("adodb.recordset")
    sql="select top 1 * from "&udate&" where id<"&(id-1)&" and categoryid="&num&" order by id desc"
    rsnew.open sql,cnn,1,1
    if rsnew.eof then
        response.Write("没有了")
    else
        i=rsnew("id")
        response.Write("<a href='"&upage&"?id="&(i)&"'>"&rsnew("title")&"</a>&nbsp;&nbsp;&nbsp;<a href='"&upage&"?id="&(i)&"'>上一篇</a>")
    end if
    rsnew.close
end function