Asp 导出Excel

原创 2011年01月16日 14:16:00

<%
Dim xlWorkSheet
Dim xlApplication
Set xlApplication = Server.CreateObject("Excel.Application")
xlApplication.Visible = False
xlApplication.Workbooks.Add
Set xlWorksheet = xlApplication.Worksheets(1)
set oRS=Server.CreateObject("ADODB.Recordset")
if Request("ImportExcel")="ImportExcel" then
  'If Response.IsClientConnected Then 
'  Response.Flush 
'  Else 
'  Response.End
'  End If
  Response.Expires = 0
  Response.Expiresabsolute = Now() - 1
  Response.AddHeader "Content-type","application/octet-stream"
  Response.AddHeader "Accept-Ranges","bytes"
  Response.AddHeader "Content-Disposition","attachment; filename=kl178exp.xls"
  'Response.ContentType = "application/msexcel"
  sql =session("SQL")  
  oRS.open sql,conns,1,3,1
  xlWorksheet.Cells(1,1).Value = "用户名"
  xlWorksheet.Cells(1,2).Value = "真实姓名"
  xlWorksheet.Cells(1,3).Value = "用户类型"
  xlWorksheet.Cells(1,4).Value = "注册时间"
  xlWorksheet.Cells(1,5).Value = "首次登录时间"
  xlWorksheet.Cells(1,6).Value = "最后登录时间"
  xlWorksheet.Cells(1,7).Value = "使用频率"
  xlWorksheet.Cells(1,8).Value = "停留时间"
  xlWorksheet.Cells(1,9).Value = "券商名称"
  xlWorksheet.Cells(1,10).Value = "业务员"
  xlWorksheet.Cells(1,1).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,2).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,3).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,4).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,5).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,6).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,7).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,8).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,9).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,10).Interior.ColorIndex=16
  xlWorksheet.Cells(1,4).ColumnWidth=20
  xlWorksheet.Cells(1,5).ColumnWidth=20
  xlWorksheet.Cells(1,6).ColumnWidth=20
  
  iRow = 2
  If Not oRS.EOF Then
   Do Until oRS.EOF
  xlWorksheet.Cells(iRow,1).Value = oRS("UserName")
  xlWorksheet.Cells(iRow,2).Value = oRS("realName")
  xlWorksheet.Cells(iRow,3).Value = GetUserType(oRS("Usertype"))
  xlWorksheet.Cells(iRow,4).Value = FormatDate(oRS("RegisterTime"))
  xlWorksheet.Cells(iRow,5).Value = FormatDate(oRS("FirstLoginTime"))
  xlWorksheet.Cells(iRow,6).Value = FormatDate(oRS("LastLoginTime"))
  xlWorksheet.Cells(iRow,7).Value = oRS("UsedGroup")
  xlWorksheet.Cells(iRow,8).Value = oRS("UsedTime")
  xlWorksheet.Cells(iRow,9).Value = GetCompanyNameByID(oRS("CompanyID"))
  xlWorksheet.Cells(iRow,10).Value =oRS("introducer")
  iRow = iRow + 1
  oRS.MoveNext
  Loop
  End If
   rannum=int(1000*rnd)
   YoureIp=trim(Request.ServerVariables("REMOTE_ADDR"))
   YoureIp=left(YoureIp,len(YoureIp)-4)
   YoureIp=replace(YoureIp,".","")
  rndfile=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&rannum&YoureIp
  strFile = rndfile
  xlWorksheet.SaveAs Server.MapPath(strFile & ".xls")
  xlApplication.Quit
  'Close the Workbook
  Set xlWorksheet = Nothing
  Set xlApplication = Nothing
  response.Redirect(strFile & ".xls")
end if

%>

相关文章推荐

C#数据库数据导入导出系列之一 ASP.NET Excel导入Sql Server数据库

C#数据库数据导入导出系列之一 ASP.NET Excel导入Sql Server数据库 在日常的项目中,Excel,Word,txt等格式的数据导入到数据库中是很常见的,我在这里做一下总结 这里...
  • cpcpc
  • cpcpc
  • 2011年12月01日 09:11
  • 15934

Asp.Net 导出数据格式为Excel 数据的9种方案

备自动识别行号,字符,格式化数字等功能,例如:如果你在Excel 单元格中输入数字 "123456789012" 会自动转化为"1.23457E+11"。 背景介绍 正因为Excel的强大...

ASP.NET 导出不规则表格到Excel

public static void ExportIrregularTable2Excel(DataTable dt1) { System.Web.HttpCo...

asp 页面数据导出为word或者excel

1. 快速导入方法: 在页面内加入下面的代码 EXCEL WORD

ASP.NET NPOI Excel导入、导出,高级、全面、总结版

正式Excel导入,导入的数据千奇百怪,最重要的是复杂表头的导入。遇到复杂表头的时候,可以用代码先把多余的表头行删除,只留下对应数据库表的那一行即可。代码适用于大量数据的导入,而且处理速度杠杠的,对导...

asp.net 通过 Handler 导出数据至excel (让用户下载)

效果图: 代码: Export2Excel.ashx   Export2Excel.ashx.cs using System; using System.Collections.Gen...

ASP.net 把 DataGrid 数据导出到 Excel .

protected void ExportExcel(DataGrid dtgList, string strFileName)         {             DataTable d...

ASP.NET使用NPOI类库导出Excel

1 using System;2 using System.Collections.Generic;3 using System.Data;4 using System.IO;5 using Syst...

ASP.NET导出数据到Excel

OutPutExcel 文件名: 接下来是cs页面里的代码 using System; using System.Collect...

ASP.NET常用的2种导出EXCEL方式~(更新ING)

本博文主要论述了ASP.NET 中常用的一些Excel导出方式~
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Asp 导出Excel
举报原因:
原因补充:

(最多只允许输入30个字)