如何用asp取出从包内过程返回的记录表中的数据？

Question

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=1125里面有连接数据库的详细方法，http://www.aspcn.com/News/Show.aspx?id=314有连接oracle的例子。
连接数据库后的分页功能：http://www.aspcn.com/News/show.aspx?id=247这里有个详细的例子。rst.PageSize=30 '设置每页的记录数 rst.AutoPage=1'设置显示第几页。主要用到这两个东东

Answer 1

对了，本人才刚学Oracle， 还不知道你们说的包是什么意思，也不知道上面的资料对你们有没帮助。

Answer 2

我是男的。
可以介绍一下包是什么意思吗？我学学。ASP我原来用得到是多，Oracle才刚学。

Answer 3

to：飞雨：包类似于c＋＋里的类。

Answer 4

如果是返回记录集
参考
http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=23364
如果仅仅是打开表
rs.open,cn,3,2即可
利用rs.PageSize分页

Answer 5

<%
set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_conn_STRING
rs1.Source = "SELECT TITLENO, TITLE, CURRENTTIME, USERNAMENO, USERNAME, FORUMNO, STATS, NUM, TIMES, LASTMAN, LASTDATE, LASTNO FROM ZDWY.MESSAGE WHERE FORUMNO = '"&Request("FORUMNO")&"' ORDER BY LASTDATE DESC"
rs1.CursorType = 0
rs1.CursorLocation = 3
rs1.LockType = 3
rs1.Open()
%>
<%
  sub showpage(rs1,pageno)
    
rs1.absolutepage=pageno
for n=1 to rs1.pagesize
         response.write "<tr>"
         response.write "<TD align=middle width=30 ><A href='javascript:O1(62)'><IMG src='images/locktop.gif' width=15 border=0 height='15'></A></TD>" 
         response.write "<TD align=left width='369'>&nbsp;<A href='javascript:O2(62)'><IMG height=13 src='images/04.gif' width=13"
             response.write "align=absMiddle border=0></A>&nbsp;<SPAN id=forum>" 
             response.write "<A title="&rs1("title")&"nbsp;&#10;发布时间："&rs1("currenttime")&"nbsp; href='title.asp?forumno="&request("forumno")&"&forumname="&request("forumname")&"&titleno="&rs1("titleno")&"'>"&rs1("title")&"</A> </SPAN></TD>"
 response.write "<TD align=middle width=78 >" 
             response.write "<A href='data.asp?usernameno="&rs1("usernameno")&"'>"&rs1("username")&"</A></TD>"
 response.write "<TD align=middle width=30 ><FONT color=#333333>"&rs1("num")&"</FONT></TD>"
 response.write "<TD align=middle width=30 ><FONT color=#333333>"&rs1("times")&"</FONT></TD>"
 response.write "<TD align=middle width=120 >" 
                            if isnull(rs1("lastdate")) then
                       response.write rs1("currenttime")
                        else
                       response.write rs1("lastdate")
                    end if
 response.write "</TD>"
 response.write "<TD width=68 >" 
                            if isnull(rs1("lastman")) then
                  response.write  "......"
                else
                  response.write "<A href='data.asp?usernameno="&rs1("lastno")&"'>"&rs1("lastman")&"</a>"  
                end if
 response.write "</TD></TR>"
 rs1.movenext()
 if rs1.eof then exit for  
next  
   end sub
%><TABLE borderColor=#F2FBF1 cellSpacing=0 width=755 border=1>
    <TBODY> 
    <% 
  rs1.PageSize=20
   pageno=clng(request("pageno"))
   if pageno<1 then pageno=1
   if pageno>rs1.pagecount then pageno=rs1.pagecount
   showpage rs1,pageno
    %>
    </TBODY> 
  </TABLE>
  <TABLE cellSpacing=2 cellPadding=0 width=755 align=center>
    <TBODY> 
    <TR height=4></TR>
    <TR> 
<%
      response.write "<TD><B>共<FONT color=#990000>"&rs1.pagecount&"</FONT>页</B>"
  if pageno<2 then 
   response.write "<FONT face=webdings color=gray>9</FONT> <FONT face=webdings color=gray>7</FONT>"
  else 
         response.write "<a title=首页 class=hb href='../healbbs/forums.asp?forumno="&request("forumno")&"&forumname="&request("forumname")&"&pageno=1'>"
     response.write "<FONT face=webdings>9</FONT></a>"
     response.write "<a title=上一页 class=hb href='../healbbs/forums.asp?forumno="&request("forumno")&"&forumname="&request("forumname")&"&pageno="&(pageno-1)&"'>"
     response.write "<FONT face=webdings>7</FONT></a> "
       end if 
     response.write "["
   for i=1 to rs1.PageCount
     if pageno=i then
 response.write "&nbsp;<a  href='../healbbs/forums.asp?forumno="&request("forumno")&"&forumname="&request("forumname")&"&pageno="&i&"'>"&_
                           "<B><FONT color=#990000>"&i&"</FONT></B></a>&nbsp;"
     else
     response.write "&nbsp;<a  href='../healbbs/forums.asp?forumno="&request("forumno")&"&forumname="&request("forumname")&"&pageno="&i&"'>"&_
               "<B>"&i&"</B></a>&nbsp;"
 end if
   next
     response.write " ]"
   if pageno>rs1.PageCount-1 then
     response.write "<FONT face=webdings color=gray>8</FONT> <FONT face=webdings color=gray>:</FONT>"
   else
     response.write "<A title=下一页 class=hb href='../healbbs/forums.asp?forumno="&request("forumno")&"&forumname="&request("forumname")&"&pageno="&(pageno+1)&"'><FONT face=webdings>8</FONT></A>" 
         response.write "<A title=尾 页 class=hb href='../healbbs/forums.asp?forumno="&request("forumno")&"&forumname="&request("forumname")&"&pageno="&rs1.PageCount&"'>" 
         response.write "<FONT face=webdings>:</FONT></A>"
   end if 
   rs1.close()
   rs1.Source = "SELECT NUM, RENUM FROM ZDWY.FORUMS WHERE FORUMNO = '"&Request("FORUMNO")&"'"
   rs1.open()
     response.write "&nbsp;[主题<B>"&rs1("num")&"</B>篇，回复<B>"&rs1("renum")&"</B>篇]</TD>"
   rs1.close()
   set rs1.activeconnection=nothing
%>  
      </TR>
    </TBODY> 
  </TABLE>

Answer 6

是自定义的表类型，先要取出，再考虑在asp里分页。