asp最常用的分页函数

代码如下:

rs.open sql,conn,1,1
    if rs.eof and rs.bof then
     response.write "<p align='center'>还没找到文章</p>"
  else
   totalPut=rs.recordcount
   maxperpage=18
   if currentpage<1 then
    currentpage=1
    end if
   if (currentpage-1)*maxperpage>totalput then
      if (totalput mod maxperpage)=0 then
      currentpage=totalput\maxperpage
      else
      currentpage=totalput\maxperpage+1
      end if
   end if
    if currentpage=1 then
    showpage1 totalput,maxperpage,"infotype.asp?id="&request("id")
    showcontent()
    showpage totalput,maxperpage,"infotype.asp?id="&request("id")
    else
       if (currentpage-1)*maxperpage<totalput then
       rs.move (currentpage-1)*maxperpage
       dim bookmark
       bookmark=rs.bookmark
       showpage1 totalput,maxperpage,"infotype.asp?id="&request("id")
       showcontent
       showpage totalput,maxperpage,"infotype.asp?id="&request("id")
       else
       currentpage=1
       showpage1 totalput,maxperpage,"infotype.asp?id="&request("id")
       showcontent
       showpage totalput,maxperpage,"infotype.asp?id="&request("id")
       end if
    end if 
end if
%>
<%
  sub showcontent()
  %>
  <tr>
    <td height="20" class="blueback2"><div align="center">ID</div></td>
    <td class="blueback2"><div align="center"><a href="javascript:selectall()"><font color="#FFFFFF">选择</font></a></div></td>
    <td width="355" class="blueback2"><div align="center">信息标题</div></td>
    <td width="84" class="blueback2"><div align="center">更新日期</div></td>
    <td width="40" class="blueback2"><div align="center">点击</div></td>
    <td width="55" class="blueback2"><div align="center">添加人</div></td>
    <td width="44" class="blueback2"><div align="center">编辑</div></td>
    <td width="43" class="blueback2"><div align="center">删除</div></td>
    <td width="62" class="blueback2"><div align="center">生成[<a href="javascript:void(null)" onClick="window.open('cshengcheng.asp','','width=0,height=0')"><font color="#FFFFFF">归零</font></a>]</div></td>
  </tr>  
  <%

i=1
   do while not rs.eof
%>

<tr>
    <td width="39" height="25" bgcolor="#D6DFF7"><div align="center"><%=rs("id")%></div></td>
    <td width="34" bgcolor="#D6DFF7"><div align="center">
           <input type="checkbox" name="dxyid" value="<%=rs("id")%>">
     </div></td>
    <td bgcolor="#D6DFF7"><a href="Article_show.asp?id=<%=rs("id")%>" target="_blank">[<%=rs("type_id")%>]<%thetitle1=rs("title")
    strcounts=truelen(thetitle1)
    response.write thetitle1
    %></a></td>
    <%
    datetime=rs("datetime")
    yname=year(datetime)
mname=month(datetime)
if len(mname)<2 then mname="0"&mname
dname=month(datetime)
if len(dname)<2 then dname="0"&dname
foldername=yname&mname
    %>
    <td bgcolor="#D6DFF7"><div align="center"><a href="<%=htmlfolder%><%=foldername%>/<%=rs("id")%>.htm" title="查看生成的静态页面" target="_blank"><%=rs("datetime")%></a></div></td>
    <td bgcolor="#D6DFF7"><div align="center"><%=rs("hits")%></div></td>
    <td bgcolor="#D6DFF7"><div align="center"><%=rs("author")%></div></td>
    <td bgcolor="#D6DFF7"><div align="center"><a href="news_edit.asp?dxy_id=<%=rs("id")%>">修改</a></div></td>
    <td bgcolor="#D6DFF7"><div align="center"><a href="javascript:delxx(<%=rs("id")%>)">删除</a></div></td>
    <td bgcolor="#D6DFF7"><div align="center"><a href="javascript:makehtml(<%=rs("id")%>)">生成(<a href="javascript:void(null)" onClick="window.open('cshengcheng.asp?id=<%=rs("id")%>','','width=0,height=0')"><%=rs("shengcheng")%>)</a></div></td>
  </tr>
  <%
  i=i+1
   if i>maxperpage then exit do
  rs.movenext  
  loop
  %>
  <tr>
    <td height="20" class="blueback2"><div align="center">ID</div></td>
    <td class="blueback2"><div align="center"><a href="javascript:selectall()"><font color="#FFFFFF">选择</font></a></div></td>
    <td class="blueback2"><div align="center">信息标题</div></td>
    <td class="blueback2"><div align="center">更新日期</div></td>
    <td class="blueback2"><div align="center">点击</div></td>
    <td class="blueback2"><div align="center">添加人</div></td>
    <td class="blueback2"><div align="center">编辑</div></td>
    <td class="blueback2"><div align="center">删除</div></td>
    <td class="blueback2"><div align="center">生成</div></td>
  </tr>
  <%
  end sub    
  %>

