📄 classnews.aspx
字号:
<%@ Page Language="VB"ContentType="text/html" Debug="true"%>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Register TagPrefix="mynews" TagName="top" src="ascx/top.ascx"%>
<%@ Register TagPrefix="mynews" TagName="search" src="ascx/search.ascx"%>
<%@ Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>
<script language="VB" runat="server">
Dim sql, Classes As String
Dim myConn As OleDbConnection
Dim myCmd As OleDbCommand
'获取数据子程序
Function getdatareader(ByVal sql As String) As OleDbDataReader
myCmd = New OleDbCommand(sql, myConn)
myConn.Open()
getdatareader = myCmd.ExecuteReader()
End Function
'查询数据子程序
Function getdataview(ByVal sql As String, ByVal 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(ByVal sender As Object, ByVal e As EventArgs)
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
myConn = New OleDbConnection(strConn)
Dim classid As Integer
Dim namesql As String
classid = Page.Request("Classesid")
namesql = "select ClassesName from Classes where ClassesID=" & classid
sql = "select NewsID,Title from News where ClassesID=" & classid & " order by UpdateTime DESC"
Dim Reader As OleDbDataReader = getdatareader(namesql)
While Reader.Read()
Classes = Reader.Item(0)
End While
myConn.Close()
If Not Page.IsPostBack Then
newslist.DataSource = getdataview(sql, "news")
newslist.DataBind()
End If
End Sub
'新闻翻页
Sub changepage(ByVal Sender As Object, ByVal e As DataGridPageChangedEventArgs)
newslist.CurrentPageIndex = e.NewPageIndex
newslist.DataSource = getdataview(sql, "news")
newslist.DataBind()
End Sub
</script>
<html>
<head>
<title>新闻分类列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" type="text/css" rel="Stylesheet" />
</head>
<body>
<mynews:top ID="Top1" runat="server"/>
<table width="778px" border="0" align="center" cellpadding="0" cellspacing="6px">
<tr>
<td width="578px">
<table width="100%" cellpadding="2px" cellspacing="0" style="border:1px solid #6699FF;">
<tr>
<td bgcolor="#6699FF"><font color="#FFFFFF"> ::::<%=Classes%>::::</font></td>
</tr>
<tr>
<td>
<form id="Form1" runat="server">
<asp:datagrid ID="newslist" AutoGenerateColumns="false" PageSize="20" PagerStyle-HorizontalAlign="right"
PagerStyle-Mode="NumericPages" Width="100%" ShowHeader="false" AllowPaging="true" DataKeyField="NewsID"
OnPageIndexChanged="ChangePage" runat="server">
<columns>
<asp:hyperlinkcolumn DataTextField="Title" DataNavigateUrlField="NewsID"
DataNavigateUrlFormatString="newshow.aspx?newsid={0}"/>
</columns>
</asp:datagrid>
</form>
</td>
</tr>
</table>
</td>
<td width="200px" valign="top">
<mynews:search ID="Search1" runat="server"/>
</td>
</tr>
</table>
<mynews:footer ID="End1" runat="server"/>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -