<%@ Page Language="vb" Debug=true%> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SqlClient" %> <HTML> <HEAD> <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5"> <script language="VB" runat="server"> dim pageSi as integer = 3 Sub Page_Load(Sender As Object, E As EventArgs) Dim DS As DataSet Dim MyConnection As SqlConnection Dim MyCommand As SqlDataAdapter
MyConnection = New SqlConnection("data source=(local);database=oa;uid=niit;pwd=niit") MyCommand = New SqlDataAdapter("select * from motif", MyConnection) DS = new DataSet() MyCommand.Fill(ds, "作者") MyDataGrid.DataSource=ds.Tables("作者").DefaultView MyDataGrid.DataBind() myconnection.close() End Sub
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<HTML>
<HEAD>
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<script language="VB" runat="server">
dim pageSi as integer = 3
Sub Page_Load(Sender As Object, E As EventArgs) Dim DS As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
MyConnection = New SqlConnection("data source=(local);database=oa;uid=niit;pwd=niit")
MyCommand = New SqlDataAdapter("select * from motif", MyConnection) DS = new DataSet()
MyCommand.Fill(ds, "作者") MyDataGrid.DataSource=ds.Tables("作者").DefaultView
MyDataGrid.DataBind()
myconnection.close()
End Sub
sub PageIndexChanged(sender as Object ,e as DataGridPageChangedEventArgs)
MyDataGrid.CurrentPageIndex = e.NewPageIndex
MyDataGrid.DataBind()
end sub </script>
<LINK REL="stylesheet" TYPE="text/css" HREF="Sty.css">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="form1" method="post" runat="server">
<table width="777" align="center" border="1">
<tr>
<td> </td>
</tr>
<tr>
<td>登录名:<asp:TextBox ID="txtName" Width="120" Runat="server" /> 密码:<asp:TextBox ID="txtPasswrod" Width="120" Runat="server" TextMode="Password" />
<asp:Button ID="BtSubmit" Text=" 提 交 " Runat="server" /> <asp:Button ID="BtReg" Text=" 注 册 " Runat="server" /> <% response.write("共" & pageSi & "页") %>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="777" align="center" border="1">
<tr width="100%">
<td>
<ASP:DATAGRID id="MyDataGrid" runat="server" AutoGenerateColumns="False" AllowPaging="True" PageSize="3"
Width="100%" OnPageIndexChanged="PageIndexChanged" HeaderStyle-BackColor="#ffcc99" HeaderStyle-HorizontalAlign="Center">
<HeaderStyle HorizontalAlign="Center" BackColor="#FFCC99"></HeaderStyle>
<PagerStyle NextPageText="下一页" PrevPageText="上一页"></PagerStyle>
<Columns>
<asp:TemplateColumn HeaderText="主题">
<ItemTemplate>
<a href="list.aspx?pub_id=<%# DataBinder.Eval(Container, "DataItem.vmotifid")%>&pub_Mofit=<%# DataBinder.Eval(Container, "DataItem.vMofit") %>&pub_Author=<%# DataBinder.Eval(Container, "DataItem.vAuthor") %>&pub_Datetime=<%# DataBinder.Eval(Container, "DataItem.dDatetime") %>">
<%# DataBinder.Eval(Container, "DataItem.vMofit") %>
</a>
</ItemTemplate>
</asp:TemplateColumn>
<asp:BoundColumn DataField="vAuthor" HeaderText="作者">
<ItemStyle Width="10%"></ItemStyle>
</asp:BoundColumn>
<asp:BoundColumn DataField="iCount" HeaderText="回复">
<ItemStyle Width="5%"></ItemStyle>
</asp:BoundColumn>
<asp:BoundColumn DataField="dDatetime" SortExpression="desc" HeaderText="发布时间">
<ItemStyle Width="15%"></ItemStyle>
</asp:BoundColumn>
<asp:BoundColumn DataField="vRevertAuthor" HeaderText="最后回复">
<ItemStyle Width="10%"></ItemStyle>
</asp:BoundColumn>
</Columns>
</ASP:DATAGRID>
</td>
</tr>
</table>
</form>
</body>
</HTML>