asp的数据库怎么导出到excel文件(asp excel导出)

编程知识 18
今天给各位分享asp的数据库怎么导出到excel文件的知识,其中也会对asp excel导出进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!ASP如何让数据库的数据导出为Excel格式?要详细说明?代码或步骤都行! %'文 件 名:excel.asp'文件功能:生成EXCEL文件'作 者:高明

今天给各位分享asp的数据库怎么导出到excel文件的知识,其中也会对asp excel导出进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!

ASP如何让数据库的数据导出为Excel格式?要详细说明?代码或步骤都行!

%

'文 件 名:excel.asp

'文件功能:生成EXCEL文件

'作 者:高明

'创建时间:2006-03-14

%

生成EXCEL文件...

%

Dim sqlStr,type2,start,over

type2=request.form("select")

start=request.form("start_date")

over=request.form("end_date")

set rs=server.CreateObject("adodb.recordset")

If type2="1" then

sqlStr="select corporation,register_capi,register_date,register_addr,legal_repr,storage_capi,storage_term,storage_powe,tel,m_tel,linkman,licence,inputdate from mart_food where inputdate between '"start"' and '"over"'"

ElseIf type2="2" Then

sqlStr="select corporation,quality,register_addr,office_addr,year_date,year_circs,linkman,tel,m_tel,remark,inputdate from mart_food where inputdate between '"start"' and '"over"'"

End if

rs.open sqlStr,conn,3,4

set xlApp = Server.CreateObject("Excel.Application")

'使服务端不出现Excel窗口

xlApp.Visible = false

'建立一个worksheet

set myWorkbook = xlApp.Workbooks.Add

set myWorksheet = myWorkbook.Worksheets(1) '设置工作区

'建立表头

If type2="1" Then

myWorksheet.Range("A1").Value =" 办理《粮食收购许可证》情况台帐 "

myWorksheet.Range("A1").Font.Size = 20

myWorksheet.Range("A1").Font.Bold = true '字体加粗

如何将asp中把数据导出为excel

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312" /

title无标题文档/title

style type="text/css"

table {

border-top:1px solid #003399;

border-left:1px solid #003399;

}

td {

border-right:1px solid #003399;

border-bottom:1px solid #003399;

}

thead {

background-color:#000066;

font-weight:bold;

padding:5px;

color:#FFFFFF;

}

/style

script language="javascript"

function tableToExcel(){

location.href='?action=1';

}

/script

/head

body

input type="button" value="导出数据" onclick="tableToExcel()" /

%

ConnStr="..."

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open connstr

set rs = server.CreateObject("adodb.recordset")

rs.open "select top 10 * from [你的表名]",conn,1,1

if not (rs.eof and rs.bof) then

column = rs.fields.count

response.Write("table cellpadding='0' cellspacing='0'")

response.Write("theadtd序号/td")

for each f in rs.fields

response.Write("td" f.name "/td")

next

response.Write("/thead")

for j = 1 to rs.recordcount

if j 5 then '在第五条的时候隐藏数据,经过测试如果是display为none的数据是不会导出来的

response.Write("tr style='display:none'")

else

response.Write("tr")

end if

response.Write("td" j "/td")

for i = 0 to column - 1

response.Write("td" rs(i) "/td")

next

response.Write("/tr")

rs.movenext

next

response.Write("/table")

end if

rs.close

set rs = nothing

conn.close

set conn = nothing

%

/body

/html

ASP页面查询到的数据怎样导出到Excel表格?

两种方式:

前提:建立一个excel模版

把datagrid的数据提交过去,读取excel模版,把接收到的数据进行填充

重新执行一次datagrid的查询方法,得到查询数据,读取excel模版,把查询到的数据进行填充

用ASP如何实现从数据库中读取数据并导出EXCEL

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%

%

on error resume next

Response.Buffer = True

Response.ContentType = "application/vnd.ms-excel"

Response.AddHeader "content-disposition", "inline; filename = 楼盘团购报名表"cstr(date())".xls"

dim rs,sql, sCount

sql = "SELECT * FROM [LouPan_Buy] ORDER BY ItemName ASC, ID DESC"

set rs=server.CreateObject("adodb.recordset")

rs.open sql,conn,1,1

sCount = rs.recordcount

%

asp的数据库怎么导出到excel文件的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于asp excel导出、asp的数据库怎么导出到excel文件的信息别忘了在本站进行查找喔。

asp的数据库怎么导出到excel文件
扫码二维码