asp分页代码

<%
response.write "<form method=get>"
response.write "<center>※  總共有<font color=red>"&ors.recordcount&"</font>條新聞 | 共有<font color=red>"&total&"</font>頁"
response.write " | 每頁顯示<font color=red>"&ors.pagesize&"</font>條新聞 | 當前頁數:  第<font color=red>"&curpage&"</font>頁  ※"
response.write "<br>"

response.write "<a href=xwgl.asp?page=1>首頁</a> | "
if total=1 then
response.write "上一頁 | 下一頁"
elseif curpage=1 then
response.write "上一頁 | <a href=xwgl.asp?page="&curpage+1&">下一頁</a>"
elseif curpage=total then
response.write "<a href=xwgl.asp?page="&curpage-1&">上一頁</a> | 下一頁"
else
response.write "<a href=xwgl.asp?page="&curpage-1&">上一頁</a> | <a href=xwgl.asp?page="&curpage+1&">下一頁</a>"
end if
response.write " | <a href=xwgl.asp?page="&ors.pagecount&">尾頁</a>"
else
response.Write"<center><b>暫時無新聞</b></center>"
response.Write "<a title='添加新的新闻' href='tjxw.asp'><center>添加新聞</center></a>"
response.End()
end if
ors.close
set ors=nothing
conn.close
set conn=nothing
%>
<select name="page" size='1' class="l" onChange='javascript:submit()'>
  <%for i = 1 to total%>
  <option value='<%=i%>' <%if cint(curpage)=i then%> selected <%end if%>>第<%=i%>頁</option>
  <%next%>
< lect>