第一种，使用command对象，如下：
Set Cmd=server.CreateObject("Adodb.Command")
Cmd.ActiveConnection=conn
Cmd.CommandText="ycuu_gb_getmsg"
Cmd.CommandType=4'adCmdStoredProc
cmd.prepared=true'
set param=Cmd.CreateParameter("@iPageNo",adInteger,1,2,Page)
Cmd.Parameters.Append param
set param=Cmd.CreateParameter("@iPageSize",adInteger,1,2,PageSizeConst)
Cmd.Parameters.Append param
set rs=Cmd.execute
第二种，使用connection对象的执行方法直接执行，具体如下：
set rs=conn.execute ("execute ycuu_gb_getmsg "&page&", "&pagesizeConst)
二，不使用存储过程，直接使用ADODB.RecordSet的功能来分页，具体代码如下：
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * FROM Guestbook Order By dateandtime Desc"
rs.open sql,conn,1,1
rs.pagesize = 150'每页显示的留言数量，
total = rs.RecordCount
mypagesize = rs.pagesize
rs.absolutepage = page
