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

    • 一个ASP统计制作实例

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

  • Connstr="DBQ="+server.mappath("cont.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

    Conn.Open connstr '*****以上语句用于连接库，cont.asp是库文件名。

    page3=request("pag")

    if page3="" then page3=session("contpag") '分页数，当前分页

    if page3="" then page3="1"

    pa=request("pa")

    if pa="" then pa=session("contpa") '每页显示数

    if pa="" then pa=15 '默认每页显示15条，可任意改

    session("contpag")=page3

    session("contpa")=pa

    pages=pa '每页显示数量***************以上一段程序用于实现分页功能

    SQL="SELECT * FROM tab order by -dat,-id"

    dim rs

    Set rs=Server.CreateObject("ADODB.RecordSet")

    rs.Open sql,conn,1,1

    csi=0

    cs1=0

    cs100=0

    csdat1=0

    do while not rs.eof

    csi=csi+rs("cs")

    if rs("cs")=1 then cs1=cs1+1

    if rs("cs")〉=100 then cs100+1

    if datevalue(rs("dat"))=date then

    csdat1=csdat1+1

    end if

    rs.movenext

    loop

    ZS=RS.RECORDCOUNT

    '*****************************************************8以下一段程序用于分页显示

    %〉

    〈head〉

    〈title〉卓越电脑统计〈/title〉

    〈/head〉

    〈body style="font-size: 9pt" bgcolor="#D8EDF8"〉

    共有〈%Response.Write zs%〉条记录，现在是第〈%Response.Write page3%〉页 每页显示：[〈a href="dispcont.asp?pag=〈%=page3%〉&pa=15"〉15]条、[〈a href="dispcont.asp?pag=〈%=page3%〉&pa=20"〉20]条、[〈a href="dispcont.asp?pag=〈%=page3%〉&pa=30"〉30]条、[〈a href="dispcont.asp?pag=〈%=page3%〉&pa=40"〉40]条

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