谢谢各位，这个问题已经解决了。

代码，
<%
dim rs,sql,nd_depart,page
nd_depart=request.form("nd_depart")
'if nd_depart<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from [nd_msg] where [nd_depart]='"&nd_depart&"'"
rs.open sql,conn,1,1
rs.pagesize=10
page=cint(request("page"))
if page<=0 then page=1
      if page="" then page=1
rs.absolutepage=page《提示出错的一行》%>