Public Class BulletinNew
Inherits System.Web.UI.UserControl
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents dg70 As MyCommon.MyDataGrid
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
dg70Bind()
End If
End Sub
Sub dg70Bind()
Dim a As New Article
Me.dg70.DataSource = a.GetNewsByTypeTopN(70, 8)
Me.dg70.DataBind()
a.Dispose()
End Sub
Private Sub dg_ItemDataBound(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dg70.ItemDataBound
If e.Item.ItemType = ListItemType.AlternatingItem OrElse e.Item.ItemType = ListItemType.Item Then
CType(e.Item.Cells(1).Controls(0), HyperLink).Text = MyCommon.MyStr.GetLineStr(CType(e.Item.Cells(1).Controls(0), HyperLink).Text, 13)
End If
End Sub
End Class