新三国拍的怎么样:大家帮我看一下分页好吗?原因不明

我建了一个叫:function.asp的文档.
内容为:
<%'分页函数相关参数预设置~~~~~~~~!
dim page
page=Request("page")
if page="" or page<0 then page=1
if not IsNumeric(page) then
Response.write("<script>alert('页数请输入数字！！')</script>")
page=1
end if
'开始分页~~~~~~~~~~!
sub wpage(fcrs,pageurl)
dim ipagecount
ipagecount=fcrs.pagecount
if right(pageurl,1)<>"&" and right(pageurl,1)<>"?" then pageurl=pageurl+"?"
Response.Write("当前为第 <font color='#F00000'>"&page&"</font> 页/共 "&fcrs.pagecount&" 页")
Response.Write("  ")
if page<=1 then
Response.Write("<font color=#999999>首页  上一页</font>")
else
Response.Write("<a class='link04' href='"&pageurl&"page=1'>首页</a>")
Response.Write("  ")
Response.Write("<a class='link04' href='"&pageurl&"page="&page-1&"'>上一页</a>")
end if
Response.Write("  ")
if page>=ipagecount then
Response.Write("<font color=#999999>下一页  末页</font>")
else
Response.Write("<a class='link04' href='"&pageurl&"page="&page+1&"'>下一页</a>")
Response.Write("  ")
Response.Write("<a class='link04' href='"&pageurl&"page="&fcrs.pagecount&"'>末页</a>")
end if
Response.Write("  ")
Response.Write("转到第 ")
Response.Write("<select name='pagemenu' onChange='window.location=this.options[this.selectedIndex].value'>")
for i=1 to fcrs.pagecount
Response.Write("<option value='"&pageurl&"page="&i&"' ")
if i=cint(page) then Response.write(" selected")
Response.Write(">"&i)
next
Response.Write("</select>")
Response.Write(" 页")
end sub%>
在产品和新闻分页中调用它(rs,"news.asp")
但是直接地址:news.asp可以显示上下页链接正常,而当news.asp?page=1时,下一页都变成灰色.(我的数据远不只一页,用select跳转可以跳到)

请教大虾是怎么回事?
还有要补充的是:我把page>=ipagecount改成数字如page>=10则正常.但实际中添加信息是客户控制的,不可能用数字呀
求救~!