麻烦大虾帮我改下asp代码

<%
if page<=1 then
Response.Write("首页  ")
Response.Write ("上一页")
else
Response.Write("<a href='?tp="&tp&"&Page=1' class='list'>首页</a>  ")
Response.Write("<a href='?tp="&tp&"&Page=" & (Page-1) & "' class='list'>上一页</a>")

end if
response.write "  "
if page>=Rs.PageCount then
Response.Write ("")
Response.Write("  ")
else
Response.Write("<a href='?tp="&tp&"&Page=" & (Page+1) & "' class='list'></a>")
Response.Write("  <a href='?tp="&tp&"&Page=" & rs.pagecount & "' class='list'></a>")
end if

%>
------------------

给你一个功能更多的：
<%
page_num=rs.pagecount
StartPage = page - 5

if StartPage < 1 then StartPage = 1
LastPage = StartPage + 9
if LastPage > page_num then LastPage = page_num
if LastPage <> StartPage +9 then StartPage = LastPage - 9
if StartPage < 1 then StartPage = 1

wherestr=server.URLEncode(wherestr)
if page <> 1 then%>
<a href='?tp=<%=tp%>&Page=1' class='list'><<首页 </a>
<a href="?tp=<%=tp%>&page=<%=cstr(page-1)%>" class='list'><上页 </a>
<%else%>
<font color="#888888"><<首页 <上页</font>
<%end if%>
<%
for i=StartPage to LastPage
if i=page then %>
<font color=#CC0000><%=i%></font>
<% else%>