脸美白最有效的方法:asp代码分页显示小问题

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../connections/connection.asp" -->
<% Set rs= Server.CreateObject ("ADODB.RecordSet")
sql = "select * from tp "
rs.open sql, con,3,3
rs.pagesize =5
if rs.eof then
response.Write("数据库为空")
response.End()
end if
curpage = request.QueryString("curpage")
if curpage = "" then
curpage =1
end if
rs.absolutepage=curpage
response.Write"<p>"
response.Write"<table border= '1' align = center>"
currecord = 0
do while not rs.eof and currecord < rs.pagesize
response.Write"<tr>"
for i = 0 to rs.fields.count - 1
response.Write"<td>"&rs(i).value&"</td>"
next
rs.movenext
currecord = currecord + 1
loop
response.Write"</table>"
response.Write"</p>"
if curpage=1 then
response.Write("<a href =list.asp?curpage=1>")
response.Write("第一页")
response.Write(" </a>")
response.Write("<a href =list.asp?curpage="&curpage+1&">")
response.Write("下一页")
response.Write(" </a>")
response.Write("<a href =list.asp?curpage="&rs.pagecount&">")
response.Write("最后一页")
response.Write(" </a>")
elseif curpage = cint(rs.pagecount) then 'whywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhywhy
response.Write("<a href =list.asp?curpage=1>")
response.Write("第一页")
response.Write(" </a>")
response.Write("<a href =list.asp?curpage="&curpage-1&">")
response.Write("上一页")
response.Write(" </a>")
response.Write("<a href =list.asp?curpage="&rs.pagecount&">")
response.Write("最后一页")
response.Write(" </a>")
else
response.Write("<a href =list.asp?curpage=1>")
response.Write("第一页")
response.Write(" </a>")
response.Write("<a href =list.asp?curpage="&curpage-1&">")
response.Write("上一页")
response.Write(" </a>")
response.Write("<a href =list.asp?curpage="&curpage+1&">")
response.Write("下一页")
response.Write(" </a>")
response.Write("<a href =list.asp?curpage="&rs.pagecount&">")
response.Write("最后一页")
response.Write(" </a>")
end if
%>

<form action="list.asp" method="get">
总共<%= rs.recordcount %>记录
去

<select name="curpage">
<% for i = 1 to rs.pagecount %>
<option value="<%= i %>"><% =i %></option>
<% next
i = i +1
%>
</select>
页面
<input type="submit" name="Submit" value="Go">
<font color="#566000"><%= curpage %></font> / <font color="#FF0000"><%= rs.pagecount %></font>
</form>
大家看我标注why的地方，我是让如果显示最后一下的时候就不显示下一页的超链接可是我用变量跟rs.pagecount比较的话就不不行，如果我用一个具体的数字的话就可以，我该怎么办啊 ？怎么该，出什么问题了，请告收请教