classnews.aspx

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

<%@ 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">