深圳韵达服装电脑压褶:分页的时候数字的显示格式问题

分页程序：
<%
page=1
rs.PageSize = 1
if Not IsEmpty(Request("Page")) then
Page = CInt(Request("Page"))
if Page > rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif Page <= 0 then
Page = 1
else
rs.AbsolutePage = Page
end if
End if
Page = rs.AbsolutePage
For i = 1 to rs.PageSize
response.write("<img src="&rs("img")&">")
if rs.EOF then
Exit For
end if
%>
</p>
<div align=center>
<form action="comic_3_hzw_420_001.asp">
<%
rs.movenext
next
%>
<%if page=1 or page<1 then page=1%>
<%if page>1 then page=PageCount%>
<a href="comic_3_hzw_420_001.asp?Page=<%=page-1%>">上一页--</a>
<%
if page>1 then a=1
if page>2 then a=2
if page>3 then a=3
if page>4 then a=4
if page>5 then a=5
if page>6 then a=6
if page>7 then a=7
if page>8 then a=8
for i=page-a to page-1 %>
<a href="comic_3_hzw_420_001.asp?Page=<%=i%>">--[<%=i%>]--</a>
<% next %>
<%
for i=page+1 to page+8
if i>rs.PageCount then exit for
%>
<a href="comic_3_hzw_420_001.asp?Page=<%=i%>">--[<%=i%>]--</a>
<%
next
%>
<% if page=rs.PageCount or page>rs.PageCount then %>
<% else %><a href="comic_3_hzw_420_001.asp?Page=<%=page+1%>">--下一页</a>
<% end if %>
</form>
</div>

显示出来是
上一页--[2]--...这里不写了--下一页
高手指教``怎么才能显示成
上一页--[1]----[2]--......这里不写了--下一页
这种形式呢？
实现上一页的那里写错了`应该是
<%if page>1 then%>
<a href="comic_3_hzw_420_001.asp?Page=<%=page-1%>">上一页--</a>
<%end if%>

另外``如何让他翻到最后一页的时候“下一页”不在显示或者不再是超级连接？