search

codegooglecom / easyasp

Automatically exported from code.google.com/p/easyasp
0 stars 0 forks source link

一个非常急的问题 关于翻页 #30

Open GoogleCodeExporter opened 9 years ago

GoogleCodeExporter commented 9 years ago 
这里是代码
<%
Dim conn
Set conn = Easp.db.OpenConn(0,"test","sa:sa@127.0.0.1")  'sql server 2000
Easp.db.dbConn = conn

 Dim rsMain
 Set rsMain = Easp.db.GetPageRecord("0:25",Array
("worker:id,departid,jobsid,pername,moblie,email,qq","","id desc",""))  
 Easp.db.SetPager "default", "<div class=""pager"">{first}{prev}{liststart}
{list}{listend}{next}{last}  共{recordcount}条, 每页{pagesize}条, 
{pageindex}/{pagecount}页, 转到{jump}页</div>", Array
("jump:select","jumplong:8")
%>
<table width="98%" border="1" cellpadding="0" cellspacing="0" 
style="border-collapse:collapse">
  <tr align="center">
    <th width="2%" align="center"><input type="checkbox" name="checkall" 
id="checkall" title="全部选中" onclick="checkAll(this)" /></th>
    <th width="13%">职员姓名</th>
    <th width="12%">隶属部门</th>
    <th width="12%">当前职务</th>
    <th width="12%">手机号码</th>
    <th width="22%">E-Mail</th>
    <th width="13%">QQ号码</th>

  </tr>
  <%
For i = 1 To rsMain.PageSize 
 If rsMain.Eof Then Exit For
%>
  <tr height="25">
    <td title="选中这条记录，以执行相关操作" align="center"><input 
type="checkbox" name="id" value="<%=rsMain("id")%>" /></td>
    <td>&nbsp;<a href="?action=view&id=<%=rsMain("id")%>" title="点击查看详
细信息"><%=rsMain("pername")%></a></td>
    <td>&nbsp;<%=rsMain("departid")%></td>
    <td>&nbsp;<%=rsMain("jobsid")%></td>
    <td>&nbsp;<%=rsMain("moblie")%></td>
    <td>&nbsp;<%=rsMain("email")%></td>
    <td>&nbsp;<%=rsMain("qq")%></td>
  </tr>
  <%
rsMain.MoveNext()   
Next 
%>
  <tr>
    <td colspan="7" style="padding-top:8px;" align="center" title="您可以在
这里操作翻页信息"><% Easp.w Easp.db.GetPager("default")  %></td>
  </tr>
</table>

问题
  1、并不能循环出来25 条
  2、当我翻第二页的时候，总是提示 数据库已关闭的问题，即  
ADODB.Recordset  '800a0e78' 

这是怎么回事

谢谢

Original issue reported on code.google.com by latimer...@gmail.com on 6 May 2009 at 5:17

GoogleCodeExporter commented 9 years ago 
循环用

While Not rsMain.Eof

...

rsMain.MoveNext() : Wend

试试

Original comment by LiaoYi...@gmail.com on 7 May 2009 at 3:57

GoogleCodeExporter commented 9 years ago 
这样不可以的

Original comment by latimer...@gmail.com on 7 May 2009 at 4:16

GoogleCodeExporter commented 9 years ago 
为什么不可以？

Original comment by LiaoYi...@gmail.com on 7 May 2009 at 4:27

GoogleCodeExporter commented 9 years ago 
[deleted comment]
GoogleCodeExporter commented 9 years ago 
MSSQL Server 
的Array条件分页时，必须要有第4个参数，以表明主键的字段��
�
Easp.db.GetPageRecord("0:25",Array("worker:id,departid,jobsid,pername,moblie,ema
il,qq
","","id desc","id")

Original comment by Tainray@gmail.com on 11 May 2009 at 12:10