newsedit.aspx

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

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

<%@ Page Language="VB" 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 As String
    Dim bianhao As Integer
    Dim title, author, from, content As String
    Dim classid, specialid As Integer
    Dim myconn As OleDbConnection
    Dim myCmd, newscmd As OleDbCommand
    Dim dtCmd As OleDbDataAdapter
    Dim dtSet As DataSet
    Dim dv As DataView
    '获取数据子程序
    Function getdatareader(ByVal str As String) As OleDbDataReader
        myCmd = New OleDbCommand(str, myconn)
        myconn.Open()
        getdatareader = myCmd.ExecuteReader()
    End Function
    '执行字符串子程序
    Function executesql(ByVal sql As String)
        myCmd = New OleDbCommand(sql, myconn)
        myconn.Open()
        myCmd.ExecuteNonQuery()
        myconn.Close()
    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
                step1.Visible = "true"
                '显示新闻内容
                bianhao = Page.Request("newsid")
                sql = "select Title,Author,Original,Content,ClassesID from News where NewsID=" & bianhao
                Dim Reader As OleDbDataReader = getdatareader(sql)
                While Reader.Read()
                    
                    title = Reader.Item(0)
                    author = Reader.Item(1)
                    from = Reader.Item(2)
                    content = Reader.Item(3)
                    classid = Reader.Item(4)
                End While
                myconn.Close()
            End If
            If Page.Request("action") = "edit" Then
                title = Page.Request("title")
                author = Page.Request("author")
                from = Page.Request("from")
                content = Page.Request("content")
                classid = Page.Request("Classes")
                sql = "update News set Title='" & title & "',Author='" & author & "',Original='" & from & "',Content='" & content & "',UpdateTime='" & DateTime.Now() & "',ClassesID=" & classid & " where NewsID=" & bianhao
                executesql(sql)
                message.Text = "<center>新闻更新成功!</center><br><center><a href='newsmanager.aspx'>继续</a></center>"