📄 newsshow1.aspx
字号:
<%@Page language="VB" Debug="True"%>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.SqlClient"%>
<Html>
<Head>
<Title>网站新闻发布系统</Title>
<script language="VB" runat="server" >
'当刚载入页面时候执行下面的程序。
Dim startIndex As Integer
Sub Page_Load(Src As Object,E AS EventArgs)
If Not IsPostBack Then
startIndex =0
End If
'绑定DataGrid
Binding()
End Sub
'链接数据库，绑定DataGrid
Sub Binding()
Dim MyConnection As SqlConnection
Dim ConnStr As String
MyConnection =New SqlConnection("Initial Catalog=mydb;Data Source=(local)\NetSDK;Integrated Security=SSPI;")
MyConnection.Open()
Dim strCom As String= "SELECT id ,biaoti ,zhaizi ,counter ,shijian FROM news ORDER BY id DESC"
Dim myDataSet As DataSet= new DataSet()
Dim myCommand As SqlDataAdapter=new SqlDataAdapter(strCom,MyConnection)
'填充DataSet
myCommand.Fill(myDataSet,"news")
'关闭链接
'myConn.Close();
'设置表newpost的DataView
DataGrid1.DataSource = myDataSet.Tables("news").DefaultView
'绑定 DataGrid
DataGrid1.DataBind()
End Sub
Sub ChangePage(sender As Object,e As DataGridPageChangedEventArgs)
startIndex = e.NewPageIndex*DataGrid1.PageSize
DataGrid1.CurrentPageIndex = e.NewPageIndex
Binding()
End Sub
</script>
</Head>
<Body runat=server>
<p align="Center"><font size="+3">新闻浏览</font>
<form runat=server>
<asp:DataGrid id=DataGrid1
runat="server"
ForeColor="Black"
PagerStyle-Mode="NumericPages"
Headerstyle-BackColor="#AAAADD"
AlternatingItemStyle-BackColor="#FFFFCD"
OnPageindexChanged="ChangePage"
PageSize="10"
AllowPaging="True"
Width="80%"
Font-Name="Verdana"
Font-Size="8pt"
autogeneratecolumns="False">
<Columns>
<asp:HyperLinkColumn
HeaderText="标题"
DataNavigateUrlField="id"
DataNavigateUrlFormatString="show1.aspx?id={0}"
DataTextField="biaoti"
Target="_new"
/>
<asp:BoundColumn HeaderText="摘自" itemstyle-width=20% DataField=zhaizi/>
<asp:BoundColumn HeaderText="点击次数" itemstyle-width=10% DataField=counter/>
<asp:BoundColumn HeaderText="发表日期" itemstyle-width=20% DataField=shijian/>
</Columns>
</asp:DataGrid>
</form>
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -