📄 more.aspx
字号:
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
sub page_load
dim conn as oledbconnection
dim da as oledbdataadapter
dim ds as dataset
dim sql as string
sql="select * from notice order by id desc"
conn=new OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source="+Server.MapPath("notice.mdb"))
da=new oledbdataadapter(sql,conn)
ds =new dataset
da.fill(ds,"notice") '还可以这样简单的写：da.fill(ds)
datagrid1.datasource=ds.tables("notice").defaultview ''还可以这样简单的写：datagrid1.datasource=ds
datagrid1.databind()
end sub
Sub DataGrid1_pageIndexChanged(sender As Object, e As datagridpagechangedEventArgs)
datagrid1.currentpageindex=e.newpageindex
databind()
End Sub
Sub Button1_Click_1(sender As Object, e As EventArgs)
response.redirect("index.aspx")
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<div align="center"><asp:Label id="Label1" runat="server" width="291px" forecolor="#0000C0" borderstyle="None" bordercolor="#8080FF" backcolor="#E0E0E0" tooltip="这些是公司发布的所有信息" height="15px">公司所有通知</asp:Label>
</div>
<br />
<div align="center"><font color="red" size="2">每页显示15条</font>
</div>
<br />
<div align="center">
</div>
<div align="center">
</div>
<div align="center">
<asp:DataGrid id="DataGrid1" runat="server" Font-Size="Smaller" onpageindexchanged="datagrid1_pageindexchanged" AutoGenerateColumns="False" PageSize="15" AllowSorting="True" AllowPaging="True" CellSpacing="1" GridLines="None" CellPadding="3" BorderWidth="2px" Width="600px" BackColor="White" BorderColor="White" BorderStyle="Ridge">
<FooterStyle forecolor="Black" backcolor="#C6C3C6"></FooterStyle>
<HeaderStyle font-bold="True" forecolor="#E7E7FF" backcolor="#4A3C8C"></HeaderStyle>
<PagerStyle horizontalalign="Right" forecolor="Black" backcolor="#C6C3C6" mode="NumericPages"></PagerStyle>
<SelectedItemStyle font-bold="True" forecolor="White" backcolor="#9471DE"></SelectedItemStyle>
<ItemStyle forecolor="Black" backcolor="#DEDFDE"></ItemStyle>
<Columns>
<asp:HyperLinkColumn Target="_blank" DataNavigateUrlField="id" DataNavigateUrlFormatString="shown.aspx?id={0}" DataTextField="title" HeaderText="标题"></asp:HyperLinkColumn>
<asp:BoundColumn DataField="data" HeaderText="发布日期"></asp:BoundColumn>
<asp:HyperLinkColumn Text="删除？" DataNavigateUrlField="id" DataNavigateUrlFormatString="delete.aspx?id={0}" HeaderText="管理选项"></asp:HyperLinkColumn>
</Columns>
</asp:DataGrid>
</div>
<div align="center">
<br />
<asp:Button id="Button1" onclick="Button1_Click_1" runat="server" BorderWidth="1px" BorderStyle="Solid" Text="返回首页"></asp:Button>
</div>
<!-- Insert content here -->
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -