s_exercise_upload.aspx.vb

教务实验室选课系统

Public Class s_exercise_upload
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents fileup As System.Web.UI.HtmlControls.HtmlInputFile
    Protected WithEvents Button6 As System.Web.UI.WebControls.Button
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents HyperLink10 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink11 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink9 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink13 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink14 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink15 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink8 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink5 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents LinkButton1 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents Image1 As System.Web.UI.WebControls.Image
    Protected WithEvents spWelMessage As System.Web.UI.HtmlControls.HtmlGenericControl

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region
    Dim student_id As String
    Dim cnn1 As New SqlClient.SqlConnection
    Dim cmd1 As New SqlClient.SqlCommand
    Dim dsn As String
    Dim dap1 As New SqlClient.SqlDataAdapter
    Dim ds1 As DataSet
    Dim filelength As String  '声明变量记录/浏览/选择的文件的大小
    Dim filename As String   '声明变量记录/浏览/选择的文件的名称（包括完整的路径名称）

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        '显示欢迎信息
        student_id = Request.Cookies("userInf").Values("userID")
        If DateTime.Now.Hour >= 6 And DateTime.Now.Hour < 12 Then
            spWelMessage.InnerHtml = "早上好，" & Request.Cookies("userInf").Values("userID") & Request.Cookies("userInf").Values("userIdent")
        ElseIf DateTime.Now.Hour >= 12 And DateTime.Now.Hour < 18 Then
            spWelMessage.InnerHtml = "下午好，" & Request.Cookies("userInf").Values("userID") & Request.Cookies("userInf").Values("userIdent")
        Else
            spWelMessage.InnerHtml = "晚上好，" & Request.Cookies("userInf").Values("userID") & Request.Cookies("userInf").Values("userIdent")
        End If
        dsn = ConfigurationSettings.AppSettings("DSN_student")
        cnn1.ConnectionString = dsn
        cmd1.Connection = cnn1
        dap1.SelectCommand = cmd1
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '上传作业，首先判断浏览文件框中是否选择了内容，再判断内容是否为空，
        '如果没有选择文件框
        If fileup.PostedFile Is Nothing Then
            Label1.Text = "请选择要上传的文件！"
        Else '已经选择了浏览框中的某一个文件
            filelength = fileup.PostedFile.ContentLength
            filename = fileup.PostedFile.FileName

            If filelength = 0 Then
                '如果要上传得文件长度为0
                Label1.Text = "您要上传的作业大小为0，请检查！"

            Else
                '检查是否已经存在此次作业信息
                '填充cmd的值，检查在exercise_update表中是否存在此学生的此次作业信息
                cmd1.CommandText = "select * from exercise_update where s_ID='" + student_id.ToString + "'"
                '下面一段代码可以得到相应条件下的数据表的行数
                Dim dap1 As New SqlClient.SqlDataAdapter
                Dim das1 As New DataSet
                Dim rowcount As Integer
                Dim bool1 As Boolean = False '记录操作数据库读取是否已经提交作业是否成功
                dap1.SelectCommand = cmd1
                Try
                    cnn1.Open()
                    dap1.Fill(das1, "exerciseupdate")
                    bool1 = True
                Catch
                    Label1.Text = "读取作业提交表失败，可能是服务器出现错误，请稍后再试！非常抱歉影响了您的工作！"
                Finally
                    cnn1.Close()
                End Try
                If bool1 Then
                    rowcount = das1.Tables("exerciseupdate").Rows.Count
                    If Not (rowcount = 0) Then  'exerciseupdate表中已经存在此条信息
                        '声明变量标记此次作业是否已经被教师批阅过
                        Label1.Text = "已经存在此次作业信息，如果要覆盖以前的作业信息请重新选择文件后，点击/确认重传/按钮！"
                        Button6.Visible = True '显示button6,可以执行/确认上传/事件
                        Button1.Visible = False
                    Else
                        Button6.Visible = False '不显示button6,/确认上传/按钮
                        '执行作业提交功能
                        '还没有存在此条作业信息，可以向数据库中添加一条记录
                        '声明字符串，做为操作数据库的命令
                        Dim stringinsert As String
                        '声明变量取出当前日期时间
                        Dim eu_date As Date
                        eu_date = Date.Now
                        '定义变量，赋值为日期+文件长度+文件后缀名，作为在存储器里边存储的文件的名称
                        Dim eu_id As String
                        eu_id = "[" + student_id.ToString + "]" + System.IO.Path.GetFileName(fileup.PostedFile.FileName).ToString
                        stringinsert = "insert into exercise_update (eu_ID,s_ID,e_Title,eu_date) values ('" + eu_id.ToString + "','" + student_id.ToString + "','" + System.IO.Path.GetFileName(fileup.PostedFile.FileName).ToString + "','" + eu_date.ToString + "')"
                        '下面一段代码将作业信息添加到exerciseupdate表中
                        cmd1.CommandText = stringinsert
                        Dim reader As IDataReader
                        Try
                            cnn1.Open()
                            reader = cmd1.ExecuteReader() '重点
                            '保存作业到服务器上
                            fileup.PostedFile.SaveAs(ConfigurationSettings.AppSettings("upload_exercise") + eu_id)
                            Label1.Text = "作业上传成功！"
                        Catch
                            Label1.Text = "提交作业失败，可能是服务器出现错误，请稍后再试！非常抱歉影响了您的工作！"
                        Finally
                            cnn1.Close()
                        End Try
                    End If
                End If
            End If
        End If
    End Sub
   

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        '存在此学生的作业信息，更新数据库的记录
        If fileup.PostedFile Is Nothing Then
            Label1.Text = "请选择要重传的文件！"
        Else '已经选择了浏览框中的某一个文件
            filelength = fileup.PostedFile.ContentLength
            filename = fileup.PostedFile.FileName
            If filelength = 0 Then
                '如果要上传得文件长度为0
                Label1.Text = "您要重传的作业大小为0，请检查！"
            Else
                '声明字符串，做为操作数据库的命令
                Dim stringupdate As String
                '声明变量取出当前日期时间
                Dim eu_date As Date
                eu_date = Date.Now
                '定义变量，赋值为日期+文件长度+文件后缀名，作为在存储器里边存储的文件的名称
                Dim eu_id As String
                eu_id = "[" + student_id.ToString + "]" + System.IO.Path.GetFileName(fileup.PostedFile.FileName).ToString
                stringupdate = "update exercise_update set eu_ID='" + eu_id.ToString + "',e_Title='" + System.IO.Path.GetFileName(fileup.PostedFile.FileName).ToString + "',eu_date='" + eu_date.ToString + "'where s_id='" + student_id.ToString + "'"
                '下面一段代码将作业信息更新到exerciseupdate表中
                cmd1.CommandText = stringupdate
                Dim reader As IDataReader
                Try
                    cnn1.Open()
                    reader = cmd1.ExecuteReader() '重点
                    '保存作业到服务器上
                    fileup.PostedFile.SaveAs(ConfigurationSettings.AppSettings("upload_exercise") + eu_id)
                    Label1.Text = "作业重传成功！"
                Catch
                    Label1.Text = "提交作业失败，可能是服务器出现错误，请稍后再试！非常抱歉影响了您的工作！"
                Finally
                    cnn1.Close()
                End Try
            End If
        End If
    End Sub

    Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Response.Redirect("../login.aspx")
    End Sub
End Class