top.ascx

该系统实现新闻浏览

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
'//该源码下载自www.51aspx.com(５１ａｓｐｘ．ｃｏｍ)
'//5_1_a_s_p_x.c_o_m
    Dim sql As String
    Dim myconn As OleDbConnection
    Dim myCmd As OleDbCommand
    '定义数据查询子程序
    Function getdataview(ByVal sql As String, ByVal strtable As String) As DataView
        Dim myDataAdapter As OleDbDataAdapter
        Dim myDataSet As DataSet
        myconn.Open()
        myDataAdapter = New OleDbDataAdapter(sql, myconn)
        myconn.Close()
        myDataSet = New DataSet()
        myDataAdapter.Fill(myDataSet, strtable)
        getdataview = New DataView(myDataSet.Tables(strtable))
    End Function
    '调用getdataview子程序，并把所查询的数据绑定到NewsList控件中
    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        Dim strConn As String
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
        myconn = New OleDbConnection(strConn)
        If Not Page.IsPostBack Then
            sql = "select * from Classes"
            Dim Classesview As DataView = getdataview(sql, "Classes")
            NewsList.DataSource = Classesview
            NewsList.DataBind()
        End If
    End Sub
</script>
<TABLE align=center cellPadding=0 cellSpacing=0 style="BORDER-BOTTOM: #6595d6 1px solid; WIDTH: 778px">
    <TR>
        <TD width="100%"> 
<span style="font-size:24px;color:'#6595d6';padding:10px 30px;width:710px;text-align:left;">新闻发布与管理系统|51aspx.com</span> 
<A href="./login.aspx">后台管理</A> 
        </TD>
    </TR>
    <TR> 
        <TD height=22 background="pic/border1.gif">
<IMG align=absMiddle src="pic/navspacer.gif" width="7" height="18">
<a class="tomg" href="./index.aspx">首页</a>
<IMG align=absMiddle src="pic/navspacer.gif" width="7" height="18"> 
<asp:Repeater id="NewsList" runat="server">
    <ItemTemplate> 
        <a class="tomg" href="classnews.aspx?Classesid=<%# DataBinder.Eval(Container.DataItem,"Classesid")%>"> 
<%# DataBinder.Eval(Container.DataItem,"Classesname")%>
        </a>
        <IMG align=absMiddle src="pic/navspacer.gif" width="7" height="18">
    </ItemTemplate>
</asp:Repeater>
        </TD>
    </TR>
</TABLE>