• λ我爱Aspx >> Asp.Net >> 一个ASP统计制作实例

    • 一个ASP统计制作实例

  • :aspxer  Դ:internet  :2007-5-15 20:47:10  ؼ:asp

  • rs("cs")=1 '记下访问次数为1

    rs("ip")=request.servervariables("remote_addr") '记下IP，

    rs("dat")=now '记下当前的日期时间，

    rs("dat1")=date '记下当前的日期，以后用来做第一次访问的日期，

    response.cookies("keren")=rs("id") '写入一个cookies，内容就和ID一样。

    response.cookies("keren").expires=date+365 '设置cookies的有效日期从现在开始，365天，

    else '以上是新朋友的处理办法，对老朋友怎么办呢？看下面的：

    sql="SELECT * FROM tab where id="&keren '到库中去找出我们老朋友的记录

    set rs=server.createobject("ADODB.Recordset")

    rs.Open sql,conn, 1, 3

    rs("cs")=rs("cs")+1 '好啦，找到啦，把访问次数加上1

    rs("ip")=request.servervariables("remote_addr") '看看他的IP是多少了，记下来。

    rs("dat")=now '记下现在的时间，也就是最后一次访问的时间，

    response.cookies("keren")=rs("id") '再把cookies写进去，我不知这句是否多余，没有试。

    response.cookies("keren").expires=date+365 '设置cookies过期时间，免得一年到了我就不认得他了。

    end if

    rs.update '该记的都记下了，更新库吧。

    rs.close '关闭recordset对象。

    set conn=nothing '释放conn，我还是认为connection要随开随关才对，放到SESSION中我认为最不可取。4 %〉

    好啦，记录就做好啦，有二十几行代码，很简单的一个小程序，但我想，高手肯定还有高招，有高招的朋友不忘了教教阿余，

    程序写好了，怎么放到页面中呢？很简单，在首页上随便找个地方，加上这行代码：〈img src="contpage.asp" width="0" height="0"〉就行了。

    接下来就是把记录显示出来，这个能做得比阿余好的人多的是，不过还是来现个丑。

    文件名：dispcont.asp , 请看代码：

    〈%

    Set Conn=Server.CreateObject("ADODB.Connection")

    Ҷƪл˵?
    第一页上一页1234下一页尾页
  • һƪ一个ASP木马程序的源代码
    һƪ用文本+ASP打造新闻发布系统