带跳转的分页
<p style="FONT-SIZE: 16px">带跳转的分页</p><p>function fy(sql,page,pagelistnum,link)<br/> dim rs,znum,zpage<br/> page=cint(page) '将page转换为整型<br/> set rs=server.createobject("adodb.recordset")<br/> rs.open sql,conn,1,1<br/> znum=rs.recordcount '得到总记录条数<br/> zpage=znum\pagelistnum '总记录除以每页条数得到总页数<br/> if znum mod pagelistnum >0 then zpage=zpage+1<br/> response.Write("<form name=MyForm method=get>")<br/> response.write "共" & zpage & "页&nbsp;&nbsp;第" & page & "页&nbsp;&nbsp;"<br/> if page=1 then<br/> response.write "第一页&nbsp;&nbsp;上一页&nbsp;&nbsp;"<br/> else<br/> response.write"<a href=" & link & "&page=1> 第一页&nbsp;&nbsp;</a> <a href=" & link & "&page="&page-1&">上一页&nbsp;&nbsp;</a>"<br/> end if<br/> if page<zpage then<br/> response.write "<a href=" & link & "&page=" & page+1 & ">下一页&nbsp;&nbsp;</a> <a href=" & link & "&page=" & zpage & ">最后页&nbsp;&nbsp;</a>"<br/> else <br/> response.write "下一页&nbsp;&nbsp;最后一页&nbsp;&nbsp;"<br/> end if</p>
<p> '创建下拉列表<br/> Response.Write("第<select size=1 name=Page onchange=PageCurrent()>") <br/> For i=1 to zpage <br/> if page="" then <br/> if zpage=1 then Response.Write("<option selected>1</option>")<br/> Response.Write("<option selected>"&i&"</option>") ''当前页码<br/> else<br/> Response.Write("<option>"&i&"</option>")<br/> end if <br/> Next <br/> response.Write("</select></form>")<br/> rs.close<br/> set rs=nothing<br/>end function</p>
页:
[1]