showdataset.inc

这是一个asp.net的全文教程.里面还有数据库的数据.对初学者有很大的帮助

Script Language="VB" Runat="Server">
       ' 显示DataSet对象的所有记录
       Sub ShowDataSet(ByVal OBJDataSet As DataSet)
              ' 声明DataTable、DataRow、DataRow对象
              Dim OBJDataTable As DataTable
              Dim OBJDataRow As DataRow
              Dim OBJDataColumn As DataColumn
              ' 设置DataTable的表来源
              OBJDataTable = OBJDataSet.Tables("UserDatas")
              Response.Write("<Center><H2>显示DataSet对象的所有记录</H2>")
              Response.Write("<Table Border=1>")
              ' 显示DataColumn每一个字段的名称
              For Each OBJDataColumn In OBJDataTable.Columns
                     Response.Write("<TD>" & OBJDataColumn.ColumnName & "</TD>" )
              Next
              ' 输出每一列数据列
              For Each OBJDataRow In OBJDataTable.Rows
                     Response.Write("<TR>")
                     ' 显示在数据列之中的每一个数据行
                     For Each OBJDataColumn In OBJDataTable.Columns
                            Response.Write("<TD>" & OBJDataRow(OBJDataColumn) & "</TD>" )
                     Next OBJDataColumn
                     Response.Write("</TR>")
              Next OBJDataRow
              Response.Write("</Table>")
       End Sub
</Script>