标题:asp如何将记录集导出excel
只看楼主
llylads
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-1-11
结帖率:0
已结贴  问题点数:20 回复次数:12 
asp如何将记录集导出excel
asp如何将记录集导出excel
搜索更多相关主题的帖子: asp 记录 excel 
2010-01-11 11:11
ysf0181
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:55
帖 子:914
专家分:2385
注 册:2006-10-4
得分:20 

    做个提交按钮,在你要导出的数据,通过传过去的数据值,查询表,导出。。例如,传递给值 id
页面在表格

把读出的数据用<table>格式,在网页中显示出来,同时,加上下一句即可把EXCEL表在客客户端显示。
   
<%response.ContentType ="application/vnd.ms-excel"%>
   
  注意:显示的页面中,只把<table>输出,最好不要输出其他表格以外的信息。

ASP讨论QQ群:251346273
2010-01-11 11:22
llylads
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-1-11
得分:0 
谢!
2010-01-11 11:29
llylads
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-1-11
得分:0 
上千条记录导不出怎么办?
2010-01-24 10:43
llylads
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-1-11
得分:0 
<%response.ContentType ="application/vnd.ms-excel"%>导出记录条数受限制吗?,如何争解决,还有其他办法吗?
2010-01-24 10:51
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:0 
2010-01-24 13:11
llylads
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-1-11
得分:0 
谢谢yms123!
2010-01-24 16:37
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-01-27 12:08
llylads
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-1-11
得分:0 
请问:asp 如何查找介于两个号码字段之间的记录
2010-02-02 22:41
孤独冷雨
Rank: 10Rank: 10Rank: 10
来 自:安徽滁州
等 级:贵宾
威 望:23
帖 子:1246
专家分:1909
注 册:2007-6-4
得分:0 

有如下SQL SELECT语句
SELECT * FORM 工资表 WHERE 基本工资<=2000 AND 基本工资>=1500
下列与该语句等价的
A)SELECT * FORM 工资表 WHERE 基本工资 BETWEEN 1500 AND 2000
B)SELECT * FORM 工资表 WHERE 基本工资 BETWEEN 2000 AND 1500
C)SELECT * FORM 工资表 WHERE 基本工资 FROM 1500 INTO 2000
D)SELECT * FORM 工资表 WHERE 基本工资 FROM 2000 INTO 1500

这里有男女系列成人用品,有时间兄弟们来看一看.
51za.
2010-02-03 08:36



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




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

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