<%@ Page Language="VB" %> <!DOCTYPE html PUBLIC"-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <script runat="server"> Function CreateDataSource()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 AsInteger=0 For i =0To50-1 Dim rd As System.Random =New System.Random(Environment.TickCount * i) dr = dt.NewRow dr(0) ="班级"+ i.ToString dr(1) = 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 ProtectedSub Page_Load()Sub Page_Load(ByVal sender AsObject, ByVal e As EventArgs) IfNot IsPostBack Then GridView1.DataSource = CreateDataSource() GridView1.DataBind() EndIf End Sub ProtectedOverloadsOverridesSub Render()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>