我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > net专区 > 在ASP.NET中将数据直接输出成Excel内容
热门文章排行
热门文章排行 检查email地址格式的代码(01-11)
PHP操作文件问答(01-11)
PHP安装攻略:安装并配置PHP(10-23)
PHP的十个高级技巧 4(10-23)
关于APE的介绍、播放及制作(03-22)
精采文章排行
精采文章排行 ASP.NET与MySQL数据库简明图示入门教(11-16)
ASP.NET与MySQL数据库简明图示入门教(11-16)
ASP.NET 链接数据库基础(11-16)
webconfig的设置节点说明(11-16)
部署ASP.NET的三大技术(上)(11-16)
技术专题推荐
网管论坛交流
　

在ASP.NET中将数据直接输出成Excel内容 

作者:佚名   来源:Linux 宝库   点击:   日期:2006-12-22

　　ExcelExport.aspx
　　
　　< %@ Page Language="vb" AutoEventWireup="false" Codebehind="ExcelExport.aspx.vb"
　　Inherits="aspxWeb.mengxianhui.com.ExcelExport"%>
　　< !DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
　　< HTML>
　　< HEAD>
　　< title>ExcelExport< /title>
　　< meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
　　< meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
　　< meta name="vs_defaultClientScript" content="JavaScript">
　　< meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
　　< /HEAD>
　　< body MS_POSITIONING="GridLayout">
　　< form id="Form1" method="post" runat="server">
　　< asp:datagrid id="DataGrid1" runat="server" CellPadding="4" BackColor="White"
　　BorderColor="#CC9966" BorderWidth="1px" BorderStyle="None" Width="100%" Height="100%"
　　Font-Size="9pt" Font-Names="宋体">
　　< SelectedItemStyle Font-Bold="True" ForeColor="#663399" BackColor="#FFCC66">< /SelectedItemStyle>
　　< AlternatingItemStyle BackColor="#FFCC99">< /AlternatingItemStyle>
　　< ItemStyle BorderWidth="2px" ForeColor="#330099" BorderStyle="Solid"
　　BorderColor="Black" BackColor="White">< /ItemStyle>
　　< HeaderStyle Font-Bold="True" HorizontalAlign="Center" BorderWidth="2px"
　　ForeColor="#FFFFCC" BorderStyle="Solid" BorderColor="Black" BackColor="#990000">< /HeaderStyle>
　　< /asp:datagrid>
　　< /form>
　　< /body>
　　< /HTML>
　　
　　ExcelExport.aspx.vb
　　
　　Public Class ExcelExport
　　Inherits System.Web.UI.Page
　　Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
　　
　　#Region " Web 窗体设计器生成的代码 "
　　
　　'该调用是 Web 窗体设计器所必需的。
　　< System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
　　
　　End Sub
　　
　　Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) _
　　Handles MyBase.Init
　　'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
　　'不要使用代码编辑器修改它。
　　InitializeComponent()
　　End Sub
　　
　　#End Region
　　
　　Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
　　Handles MyBase.Load
　　'在此处放置初始化页的用户代码
　　' 定义是否是 SQL Server 数据库，这里为False
　　Dim blnIsSQLServer As System.Boolean = False
　　Dim strSQL As String
　　Dim objDataset As New DataSet()
　　Dim objConn As Object
　　Dim strCnn As String
　　
　　If blnIsSQLServer Then
　　strCnn = "User ID=sa;Initial Catalog=Northwind;Data Source=.\NetSDK;"
　　objConn = New System.Data.SqlClient.SqlConnection(strCnn)
　　objConn.Open()
　　Dim objAdapter As New System.Data.SqlClient.SqlDataAdapter()
　　strSQL = "Select * from customers where country='USA'"
　　objAdapter.SelectCommand = New System.Data.SqlClient.SqlCommand(strSQL, objConn)
　　objAdapter.Fill(objDataset)
　　Else
　　strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("Test.mdb")
　　objConn = New System.Data.OleDb.OleDbConnection(strCnn)
　　objConn.Open()
　　Dim objAdapter As New System.Data.OleDb.OleDbDataAdapter()
　　strSQL = "Select Top 10 Title From Document"
　　objAdapter.SelectCommand = New System.Data.OleDb.OleDbCommand(strSQL, objConn)
　　objAdapter.Fill(objDataset)
　　End If
　　Dim oView As New DataView(objDataset.Tables(0))
　　DataGrid1.DataSource = oView
　　DataGrid1.DataBind()
　　objConn.Close()
　　objConn.Dispose()
　　objConn = Nothing
　　If Request.QueryString("bExcel") = "1" Then
　　Response.ContentType = "application/vnd.ms-excel"
　　' 从Content-Type header中去除charset设置
　　Response.Charset = ""
　　
　　' 关闭 ViewState
　　Me.EnableViewState = False
　　Dim tw As New System.IO.StringWriter()
　　Dim hw As New System.Web.UI.HtmlTextWriter(tw)
　　' 获取control的HTML
　　DataGrid1.RenderControl(hw)
　　' 把HTML写回浏览器
　　Response.Write(tw.ToString())
　　Response.End()
　　End If
　　End Sub
　　End Class





【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【论坛讨论】

   相关文章:
·给你的FileSystemObject对象加把锁 ·在 Web 页上使用条件数值格式
·连接数据库查询手册（不仅仅适用于asp） ·警惕"给你的FileSystemObject对象加把锁"
·用ASP做全文检索 ·如何把ASP编写成DLL

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。