帮我看看这段，删除那段可以清除登录才能更新？

<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 Not Page.IsPostBack 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                '显示新闻内容
                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>"            End If
        End If
    End Sub
</script>