标题:asp如何将记录集导出excel
只看楼主
llylads
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-1-11
得分:0 
请问以下代码,为何点击“下页”后,序号又从1开始,我要接上一序号,错在哪里?谢!
试例.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
set conn1=server.createobject("adodb.connection")
sql1 = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBc;SourceDb="&server.mappath("/qssjk.dbc")
conn1.open(sql1)
%>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * FROM snfhns "
%>
<%
rs1.activeconnection=conn1
rs1.open sql1,conn1,1,1
%>

<table>
<tr >   
<td>序号</td>   
<td>姓名</td>   
</tr>
<!--循环-->
<%   
if Not(rs1.bof and rs1.eof) then'判别数据表中是否为空记录
    NumRecord=rs1.recordcount '记录数
    rs1.pagesize=25           '每页行数
    NumPage=rs1.Pagecount     '总页数
        if request("page")=empty then
            NoncePage=1
        else
            if Cint(request("page"))<1 then
                NoncePage=1
            else
                NoncePage=request("page")
            end if
            if Cint(Trim(request("page")))>Cint(NumPage) then NoncePage=NumPage
        end if
else
    NumRecord=0 '记录数
    NumPage=0   '总页数
    NoncePage=0 '页号
end if
%>
<%
'序号
  if Request("offset")="" then
  i=1
  else
  i=Request("offset")+1
  end if      
'页数
if Not(rs1.bof and rs1.eof) then
    rs1.move (Cint(NoncePage)-1)*25,1
    for j=1 to rs1.pagesize
%>
<tr>   
<td><%= i %></td>
<td><%=rs1("县名")%></td>
</tr>   
<%
i=i+1
rs1.movenext
   if rs1.eof then exit for
      next
  else
     response.write "<tr><td>无记录!</td></tr>"
  end if
%>   
</table>

<!--分页显示-->
<table >
<tr>  
<td width="15%" align="center">
    <%
    if NoncePage>1 then
        response.write "<a href=试例.asp?page=1>首&nbsp;页</a>&nbsp;&nbsp;<a href=试例.asp?page="&NoncePage-1&">上&nbsp;页</a>&nbsp;&nbsp;"
    else
        response.write "首&nbsp;页&nbsp;&nbsp;上&nbsp;页&nbsp;&nbsp;"
    end if
    %>
</td>

<td width="15%" align="center">
    <%
    if Cint(Trim(NoncePage))<Cint(Trim(NumPage)) then
        response.write "<a href=试例.asp?page="&NoncePage+1&">下&nbsp;页</a>&nbsp;&nbsp;<a href=试例.asp?page="&NumPage&">尾&nbsp;页</a>"
    else
        response.write "下&nbsp;页&nbsp;&nbsp;尾&nbsp;页"
    end if
%>
</td>
<td width="70%">
&nbsp;页次:<%=NoncePage%>/<%=NumPage%> 共<font color="#0033CC"><%=NumRecord%>条记录&nbsp; </div>
</td>                       
</tr>
</table>

<%
rs1.close()
set rs1=nothing
%>
2010-02-07 21:15
llylads
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-1-11
得分:0 
我是问两个字段:发票号字段与发票号字段之间的发票号记录的查询,发票号是表单变量,位于起号与止号中间,sql语句怎么写,请帮助,谢!
2010-02-07 21:26
llylads
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-1-11
得分:0 
请问如下spl语句为什么查不出所需要的发票号,谢帮助!
<%
dim fph
fph=request("发票号")
if fph="" then
    response.write "发票号不能为空!!"
    response.end
end if
sql6="select b.县名,b.管理员,a.发票时间,a.f,a.领票人,a.发票名称,a.数量,a.份数,a.发票起号,a.发票止号 FROM fpfx as a,snfhns as b where a.f=b.f and  a.发票起号>="&fph-49&"and a.发票止号<="&fph+49
%>
2010-02-07 21:53



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-295434-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.926400 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved