newslist.ascx

该系统实现新闻浏览

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script Language="VB" runat="server">
    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        Dim sql As String
        Dim myconn As OleDbConnection
        Dim myCmd, newscmd As OleDbCommand
        Dim dtCmd As OleDbDataAdapter
        Dim dtSet As DataSet
        Dim dv As DataView
        Dim strConn As String
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
        myConn = New OleDbConnection(strConn)
        sql = "select top 10 * from News order by UpdateTime DESC"

        dtCmd = New OleDbDataAdapter(Sql, myconn)
        dtSet = New DataSet
        dtCmd.Fill(dtSet)
        specialnews.DataSource = dtSet
        specialnews.DataBind()     
    End Sub
</script>
<link href="style.css" type="text/css" rel="Stylesheet"  />
<table width="100%" cellpadding="2px"  cellspacing="0" style="border:1px solid #6699FF;">
    <tr>
        <td  bgcolor="#6699FF"><font color="#FFFFFF">
&nbsp;&nbsp;::::最新新闻::::
        </font></td>
    </tr>
    <tr>
        <td>
<asp:datagrid ID="specialnews" runat="server" AutoGenerateColumns="False" BorderColor="#6699FF" 
        BorderWidth="0" GridLines="Both" AllowPaging="false" DataKeyField="NewsID" ShowHeader="false">
    <columns>
        <asp:hyperlinkcolumn DataTextField="Title"
                DataNavigateUrlField="NewsID" DataNavigateUrlFormatString="../newshow.aspx?newsid={0}"/>
        </columns>
</asp:datagrid>
        </td>
    </tr>
</table>