<tr>
    <td height="20" colspan="9" bgcolor="#D6DFF7"><label>
       <input type="button" name="dxydo" value="全选" onClick="javascript:selectall()">
        <input type="submit" name="dxydo" value="删除" onClick="{if(confirm('确定要删除选择的信息吗')){document.formselect.submit();return true;}return false;}">
         <input type="submit" name="dxydo" value="生成">
         <input type="submit" name="dxydo" value="移动">
    </label></td>
    </tr>
    <%
    function showpage(totalnumber,maxperpage,filename)
    %>
  <tr>
    <td height="20" colspan="9" bgcolor="#D6DFF7">
    <%
dim n
if totalnumber mod maxperpage=0 then
n=totalnumber\maxperpage
else
n=totalnumber\maxperpage+1
end if
%>
<div align="center">共有<%=totalnumber%>/<%=maxperpage%>条,

当前页<%=currentpage%>/<%=n%> 
        <%if currentpage<2 then%>
        [首页] [上一页]
        <%else%>
        <a href="<%=filename%>"><font color="red">[首页]</font></a> <a href="<%=filename%>&page=<%=currentpage-1%>"><font color="red">[上一页]</font></a>
        <%end if%><% if n-currentpage<1 then%>
        [下一页] [尾页]<%else%><a href="<%=filename%>&page=<%=currentpage+1%>"><font color="red">[下一页]</font></a> <a href="<%=filename%>&page=<%=n%>"><font color="red">[尾页]</font></a>
        <%end if%>
        转到:<select name="dd" class="sle"

onChange="location.href=this.options[this.selectedIndex].value">
     <%for j=1 to n
     if currentpage=j then
     %><option value="<%=filename%>&page=<%=j%>" selected><%=j%></option>
     <%
     else
     %>
     <option value="<%=filename%>&page=<%=j%>"><%=j%></option>
     <%
     end if
     next
     %>
    </select>
    </div>    </td>
    </tr>
    <%
    end function
    %>
    <%
    function showpage1(totalnumber,maxperpage,filename)
    %>
  <tr>
    <td height="20" colspan="9" bgcolor="#D6DFF7">
    <%
dim b
if totalnumber mod maxperpage=0 then
b=totalnumber\maxperpage
else
b=totalnumber\maxperpage+1
end if
%>
<div align="center">共有<%=totalnumber%>/<%=maxperpage%>条,

当前页<%=currentpage%>/<%=b%> 
     <%
     dxystart=currentpage-5
     if dxystart<1 then dxystart=1
     dxyend=currentpage+5
     if dxyend>b then dxyend=b
     for dxy=dxystart to dxyend
     if dxy=currentpage then
     response.write "[<a href="&filename&"&page="&dxy&">"&"<font color=red>"&dxy&"</font>"&"</a>]"&" "
     else
     response.write "[<a href="&filename&"&page="&dxy&">"&dxy&"</font>"&"</a>]"&" "
     end if
     next
     %> 
    </div>    </td>
    </tr>
    <%
    end function
    %>
  </form>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

(0)

