• 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
  • 当前位置: 山茶花美文网 > 励志文章 > 正文

    如何轻松打造ASP计数器|计数器

    时间:2020-05-29来源:山茶花美文网 本文已影响 山茶花美文网手机站

    以下介绍用数据库实现简单计数器
    "下面存为count.asp
    <%
    Set conn=Server.CreateObject("ADODB.Connection")
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("count.mdb")
    %>
    <%on error resume next%>
    <%sql="update count set hit=hit+1%><%conn.Execute(sql)%>
    <%sql = "select * from count
    set rs=conn.execute(sql)
    %>
    <%
    "更新每周每日数据
    lasthit=rs("lasthit")
    tdate=year(Now()) & "-" & month(Now()) & "-" & day(Now())
    if trim(lasthit)=trim(tdate) then
    sql="update site set dayhit=dayhit+1 where id="&request("id")
    conn.Execute(sql)
    " response.write "success"
    else
    sql="update site set dayhit=1 where id="&request("id")
    conn.Execute(sql)
    " response.write "error"
    end if
    sql="update site set lasthit=""&tdate&"" where ID="&request("id")
    conn.Execute(sql)



    p_year=CInt(year(Now()))-CInt(year(lasthit))
    p_month=CInt(month(Now()))-CInt(month(lasthit))
    p_day=CInt(day(Now()))-CInt(day(lasthit))
    period_time=((p_year*12+p_month)*30+p_day)
    if cint(period_time)=<cint(7) then
    sql="update site set weekhit=weekhit+1 where id="&request("id")
    conn.Execute(sql)
    else
    sql="update site set weekhit=1 where id="&request("id")
    conn.Execute(sql)
    end if
    %>
    document.write("<tr><td width="100%">今日访问<%=rs("dayhit")%>次,本周访问<%=rs("weekhit")%>次,总访问<%=rs("hit")%>次</td></tr>");
    <%rs.close
    set rs=nothing%>


    "用<script language="JavaScript1.1" src="count.asp"></script>在要统计的页面调用即可.

    建立数据库:建一个count的MDB库,再建一个表count,表中字段为
    hit 数字型
    dayhit 数字型
    weekhit 数字型
    lasthit 日期型

    • 如何轻松打造ASP计数器|计数器 相关文章:
    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全