asp数据库导excel
来源:互联网 发布:知商金融风控 编辑:程序博客网 时间:2024/06/05 10:31
<!--#include file="Include/Functions.asp"-->
<%
'Response.ContentType = "application/vnd.ms-excel"
daytime=year(now())&"-"&month(now())&"-"&day(now())&"-"&hour(now())&"-"&Minute(now())
set rs=server.createobject("adodb.recordset")
sql="select * from T_title where ID=2"
rs.open sql,conn,1,1
Set ExcelApp =CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add
'ExcelBook.WorkSheets(1).cells(1,1).value ="用户表"
ExcelBook.WorkSheets(1).cells(2,1).value = "来信人姓名"
ExcelBook.WorkSheets(1).cells(2,2).value = "来信人联系电话"
ExcelBook.WorkSheets(1).cells(2,3).value = "IP地址"
ExcelBook.WorkSheets(1).cells(2,4).value = "信件主题"
ExcelBook.WorkSheets(1).cells(2,5).value = "信件内容"
ExcelBook.WorkSheets(1).cells(2,6).value = "处理单位"
ExcelBook.WorkSheets(1).cells(2,7).value = "处理状态"
cnt =3
do while not rs.eof
set rsc=server.CreateObject("adodb.recordset")
rsc.open"select bumen from T_bumen where ID="&trim(rs("chulibumen"))&"",conn,1,1
if not rsc.eof and not rsc.bof then
bumen=trim(rsc("bumen"))
end if
rsc.close
set rsc=nothing
ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("UserName")
ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("Tell")
ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("IP")
ExcelBook.WorkSheets(1).cells(cnt,4).value = rs("Title")
ExcelBook.WorkSheets(1).cells(cnt,5).value = rs("Content")
ExcelBook.WorkSheets(1).cells(cnt,6).value = bumen
ExcelBook.WorkSheets(1).cells(cnt,7).value = rs("zhutai")
rs.movenext
cnt = cint(cnt) + 1
loop
Excelbook.SaveAs "D:\"&daytime&".xls" '这个是数据导出完毕以后在D盘存成文件
ExcelApp.Application.Quit '导出以后退出Excel
Set ExcelApp = Nothing '注销Excel对象
'response.Write"<script>alert('"&daytime&"这个是数据导出完毕以后在D盘存成文件')<script>"
%>
- asp数据库导excel
- asp连接excel数据库
- ASP.NET数据库导入Excel
- ASP实现EXCEL导入数据库
- ASP.NET Excel 导入数据库
- asp.net EXCEL数据 导入到数据库
- asp.net 实现excel导入到数据库
- ASP实现Excel导入Access数据库
- ASP.NET导入Excel到数据库(SQL)
- asp.net 读取数据库生成excel
- [转]asp实现数据库导出excel文件
- ASP实现Excel导入Access数据库
- ASP.NET导入Excel到数据库(SQL)
- asp.netORACLE数据库导入EXCEL表
- asp将数据库导出到excel中
- asp.net 上传excel到数据库
- asp.net 如何将excel导入数据库
- ASP.NET Excel导入SQLserver 数据库中
- WordPress中文标题无法显示的解决方法
- 教儿经
- Windows Mobile引路蜂地图开发示例:准备开始
- demo03_进度指示器
- Oracle 报错 ORA-27101 Shared memory realm does not exist
- asp数据库导excel
- Freemarker自定义方法
- 制定计划第11次
- Android ListView元素间隙线自定义渐变效果
- RED HAT ES 5.4 X64安装ORACLE 10G R2 64bit
- Windows程序设计
- error: extra qualification ‘resip::LinkuMsgSocket::’ on member ‘parserRecved’ [-fpermissive]
- 集合类ArrayList的使用
- CppUnit 快速使用指南