Default.aspx 成绩管理
Main.aspx 教师评价
Index.aspx 教务管理



 	I = Me.XCSqlOpr(Str)
            If I = 0 Then
                SkyLog = "删除班级信息成功!"
                Me.LiteralScript.Text = (Me.ShowMess(SkyLog, ShowUrlDef))
            Else
                SkyLog = "删除班级信息失败！"
                Me.LiteralScript.Text = (Me.ShowMessage(SkyLog))
            End If
            '######################################################
            '记录操作日志信息
            UserOprLog(SkyLog, "str=" + Str.ToString)
            '######################################################


 If I = 0 Then
            SkyLog = "增加班级信息成功!"
            Me.TxtSql.Text = ""
            Me.LiteralScript.Text = (Me.ShowMess(SkyLog, ShowUrlDef))
        Else
            SkyLog = "增加班级信息失败！"
            Me.LiteralScript.Text = (Me.ShowMessage(SkyLog))
        End If
        '######################################################
        '记录操作日志信息
        UserOprLog(SkyLog, "名称=" + a(1))
        '######################################################




 I = Me.XCSqlOpr(SQL)
        If I = 0 Then
            Me.TxtSql.Text = ""
            SkyLog = "修改班级信息成功！"
            Me.LiteralScript.Text = Me.ShowMessage(SkyLog)
            Me.Btn2.Enabled = False
            Me.TxtTerm2.Text = ""
            Me.TxtTerm2.ToolTip = ""
            '  Me.TxtShowID2.Text = ""
        Else
            SkyLog = "修改班级信息失败！"
            Me.LiteralScript.Text = Me.ShowMessage(SkyLog)
            'Response.Write(SQL)
        End If
        '######################################################
        '记录操作日志信息
        UserOprLog(SkyLog, "ID=" + a(0))
        '######################################################