"无限流"ASP 分页程序 升级版
      <% 'Option Explicit '-------------连接数据库------------'Dim rs,conn,strSQL 'strSQL="Driver={SQL Server};server=.;uid=sa;pwd=123456;database=mldata" 'strSQL="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&;Server.Mappath("mldata.mdb") 'Set conn=Server.CreateObject("Adodb.Connection") 'conn.Open strSQL 'If Err Then ' err.Clear ' Conn.close ' set Conn=nothing ' Response.Write "数据库连接出错." ' Response.End 'End If '-------------End 连接数据库-------------
    Dim smyx,sjsq smyx=30 '每页显示条数 sjsq=Timer'开始计时 '统计总记录数/总页数 '只在第一次读取数据库,以后就不用读取,速度加快 Dim szjl,szys szjl=Trim(request("szjl")) If len(szjl)>10 Then szjl="" End if If szjl="" Or Not IsNumeric(szjl) Then strSQL="Select count(id) As RecordSum From las_ads" Set rs=conn.Execute(strSQL,0,1) szjl=rs("RecordSum") rs.Close Set rs=Nothing End If szys=Abs(int(szjl/smyx*(-1))) 'End 统计总记录数/总页数
    '获取当前页 并做安全处理 Dim sdqy sdqy=Trim(Request("sdqy")) If sdqy="" Or not IsNumeric(sdqy) Then sdqy=1 ElseIf sdqy<=0 Then sdqy=1 Else
    sdqy=CLng(sdqy) End If If sdqy>szys Then sdqy=szys End if 'End 获取当前页 %>   <%Response.Write sdqy&;"/"&;szys&;"页总记录数: "&;szjl%> 首页 xml:namespace prefix = a href="#" onclick="javascript />上一页 下一页      id 标题 文件名 大小 尺寸 类别  <% '显示翻页内容函数
    Function sxnr(DispRecordNum) Dim n While Not(rs.Eof) And n"&;_ ""&;rs(0)&;""&;_ ""&;rs(1)&;""&;_ ""&;rs(2)&;""&;_ ""&;rs(3)&;""&;_ ""&;rs(4)&;""&;_ ""&;rs(5)&;""&;_ "" rs.MoveNext Wend End Function '结束翻页内容函数
    '开始 内容显示 Dim sdxs sdxs=(sdqy-1)*smyx + 1 '计算 sdxs id strSQL="Select Top "&;smyx&;" id,ti,fs,fc,fl,hy From las_ads " &; " Where 1=1 and id>"&; sdxs-1 &; " order by id" Set rs=conn.Execute(strSQL,0,1) sxnr(smyx)'调用 显示翻页内容函数 rs.Close Set rs=Nothing
    conn.Close Set conn=Nothing '结束 内容显示 %>    <%Response.Write sdqy&;"/"&;szys&;"页总记录数: "&;szjl%> 首页上一页 下一页    <% '-------- 计时结束----Respo
    nse.Write "
    程序执行时间:"&;(Timer-sjsq)*1000&;"毫秒" %>  //生成上一页 下一页的路径代码 function spag(func){ var sdqy=<%=sdqy%>; //取得当前页码 var szys=<%=szys%>; //取得页面总数 var szjl=<%=szjl%>;//取得记录总数 var BackUrl='pp.asp?sdqy='+(sdqy-1)+'&;szjl=' + szjl; var NextUrl='pp.asp?sdqy='+(sdqy+1)+'&;szjl=' + szjl;
     if(sdqy<=1 &;&; func=='back'){ location.href='#'; } else if(sdqy>=szys &;&; func=='next'){ location.href='#'; } else if(func=='back'){ location.href=BackUrl; } else if(func='next'){ location.href=NextUrl; } } 
    
    

原创

版权说明