Web页面数据导出方法概述之导出excel

新客网 XKER.COM 2005-01-18 来源： 收藏本文

前言：

随着BS体系结构的广泛使用，相对应的数据保存技术也要改进，对应Web页面，也就是我们通常认识到的HTML文件，由标示关键字与数据混合组成的文件。Web页面数据导出简单地说，就是分离数据与格式，同时保存数据为另外一种格式。

正文：

分析HTTP Response等文件头信息，对如何处理Web页面非常有用，下面简单地介绍几种常用的方法，算是在技术上学习，非理论上学习。

下面的代码分析如何通过修改http头文件，产生excel的文件供用户下载，以达到数据导出的功能。这种非实际在服务器端生成文件的优点就是，对于并发请求该页面的用户来说不会发生服务器端文件同名覆盖的问题！一般的解决方法有根据用户名，ip，随机数等。

Dim resp As HttpResponse

Dim colCount As Integer = MyDataGrid.Columns.Count - 1

resp = Page.Response

resp.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312") '解决中文乱码之关键

'resp.Charset = "utf-8"

'resp.AddFileDependency(FileName)

'resp.ContentType = "Text/HTML"

''resp.AppendHeader("Content-Type", "text/html; charset=gb2312")

resp.ContentType = "Text/csv" '通过修改文件类型可以让用户下载为csv类型的文件，修改text/**内容

resp.AppendHeader("Content-Disposition", "attachment;filename=" + FileName + ".csv") '必要，做成下载文件

'实际从下载的保存文件类型来看，可以使txt，可以html，可以xls，用户未必知道？且保存为xls的文件，数据包含在一列内

Dim colHeaders As String = ""

'Imports System.Text

Dim strItems As StringBuilder = New StringBuilder

Dim myCol As DataGridColumn

Dim i As Integer

For i = 0 To colCount

myCol = MyDataGrid.Columns(i)

If myCol.Visible = True Then

colHeaders = colHeaders & myCol.HeaderText.ToString & ","

End If

Next

If colHeaders.Length > 0 Then

colHeaders = colHeaders.Substring(0, colHeaders.LastIndexOf(","))

End If

colHeaders = colHeaders & Chr(13) & Chr(10)

resp.Write(colHeaders)

Dim colRow As String

Dim item As DataGridItem



For Each item In MyDataGrid.Items

resp.Write(FormatExportRow(colCount, item, MyDataGrid))

‘将数据写入对应的单元格

Next item

resp.End()

也有描述如何将水晶报表导出为PDF文件保存的代码，但是这种方式以及具体实现的过程，还在研究中。基本的想法是可以通过pdf然后利用插件打开，或者直接保存PDF

• ·身份证函数 查看身份证地区信息
• ·VS2008 第一次安装心得及使用
• ·ASP.NET 2.0跨网页提交的三法
• ·编程实例 WebGroupBox(Aspx控件)
• ·asp.net mvc脚手架代码生成工具
• ·用独立的DLL来存储图片(资源文件)
• ·ASP.NET中多国语言的实现方法
• ·实例 .net生成静态页方法总结
• ·ASP.NET控件学习笔记之ViewState
• ·用递归在TreeView价节点
• ·经验总结 关于.NET 中的Event机制
• ·.NET应用程序开发标准化(z)
• ·在DataTable中查询应该注意的问题
• ·LINQ 中调用存储过程自动绑定列名
• ·如何用.NET技术在线生成网站LOGO
• ·对于访问IIS元数据库失败的解决