分页显示代码：
<table width=95% border=0 align=center cellpadding=0 cellspacing=0>
<%
Dim page_no
'分页显示
If Request.QueryString(page_no)= Then
page_no=1
Else
page_no=CInt(Request.QueryString(page_no)) 'CInt函数表示将字符串转换为整数
End If
Set rs = Server.CreateObject(ADODB.Recordset)
rs.Open Select * From guizhang order by add_time desc , conn,3,3
y=0
if not rs.eof and not rs.bof then
rs.PageSize=20
dim page_total
page_total=rs.PageCount
rs.AbsolutePage=page_no
Dim I
I=20
y=0
Do While Not rs.Eof And I>0
I=I-1
y=y+1
%>
<tr>
<td height=20 ><%=y %>.<a href=gzdetail.asp?id=<%=rs(id)%>><%=left(rs(title),25)%></a> </td>
</tr>
<% rs.movenext
loop %>
<tr>
<td height=20 align=center>
<% Response.Write <p>共有 & page_total & 页，
Response.Write 当前显示第 & page_no & 页，
Dim numPre,numNext
numPre=page_no-1
numNext=page_no+1
Response.Write <a href='guizhang.asp?dd=&dd&&zhidu_ser=&zhidu_ser&&zhidu_type=&zhidu_type&&page_no=1'>第一页</a>
If numPre=0 Then
Response.Write 上一页
Else
Response.Write <a href='guizhang.asp?dd=&dd&&zhidu_ser=&zhidu_ser&&zhidu_type=&zhidu_type&&page_no= & numPre & '>上一页</a>
End If
If numNext>page_total Then
Response.Write 下一页
Else
Response.Write <a href='guizhang.asp?dd=&dd&&zhidu_ser=&zhidu_ser&&zhidu_type=&zhidu_type&&page_no= & numNext & '>下一页</a>
End If
Response.Write <a href='guizhang.asp?dd=&dd&&zhidu_ser=&zhidu_ser&&zhidu_type=&zhidu_type&&page_no= & page_total & '>最后页</a>
%>
</td>
</tr>
<% else %>
<tr>
<td height=20 align=center><br /><br/>还没有添加相应的规章制度 </td>
</tr>
<%
end if
rs.close
%>
</table>
求一段简单的html代码
如果通过html来实现，只能通过JS来进行判断并执行跳转
补充下jaypha的答案，该代码放到<head>后面，并且要去掉第二行和倒数第二行
