ShowFixHeader.aspx
<%@ Page Language='vb' EnableViewState='False' AutoEventWireup='false' Codebehind='ShowFixHeader.aspx.vb' Inherits='vb1.ShowFixHeader'%>
<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>
<HTML>
<HEAD>
<title id='northsnow_title' runat='server'></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' leftmargin='0'>
<table align='center'>
<tr>
<td>
<form id='Form1' method='post' runat='server'>
<TABLE id='Table1' runat='server' cellSpacing='1' cellPadding='2' width='720' border='1'
bgcolor='#cc6633' bordercolor='#cc9966' style='FONT-SIZE:9pt;BORDER-BOTTOM:0px'>
<TR align='center'>
<TD colspan='2' width='430'></TD>
<TD width='190' colspan='2'></TD>
</TR>
<TR align='center'>
<TD width='360' bgcolor='#66cc99'></TD>
<TD width='180' bgcolor='white'></TD>
<TD width='140' bgcolor='#99cccc'></TD>
<TD width='40' bgcolor='#009999'></TD>
</TR>
</TABLE>
<div style='BORDER:0px;PADDING:0px;MARGIN:0px;OVERFLOW:auto;WIDTH:736px;HEIGHT:200px'>
<asp:DataGrid id='DataGrid1' width='720px' CellPadding='2' CellSpacing='1'
BorderColor='#cc9966' Font-Size='9pt' AlternatingItemStyle-BackColor='#6699ff'
runat='server' ShowHeader='False' AutoGenerateColumns='False'>
<Columns>
<asp:BoundColumn DataField='Title'>
<ItemStyle Width='360px'></ItemStyle>
</asp:BoundColumn>
<asp:BoundColumn DataField='CreateDate'>
<ItemStyle Width='180px' HorizontalAlign='Center'></ItemStyle>
</asp:BoundColumn>
<asp:BoundColumn DataField='Author'>
<ItemStyle Width='140px' HorizontalAlign='Center'></ItemStyle>
</asp:BoundColumn>
<asp:BoundColumn DataField='HitCount'>
<ItemStyle Width='40px' HorizontalAlign='Center'></ItemStyle>
</asp:BoundColumn>
</Columns>
</asp:DataGrid>
</div>
</form>
</td>
</tr>
</table>
</body>
</HTML>
ShowFixHeader.aspx.vb
Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class ShowFixHeader
Inherits System.Web.UI.Page
Protected WithEvents Table1 As System.Web.UI.HtmlControls.HtmlTable
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
Protected WithEvents northsnow_title As HtmlControls.HtmlGenericControl
#Region ' Web Form Designer Generated Code '
'This call is required by the Web Form Designer.
<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: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
northsnow_title.InnerText = 'NorthSnow Home - 跨栏表头,滚动表体的DataGrid的实现'
Table1.Rows(0).Cells(0).InnerText = 'NorthSnow Home Article'
Table1.Rows(0).Cells(1).InnerText = 'VB.net + Asp.Net'
Table1.Rows(1).Cells(0).InnerText = '文章标题'
Table1.Rows(1).Cells(1).InnerText = '发布时间'
Table1.Rows(1).Cells(2).InnerText = '文章作者'
Table1.Rows(1).Cells(3).InnerText = '点击率'
Table1.Rows(0).Style.Add('color', 'white')
Table1.Rows(0).Style.Add('font-weight', 'bold')
Table1.Rows(0).Cells(0).Attributes.Add('onclick', 'window.open('http://blog.csdn.net/precipitant/')')
Table1.Rows(0).Cells(0).Style.Add('cursor', 'hand')
Try
Dim cnString As String = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Server.MapPath('Test.mdb')
Dim cn As New OleDbConnection(cnString)
cn.Open()
Dim strSQL As String = 'SELECT TOP 30 Title,CreateDate,Author,HitCount ' + 'FROM Document ORDER BY CreateDate DESC'
Dim cmd As New OleDbCommand(strSQL, cn)
DataGrid1.DataSource = cmd.ExecuteReader
DataGrid1.DataBind()
cn.Close()
cn = Nothing
Catch eOle As OleDbException
Response.Write('产生错误：' + eOle.Message)
End Try
End Sub
Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, _
ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
If e.Item.Cells(0).Text.Length > 20 Then
e.Item.Cells(0).Attributes.Add('Title', e.Item.Cells(0).Text)
e.Item.Cells(0).Text = e.Item.Cells(0).Text.Substring(0, 20) + '…'
End If
e.Item.Cells(1).Text = Format(System.Convert.ToDateTime(e.Item.Cells(1).Text), 'yyyy年M月d日 h点m分s秒')
End If
End Sub
End Class