classmanager.aspx

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

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

<%@ Page Language="VB" ContentType="text/html" debug="true"%>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Register TagPrefix="mynews" TagName="main" src="ascx/main.ascx"%>
<%@ Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>

<script language="VB" runat="server">
    Dim sql,bianhao 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
    '执行查询字符串子程序
    Function executesql(ByVal sql As String)
        myCmd = New OleDbCommand(sql, myConn)
        myConn.Open()
        myCmd.ExecuteNonQuery()
        myConn.Close()
    End Function
    '数据绑定子程序
    Function bindgrid()
        information.Text = ""
        sql = "select * from Classes order by ClassesID desc"
        fenlei.DataSource = getdataview(sql, "fenlei")
        fenlei.DataBind()
    End Function
    '初始化数据绑定子程序
    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        If Session("user") = "administrator" Then
            Dim strConn As String
            strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51Aspx/news.mdb"
            myConn = New OleDbConnection(strConn)
            If Not Page.IsPostBack Then
                bindgrid()
            End If
        Else
            Response.Redirect("login.aspx")
        End If
    End Sub
    '翻页子程序
    Sub changepage(ByVal Sender As Object, ByVal e As DataGridPageChangedEventArgs)
        fenlei.CurrentPageIndex = e.NewPageIndex
        bindgrid()
    End Sub
    '添加分类子程序