end.ascx

很好的新闻更新系统

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<div align="center"> 
  <table align=center cellPadding=0 cellSpacing=0 
style="BORDER-BOTTOM: #6595d6 1px solid; BORDER-LEFT: #6595d6 1px solid; BORDER-RIGHT: #6595d6 1px solid; BORDER-TOP: #6595d6 0px solid; WIDTH: 100%">
    <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>
  ｜站长：hongxua｜ Email:<a 
      href="mailto:[e-mail]">[e-mail]</a>｜<img alt=oicq height=19 
      src="./pic/oicq.gif" width=19>：1991353｜</div>
              <div align="center"> </div>
              <div align="center"></div>
              <div align="center">Copyright &copy; 聪明的木头 2002-2003, All Rights Reserved 
              </div>
<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>