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