心脏射频消融术图片:那位大侠帮忙看看 我的分页代码怎么分不了页

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("jiang.mdb")
exec="select * from er"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1

%>

<%
If Pageno <>1 Then
Response.Write " <A href=er.asp>第一页</A> "
Response.Write " <A href=er.asp?page=" & (Pageno-1) & ">上一页</A> "
Else
Response.Write " <FONT COLOR=#000000>第一页</FONT> "
Response.Write " <FONT COLOR=#000000>上一页</FONT> "
End If
If Pageno <> rs.PageCount Then
Response.Write " <A href=er.asp?page=" & (Pageno+1) & ">下一页</A> "
Response.Write " <A href=er.asp?page=" & (Rs.PageCount) & ">最后一页</A> "
Else
Response.Write " <FONT COLOR=#000000>下一页</FONT> "
Response.Write " <FONT COLOR=#000000>最后一页</FONT> "
End If
%>
</td>
<form name="form1" method="get" action="er.asp">
<td width="33%" height="22"> 跳转到第
<select name="page">
<%
For I = 1 To Rs.PageCount
Response.Write "<option>" & I & "</option>"
Next
%>
</select>
页 
<input name="submit" type="submit" Value="GO">
</td>
</form>
<td width="25%">当前位置：<%=pageno%>/<%=Rs.PageCount%>页</td>