<%
...
@PageLanguage="VB"
%>
<! DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" >
< script runat ="server" > ...
FunctionCreateDataSource()AsICollection
DimdtAsSystem.Data.DataTable=NewSystem.Data.DataTable
DimdrAsSystem.Data.DataRow
dt.Columns.Add(NewSystem.Data.DataColumn("id",GetType(Int32)))
dt.Columns.Add(NewSystem.Data.DataColumn("PkID",GetType(String)))
dt.Columns.Add(NewSystem.Data.DataColumn("Title",GetType(String)))
DimiAsInteger=0
Whilei<6
dr=dt.NewRow
dr(0)=i
dr(1)="123456789123456789123456789"
dr(2)="<ahref='http://dotnet.aspx.cc/'>欢迎光临【孟宪会之精彩世界】</a>"
dt.Rows.Add(dr)
System.Math.Min(System.Threading.Interlocked.Increment(i),i-1)
EndWhile
DimdvAsSystem.Data.DataView=NewSystem.Data.DataView(dt)
Returndv
EndFunction
ProtectedSubPage_Load(ByValsenderAsObject,ByValeAsEventArgs)
IfNotIsPostBackThen
GridView1.BorderWidth=Unit.Pixel(2)
GridView1.BorderColor=System.Drawing.Color.DarkOrange
GridView1.DataSource=CreateDataSource
GridView1.DataBind
EndIf
EndSub
ProtectedSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)
Response.Clear
Response.Buffer=True
Response.Charset="GB2312"
Response.AppendHeader("Content-Disposition","attachment;filename=FileName.xls")
Response.ContentEncoding=System.Text.Encoding.UTF7
Response.ContentType="application/ms-excel"
DimoStringWriterAsSystem.IO.StringWriter=NewSystem.IO.StringWriter
DimoHtmlTextWriterAsSystem.Web.UI.HtmlTextWriter=NewSystem.Web.UI.HtmlTextWriter(oStringWriter)
Me.GridView1.RenderControl(oHtmlTextWriter)
Response.Output.Write(oStringWriter.ToString)
Response.Flush
Response.End
EndSub
PublicOverloadsOverridesSubVerifyRenderingInServerForm(ByValcontrolAsControl)
EndSub
ProtectedSubGridView1_RowDataBound(ByValsenderAsObject,ByValeAsGridViewRowEventArgs)
Ife.Row.RowType=DataControlRowType.DataRowThen
e.Row.Cells(1).Attributes.Add("style","vnd.ms-excel.numberformat:@;")
EndIf
EndSub
</ script >
< html xmlns ="http://www.w3.org/1999/xhtml" >
< head id ="Head1" runat ="server" >
< title > 将GridView导出到Excel文件中 </ title >
</ head >
< body >
< form id ="form1" runat ="server" >
< asp:GridView ID ="GridView1" runat ="server" OnRowDataBound ="GridView1_RowDataBound"
AutoGenerateColumns ="false" >
< Columns >
< asp:BoundField HeaderText ="序号" DataField ="id" />
< asp:BoundField HeaderText ="身份证号" DataField ="PkID" />
< asp:BoundField HeaderText ="网址" DataField ="Title" ReadOnly ="true" HtmlEncode ="false" />
</ Columns >
</ asp:GridView >
< asp:Literal ID ="HiddenOut" runat ="server" />
< asp:Button ID ="Button1" runat ="server" Text ="导出" OnClick ="Button1_Click" />
</ form >
</ body >
</ html >
<! DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" >
< script runat ="server" > ...
FunctionCreateDataSource()AsICollection
DimdtAsSystem.Data.DataTable=NewSystem.Data.DataTable
DimdrAsSystem.Data.DataRow
dt.Columns.Add(NewSystem.Data.DataColumn("id",GetType(Int32)))
dt.Columns.Add(NewSystem.Data.DataColumn("PkID",GetType(String)))
dt.Columns.Add(NewSystem.Data.DataColumn("Title",GetType(String)))
DimiAsInteger=0
Whilei<6
dr=dt.NewRow
dr(0)=i
dr(1)="123456789123456789123456789"
dr(2)="<ahref='http://dotnet.aspx.cc/'>欢迎光临【孟宪会之精彩世界】</a>"
dt.Rows.Add(dr)
System.Math.Min(System.Threading.Interlocked.Increment(i),i-1)
EndWhile
DimdvAsSystem.Data.DataView=NewSystem.Data.DataView(dt)
Returndv
EndFunction
ProtectedSubPage_Load(ByValsenderAsObject,ByValeAsEventArgs)
IfNotIsPostBackThen
GridView1.BorderWidth=Unit.Pixel(2)
GridView1.BorderColor=System.Drawing.Color.DarkOrange
GridView1.DataSource=CreateDataSource
GridView1.DataBind
EndIf
EndSub
ProtectedSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)
Response.Clear
Response.Buffer=True
Response.Charset="GB2312"
Response.AppendHeader("Content-Disposition","attachment;filename=FileName.xls")
Response.ContentEncoding=System.Text.Encoding.UTF7
Response.ContentType="application/ms-excel"
DimoStringWriterAsSystem.IO.StringWriter=NewSystem.IO.StringWriter
DimoHtmlTextWriterAsSystem.Web.UI.HtmlTextWriter=NewSystem.Web.UI.HtmlTextWriter(oStringWriter)
Me.GridView1.RenderControl(oHtmlTextWriter)
Response.Output.Write(oStringWriter.ToString)
Response.Flush
Response.End
EndSub
PublicOverloadsOverridesSubVerifyRenderingInServerForm(ByValcontrolAsControl)
EndSub
ProtectedSubGridView1_RowDataBound(ByValsenderAsObject,ByValeAsGridViewRowEventArgs)
Ife.Row.RowType=DataControlRowType.DataRowThen
e.Row.Cells(1).Attributes.Add("style","vnd.ms-excel.numberformat:@;")
EndIf
EndSub
</ script >
< html xmlns ="http://www.w3.org/1999/xhtml" >
< head id ="Head1" runat ="server" >
< title > 将GridView导出到Excel文件中 </ title >
</ head >
< body >
< form id ="form1" runat ="server" >
< asp:GridView ID ="GridView1" runat ="server" OnRowDataBound ="GridView1_RowDataBound"
AutoGenerateColumns ="false" >
< Columns >
< asp:BoundField HeaderText ="序号" DataField ="id" />
< asp:BoundField HeaderText ="身份证号" DataField ="PkID" />
< asp:BoundField HeaderText ="网址" DataField ="Title" ReadOnly ="true" HtmlEncode ="false" />
</ Columns >
</ asp:GridView >
< asp:Literal ID ="HiddenOut" runat ="server" />
< asp:Button ID ="Button1" runat ="server" Text ="导出" OnClick ="Button1_Click" />
</ form >
</ body >
</ html >
下面代码实现将 GridView 导出到 Excel文件中。
值得注意的是VerifyRenderingInServerForm重载方法:
MSDN上的 VerifyRenderingInServerForm 方法的描述:
必须位于 <form runat=server> 标记中的控件可以在呈现之前调用此方法,以便在控件被置于标记外时显示错误信息。发送回或依赖于注册的脚本块的控件应该在 Control.Render 方法的重写中调用此方法。呈现服务器窗体元素的方式不同的页可以重写此方法以在不同的条件下引发异常。
如果回发或使用客户端脚本的服务器控件没有包含在 HtmlForm 服务器控件 (<form runat="server">) 标记中,它们将无法正常工作。这些控件可以在呈现时调用该方法,以在它们没有包含在 HtmlForm 控件中时提供明确的错误信息。
开发自定义服务器控件时,通常在为任何类型的输入标记重写 Render 方法时调用该方法。这在输入控件调用 GetPostBackEventReference 或发出客户端脚本时尤其重要。复合服务器控件不需要作出此调用。
没有这个方法,程序将报错。