Imports System.IO
Imports System.Data
Imports System.Data.SqlClient


Public Class up
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnUpload.Click
        Dim filePath As String = FileUpload1.PostedFile.FileName
        Dim FileName As String = Path.GetFileName(filePath)
        Dim ext As String = Path.GetExtension(FileName)
        Dim contenttype As String = String.Empty

        Select Case ext
            Case ".doc"
                contenttype = "application/vnd.ms-word"
                Exit Select
            Case ".docx"
                contenttype = "application/vnd.ms-word"
                Exit Select
            Case ".xls"
                contenttype = "application/vnd.ms-excel"
                Exit Select
            Case ".xlsx"
                contenttype = "application/vnd.ms-excel"
                Exit Select
            Case ".jpg"
                contenttype = "image/jpg"
                Exit Select
            Case ".png"
                contenttype = "image/png"
                Exit Select
            Case ".gif"
                contenttype = "image/gif"
                Exit Select
            Case ".pdf"
                contenttype = "application/pdf"
        End Select
        If contenttype <> String.Empty Then
            Dim fs As Stream = FileUpload1.PostedFile.InputStream
            Dim br As New BinaryReader(fs)
            Dim bytes As Byte() = br.ReadBytes(fs.Length)

            Dim strQuery As String = "insert into Files" _
                                     & "(Name,ContentType,Data)" _
                                     & "values (@Name,@ContentType,@Data)"
            Dim cmd As New SqlCommand(strQuery)
            cmd.Parameters.Add("@Name", SqlDbType.NVarChar).Value = FileName
            cmd.Parameters.Add("@ContentType", SqlDbType.NVarChar).Value = contenttype
            cmd.Parameters.Add("@Data", SqlDbType.Binary).Value = bytes

            InsertUpdateData(cmd)
            lblMessage.ForeColor = System.Drawing.Color.Green
            lblMessage.Text = "File ugurla yuklendi"
        Else
            lblMessage.ForeColor = System.Drawing.Color.Red
            lblMessage.Text = "Faylin Formati Duz deyil." _
                & "pdf/word/excell formatli fayllar yukleyin"
        End If
    End Sub

    Public Function InsertUpdateData(ByVal cmd As SqlCommand) As Boolean

        Dim strConnString As String = System.Configuration.ConfigurationManager.ConnectionStrings("conString").ConnectionString
        Dim Con As New SqlConnection(strConnString)
        cmd.CommandType = CommandType.Text
        cmd.Connection = Con
        Try
            Con.Open()
            cmd.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Response.Write(ex.Message)
            Return False
        Finally
            Con.Close()
            Con.Dispose()

        End Try

    End Function

End Class