ASP.NET 分页功能详尽指导

这里介绍一个asp常用的分页函数详细教程,方法很简单，感兴趣的朋友跟小编一起来了解一下吧!

代码如下:

rs.opensql,conn,1,1

ifrs.eofandrs.bofthen

response.write"还没找到文章='center'>

"

else

totalPut=rs.recordcount

maxperpage=18

ifcurrentpage

currentpage=1

endif

if(currentpage-1)*maxperpage>totalputthen

if(totalputmodmaxperpage)=0then

currentpage=totalput/maxperpage

else

currentpage=totalput/maxperpage+1

endif

endif

ifcurrentpage=1then

showpage1totalput,maxperpage,"infotype.asp?id="&request("id")

showcontent()

showpagetotalput,maxperpage,"infotype.asp?id="&request("id")

else

if(currentpage-1)*maxperpage

rs.move(currentpage-1)*maxperpage

dimbookmark

bookmark=rs.bookmark

showpage1totalput,maxperpage,"infotype.asp?id="&request("id")

showcontent

showpagetotalput,maxperpage,"infotype.asp?id="&request("id")

else

currentpage=1

showpage1totalput,maxperpage,"infotype.asp?id="&request("id")

showcontent

showpagetotalput,maxperpage,"infotype.asp?id="&request("id")

endif

endif

endif

%>

subshowcontent()

%>

ID

选择

信息标题

更新日期

点击

添加人

编辑

删除

生成[归零]

i=1

dowhilenotrs.eof

%>

">

"target="_blank">[]

strcounts=truelen(thetitle1)

response.writethetitle1

%>

datetime=rs("datetime")

yname=year(datetime)

mname=month(datetime)

iflen(mname)

dname=month(datetime)

iflen(dname)

foldername=yname&mname

%>

/.htm"title="查看生成的静态页面"target="_blank">

">修改

)">删除

)">生成(','','width=0,height=0')">)

i=i+1

ifi>maxperpagethenexitdo

rs.movenext

loop

%>

ID

选择

信息标题

更新日期

点击

添加人

编辑

删除

生成

endsub

%>

functionshowpage(totalnumber,maxperpage,filename)

%>

dimn

iftotalnumbermodmaxperpage=0then

n=totalnumber/maxperpage

else

n=totalnumber/maxperpage+1

endif

%>

共有/条，当前页/

[首页][上一页]

">[首页]&page=">[上一页]

[下一页][尾页]&page=">[下一页]&page=">[尾页]

转到：

onChange="location.href=this.options[this.selectedIndex].value">

ifcurrentpage=jthen

%>&page="selected>

else

%>

&page=">

endif

next

%>

endfunction

%>

functionshowpage1(totalnumber,maxperpage,filename)

%>

dimb

iftotalnumbermodmaxperpage=0then

b=totalnumber/maxperpage

else

b=totalnumber/maxperpage+1

endif

%>

共有/条，当前页/

dxystart=currentpage-5

ifdxystart

dxyend=currentpage+5

ifdxyend>bthendxyend=b

fordxy=dxystarttodxyend

ifdxy=currentpagethen

response.write"["&""&dxy&""&"]"&""=red>

else

response.write"["&dxy&""&"]"&""

endif

next

%>

endfunction

%>

rs.close

setrs=nothing

conn.close

setconn=nothing

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!