asp分页

最新推荐文章于 2024-10-09 12:58:26 发布

antyi

最新推荐文章于 2024-10-09 12:58:26 发布

阅读量877

点赞数

分类专栏： asp技术汇总文章标签： asp input button class action 数据库

本文链接：https://blog.csdn.net/antyi/article/details/390410

版权

asp技术汇总专栏收录该内容

3 篇文章 0 订阅

订阅专栏

　　接触asp也有一段时间了，但许多都很少总结过，只是写呀写呀。需要的时候就去找原来做过

那些的源代码，然后copy上去。但有时记得不是太清楚，以至找到很辛苦也很生气。现在呀，有了这个blog，

有什么容易忘掉的技术，就把它写上来。

　　asp分页技术，是刚开始都要去学的。觉得在工作中也经常用到的。

'判断页码是否合法------------------------------------Begin
CurrentPage=Trim(Request.Form("hiddenPage"))

if CurrentPage="" then
   CurrentPage=1
else
   '依次判断每个字符是否为数字且第一个不能为0
   if left(CurrentPage,1)="0" then
      CurrentPage="1"
   end if
   for i=1 to Len(CurrentPage)
       dim ValidChar
    ValidChar="0123456789"
    '取第i个字符
    dim tmpChar
    tmpChar=right(left(CurrentPage,i),1)

    if Instr(1,ValidChar,tmpChar)=0 then
          CurrentPage="1"
    end if
   next
   CurrentPage=CInt(CurrentPage)
end if
'判断输入的页码是否合法------------------------------------End

<%'vvv 如果查询记录集不为空，分页显示记录集
'+++
'取得每页显示记录数
rs.PageSize=20

if CurrentPage>rs.PageCount then
CurrentPage=rs.PageCount
end if

CurrentPos=rs.PageSize*(CurrentPage-1) '为了在页面中按顺序(如1,2,3到1000)显示

rs.AbsolutePage = CurrentPage%>

<%
'分页显示数据
'dim ii
'ii = 0
for i=1 to rs.PageSize
CurrentPos=CurrentPos+1　'显示记录顺序数
'ii = ii + i
'输出表格content
%>

<p align=center>
目前共有<font color=#ff0000><%=rs.RecordCount%></font>条记录 <font color=#ff0000><%=CurrentPage%></font> /
<font color=#ff0000><%=rs.PageCount%></font>页
<form name=frmPage id=frmPage method=post action="StuScoreResult_not.asp">
<div align="center">
    <input type=hidden name=stu_level value="<%=stu_level%>">
    <input type=hidden name=fdzid value="<%=fdzid%>" >
    <input type=hidden name=studykindid value="<%=studykindid%>">
    <input type=hidden name=subjectid value="<%=subjectid%>">
    <input type=hidden name=userid value="<%=userid%>">
    <input type=hidden name=CourseID value="<%=strcourseid%>">
    <input type=hidden name=studentname value="<%=studentname%>">
    <input type=hidden name=txtTotalPage value="<%=rs.PageCount%>">
    <%
    if CurrentPage=1 then
       if rs.PageCount>1 then
          %>
    <input type=hidden name=hiddenPage value="<%=CurrentPage+1%>" ID="Hidden14">
    <input type=submit id=submitPage name=submitPage value="下一页" class="buttonface">
             
    <input type=button id=ToPage name=ToPage value="转到" οnclick="return CheckPage()" class="buttonface">
    第
    <input size=5 name=txtToPage maxlength=4 οnkeydοwn="if (event.keyCode==13) return false;" class="textface" ID="Text2">
    页
    <%
       end if
    elseif CurrentPage=rs.PageCount then
       if CurrentPage>1 then
          %>
    <input type=hidden name=hiddenPage value=<%=CurrentPage-1%> ID="Hidden15">
    <input type=submit name=submitPage value="上一页" class="buttonface" ID="Submit2">
             
    <input type=button name=ToPage value="转到" οnclick="return CheckPage()" class="buttonface" ID="Button1">
    第
    <input size=5 name=txtToPage maxlength=4 οnkeydοwn="if (event.keyCode==13) return false;" class="textface" ID="Text3">
    页
    <%
       end if
    else
       %>
    <input type=hidden name=hiddenPage value=<%=CurrentPage-1%> ID="Hidden16">
    <input type=button name=submitPage1 value="上一页" οnclick="PageSubmit('<%=CurrentPage-1%>')" class="buttonface" ID="Button2">
    <input type=button name=submitPage2 value="下一页" οnclick="PageSubmit('<%=CurrentPage+1%>')" class="buttonface" ID="Button3">
             
    <input type=button id="Button4" name=ToPage value="转到" οnclick="return CheckPage()" class="buttonface">
    第
    <input size=5 name=txtToPage maxlength=4 οnkeydοwn="if (event.keyCode==13) return false;" class="textface" ID="Text4">
    页
    <%
    end if
    %>
</div>
</form>