相关推荐

  • asp最常用的分页函数

    复制代码 代码如下: rs.open sql,conn,1,1     if rs.eof and rs.bof then      response.write "<p align='center'>还没找到文章</p>"   else    totalPut=rs.recordcount    maxperpage=18    if currentpage<1 then     currentpage=1     end if    if (curre

  • 收集整理的ASP的常用内置函数

    函数,就是该语言封装了的一个功能块,以方便用户的调用.比如"now()"在VBScript中就是一个能显示出当前日期和时间的函数.至于具体为什么能显示,则是该语言内核所定的,用户只需明白"now()"就是用来能显示日期时间的.那么,我们当前接触的VBScript还有其他什么功能的函数么? 1,日期/时间函数 这些函数包括对"年"."月"."日"."时"."分".&qu

  • Asp.Net实现的通用分页函数

    本文实例讲述了Asp.Net实现的通用分页函数.分享给大家供大家参考,具体如下: 功能: 1.每页设置显示9页,超过9页,点5页后的+1页显示(可以随便修改) 2.CSS样式自己可以设置 3.无任何咋代码产生,利于搜索引擎优化 分页程序 objPDS = new PagedDataSource(); objPDS.DataSource = dtTable.DefaultView;//绑定数据源 objPDS.AllowPaging = true; objPDS.PageSize =10;//分页

  • js实现ASP分页函数 HTML分页函数

    复制代码 代码如下: <!-- //ASP分页函数 function ShowListPage(page,Pcount,TopicNum,maxperpage,strLink,ListName){     var alertcolor = '#FF0000';     maxperpage=Math.floor(maxperpage);     TopicNum=Math.floor(TopicNum);     page=Math.floor(page);     var n,p;     i

  • asp 中常用的文件处理函数

    asp 中处理文件上传以及删除时常用的自定义函数 <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '所有自定义的VBS函数 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function DeleteFile(Filename) '删除文件 if Filename<>"&quo

  • 功能强大的php分页函数

    分页是每一个程序需要去理解的东西,学习过的几门语言中我发现分页原理都是一样的,下面为php初学者分析一下php分页实现与最后面补充了一个超级强大的分页函数. 文章内容分页主要有两个办法: 办法一.按字数控制进行分页 按字数分页办法简单易用,但效果不好. 大致思想:首先.设定每页能容纳的最大字数,然后.计算文章内容的总字数,再由总字数和单页最大字数计算出出总页数,这样整个分页的准备工作就已经做好了. 具体到每一页的显示内容可以通过内容截取来实现,比如:页容纳500字,文章内容有2200字,那么当页

  • asp.net+ajax简单分页实例分析

    本文实例讲述了asp.net+ajax简单分页实现方法.分享给大家供大家参考,具体如下: 这里涉及两个.aspx文件,一个叫Default.aspx,一个叫AjaxOperations.aspx,第一个用来显示一些测试数据,后一个用来对分页进行处理.js文件夹下面还有一个testJs.js的文件,它就是ajax操作的核心部分.不错,code is cheap.看代码: /*testJs.js*/ // 此函数等价于document.getElementById /document.all fun

  • asp长文章用分页符来分页显示

    需要注意的是 [ page ]需要删除中间的空格,因为与我们的后台分页重复,所以加了空格处理. 只是在文章添加时,在你想让它分页的地方加上分页符:"[ page ]"(当然这个符号你可以随便用,比如:[ page ].&&&.###.@@@--,只要它不会在文章要正常显示的地方出现就行了.) 我用了四个页面,输入页(index.asp).输入完成页(add.asp).文章列表页(view.asp).文章内容页(text.asp),前三个都是不用处理的页面,看下面

  • 浅谈ASP.NET常用数据绑定控件优劣总结

    本文的初衷在于对Asp.net常用数据绑定控件进行一个概览性的总结,主要分析各种数据绑定控件各自的优缺点,以便在实际的开发中选用合适的控件进行数据绑定,以提高开发效率. 因为这些数据绑定控件大部分都已经封装的很好了,稍微有一些基础的朋友都可以很容易的上手使用,所以本文不涉及具体控件的使用,只在于分析各自的优劣点,但是在下一篇文章里,我会主要讲一下ListBox.GridView.Repeater这三个数据绑定控件的"高效分页",ListBox和GridView内置的有分页,但是其效率太

  • Asp 解析 XML并分页显示源码

    Asp 解析 XML并分页显示,示例源码如下: 复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head>

随机推荐

其他