在动态页中上一页 下一页 首页和尾页的代码是啥

在网页设计中 上一页 下一页 首页和尾页的代码是什么 告诉我 谢拉

分页显示代码：

<%
Dimpage_no'分页显示
IfRequest.QueryString("page_no")=""Then
page_no="1"
Else
page_no=CInt(Request.QueryString("page_no"))'CInt函数表示将字符串转换为整数
EndIfSetrs=Server.CreateObject("ADODB.Recordset")
rs.Open"Select*Fromguizhangorderbyadd_timedesc",conn,3,3
y=0
ifnotrs.eofandnotrs.bofthen
rs.PageSize=20
dimpage_total
page_total=rs.PageCount
rs.AbsolutePage=page_no
DimI
I=20
y=0
DoWhileNotrs.EofAndI>0
I=I-1
y=y+1
%>

<%=y%>."><%=left(rs("title"),25)%>

<%rs.movenext
loop%>


<%Response.Write"

共有"&page_total&"页，"
Response.Write"当前显示第"&page_no&"页，"DimnumPre,numNext
numPre=page_no-1
numNext=page_no+1
Response.Write"第一页"
IfnumPre=0Then
Response.Write"上一页"
Else
Response.Write"上一页"
EndIf
IfnumNext>page_totalThen
Response.Write"下一页"
Else
Response.Write"下一页"
EndIf
Response.Write"最后页"
%>


<%else%>



还没有添加相应的规章制度

<%
endif
rs.close
%>

分页显示代码： &lt;tablewidth="95%"border="0"align="center"cellpadding="0"cellspacing="0"&gt; &lt;% dimpage_no'分页显示 ifrequest.querystring("page_no")=""then page_no="1" else page_no=cint(request.querystring("page_no"))'cint函数表示将字符串转换为整数 endifsetrs=server.createobject("adodb.recordset") rs.open"select*fromguizhangorderbyadd_timedesc",conn,3,3 y=0 ifnotrs.eofandnotrs.bofthen rs.pagesize=20 dimpage_total page_total=rs.pagecount rs.absolutepage=page_no dimi i=20 y=0 dowhilenotrs.eofandi&gt;0 i=i-1 y=y+1 %&gt; &lt;tr&gt; &lt;tdheight="20"&gt;&lt;%=y%&gt;.&lt;ahref="gzdetail.asp?id=&lt;%=rs("id")%&gt;"&gt;&lt;%=left(rs("title"),25)%&gt;&lt;/a&gt;&lt;/td&gt; &lt;/tr&gt; &lt;%rs.movenext loop%&gt; &lt;tr&gt; &lt;tdheight="20"align="center"&gt; &lt;%response.write"&lt;p&gt;共有"&page_total&"页，" response.write"当前显示第"&page_no&"页，"dimnumpre,numnext numpre=page_no-1 numnext=page_no+1 response.write"&lt;ahref='guizhang.asp?dd="&dd&"&zhidu_ser="&zhidu_ser&"&zhidu_type="&zhidu_type&"&page_no=1'&gt;第一页&lt;/a&gt;" ifnumpre=0then response.write"上一页" else response.write"&lt;ahref='guizhang.asp?dd="&dd&"&zhidu_ser="&zhidu_ser&"&zhidu_type="&zhidu_type&"&page_no="&numpre&"'&gt;上一页&lt;/a&gt;" endif ifnumnext&gt;page_totalthen response.write"下一页" else response.write"&lt;ahref='guizhang.asp?dd="&dd&"&zhidu_ser="&zhidu_ser&"&zhidu_type="&zhidu_type&"&page_no="&numnext&"'&gt;下一页&lt;/a&gt;" endif response.write"&lt;ahref='guizhang.asp?dd="&dd&"&zhidu_ser="&zhidu_ser&"&zhidu_type="&zhidu_type&"&page_no="&page_total&"'&gt;最后页&lt;/a&gt;" %&gt; &lt;/td&gt; &lt;/tr&gt; &lt;%else%&gt; &lt;tr&gt; &lt;tdheight="20"align="center"&gt;&lt;br/&gt;&lt;br/&gt;还没有添加相应的规章制度&lt;/td&gt; &lt;/tr&gt; &lt;% endif rs.close %&gt; &lt;/table&gt;

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息