speciallist.ascx

新闻发布系统

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center" background="pic/forumHeaderBackground.gif"><font color="#FFFFFF">新闻专题</font></td>
  </tr>
  <tr>
    <td><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 width="100%"><asp:datagrid ID="specialnews" runat="server" AutoGenerateColumns="False" 
              BorderColor="Black" BorderWidth="0" GridLines="Both" AllowPaging="true" PageSize="20" PagerStyle-HorizontalAlign="right" PagerStyle-Mode="NumericPages"
			  DataKeyField="SpecialID" ShowHeader="false" OnPageIndexChanged="SpecialChangePage">
			  <columns>
			  <asp:hyperlinkcolumn DataTextField="SpecialName"
 DataNavigateUrlField="SpecialID" DataNavigateUrlFormatString="special.aspx?specialid={0}&fangshi=zhuanti"/>
			  </columns></asp:datagrid></td></tr></table></td>
              </tr>
            </table></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 Special order by SpecialID desc"
		dim zhuantiview as DataView=getdataview(sql,"zhuanti")
		specialnews.DataSource=zhuantiview
		specialnews.DataBind
		end if
end sub
sub specialchangepage(Sender as Object,e as DataGridPageChangedEventArgs)
   specialnews.CurrentPageIndex=e.NewPageIndex
   sql="select * from Special order by SpecialID desc"
		dim zhuantiview as DataView=getdataview(sql,"zhuanti")
		specialnews.DataSource=zhuantiview
		specialnews.DataBind
end sub
</script>