.NET 2.0中直接得到页面HTML代码
敬业的IT人
互联网
佚名
2008-5-23 19:45:22
在
VB.NET
＜%@ Page Language="VB" %＞
＜!DOCTYPE html PUBLIC "-//W3C//DTD
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"＞
＜script runat="server"＞
Function CreateDataSource() As ICollection
Dim dt As System.Data.DataTable = New System.Data.DataTable
Dim dr As System.Data.DataRow
dt.Columns.Add(New System.Data.DataColumn("学生班级", GetType(System.String)))
dt.Columns.Add(New System.Data.DataColumn("学生姓名", GetType(System.String)))
dt.Columns.Add(New System.Data.DataColumn("语文", GetType(System.Decimal)))
dt.Columns.Add(New System.Data.DataColumn("数学", GetType(System.Decimal)))
dt.Columns.Add(New System.Data.DataColumn("英语", GetType(System.Decimal)))
dt.Columns.Add(New System.Data.DataColumn("计算机", GetType(System.Decimal)))
Dim i As Integer = 0
For i = 0 To 50 - 1
Dim rd As System.Random = New System.Random(Environment.TickCount * i)
dr = dt.NewRow
dr(0) = "班级" + i.ToString
dr(1) = "【孟子E章】" + i.ToString
dr(2) = System.Math.Round(rd.NextDouble * 100, 2)
dr(3) = System.Math.Round(rd.NextDouble * 100, 2)
dr(4) = System.Math.Round(rd.NextDouble * 100, 2)
dr(5) = System.Math.Round(rd.NextDouble * 100, 2)
dt.Rows.Add(dr)
Next
Dim dv As System.Data.DataView = New System.Data.DataView(dt)
Return dv
End Function
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
If Not IsPostBack Then
GridView1.DataSource = CreateDataSource()
GridView1.DataBind()
End If
End Sub
Protected Overloads Overrides Sub Render(ByVal writer As HtmlTextWriter)
Dim html As System.IO.StringWriter = New System.IO.StringWriter
Dim tw As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(html)
MyBase.Render(tw)
Dim sw As System.IO.StreamWriter
sw = New System.IO.StreamWriter(Server.MapPath("a.htm"), False, System.Text.Encoding.Default)
sw.Write(html.ToString)
sw.Close()
tw.Close()
Response.Write(html.ToString)
End sub
＜/script＞
＜html xmlns="http://www.w3.org/1999/xhtml"＞
＜head＞
＜title＞得到ASP.NET生成的HTML＜/title＞
＜/head＞
＜body＞
＜form id="Form1" runat="server"＞
＜asp:GridView ID="GridView1" runat="server" Font-Size="12px" BackColor="#FFFFFF"
GridLines="Both" CellPadding="4" Width="560"＞
＜HeaderStyle BackColor="#EDEDED" Height="26px" /＞
＜/asp:GridView＞
＜/form＞
＜/body＞
＜/html＞
- 最新文章
- 与VB .NET一起使用.NET Framework[05-23]
- 用.net快速开发下载软件[05-23]
- 一切从这里开始 Visual Basic.NET[05-23]
- 在Visual Basic .NET中文件I/O选项 (4)[05-23]
- 在Visual Basic .NET中文件I/O选项 (3)[05-23]
- 在Visual Basic .NET中文件I/O选项 (2)[05-23]
- 相关文章
- html与jsp开发分离技术[05-15]
- 关于在bean里面打印html的利弊[05-12]
- 利用VB提取HTML文件中的EMAIL地址[04-15]
- CGI教程(4)HTML 表单[04-15]
- Cgi入门教程之：6 HTML FORM[04-15]
- FrontPage创建HTML／ASP混合页面Ⅰ[04-14]
