top.ascx

很好的新闻更新系统

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Register TagPrefix="mynews" TagName="ads0" src="ad0.ascx"%>
<TABLE align=center cellPadding=0 cellSpacing=0 
style="BORDER-BOTTOM: #6595d6 0px solid; BORDER-LEFT: #6595d6 1px solid; BORDER-RIGHT: #6595d6 1px solid; BORDER-TOP: #6595d6 0px solid; WIDTH: 100%">
  <TR>
    <TD width="100%" height="52"> 
      <TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="100%">
        <TR>
          <TD height=9 background="pic/topbg.gif"></TD>
        </TR>
        <TR>
          <TD bgcolor="#FFFFFF"> 
            <TABLE align=center border=0 width="100%">
              <TR>
                <TD align=left width="25%"><A 
                  href="http://202.116.69.21:1858/hongxua/index.aspx"><IMG 
                  src="image/logo.gif" width="88" height="31" border=0></A></TD>
                <TD width="65%" align=center valign="middle"><mynews:ads0 runat="server"/></TD>
                <TD align=right style="LINE-HEIGHT: 15pt" width="10%"><A 
                  href=""><SPAN 
                  onclick="window.external.AddFavorite('http://202.116.69.21:1858/hongxua/index.aspx', '新闻发布')" 
                  style="CURSOR: hand">加入收藏</SPAN></A> <BR><A 
                  href="mailto:[e-mail]">联系我们</A> <BR><A 
                  href="./login.aspx">后台管理</A> 
              </TD></table></TD></TR></TABLE></TD></TR>
        <TR>
          
    <TD height=9 background="pic/bottombg.gif"></TD>
  </TR>
        <TR>
          
    <TD height=22 Align=center background="pic/tabs_m_tile.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="special.aspx?bigclassid=<%# DataBinder.Eval(Container.DataItem,"bigclassid")%>&fangshi=fenlei"> 
      <%# DataBinder.Eval(Container.DataItem,"bigclassname")%>
      </a><IMG align=absMiddle src="pic/navspacer.gif" width="7" height="18">
    </ItemTemplate> </asp:Repeater>
</TD>
  </TR></TABLE>
<script language="VB" runat="server">
Dim sql as String
Dim myconn as OleDbConnection
Dim myCmd as OleDbCommand
Function getdataview(sql as String,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

sub Page_Load(sender As Object, e As EventArgs)
   Dim strConn As String
   strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("./")&"data/news.mdb"	    	
   myConn = New OledbConnection(strConn)
   if not page.ispostback then
   sql="select * from BigClass"
        Dim bigclassview as DataView=getdataview(sql,"bigclass")
        Newslist.DataSource=bigclassview
        Newslist.DataBind   
   end if
end sub  
</script>