submitdocument.aspx.vb

毕业设计+图书管理系统+源码 需要的人下载。

Imports System.Data
Imports System.Data.SqlClient
Partial Class student_SubmitDocument
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim subject As New Subject
        With subject
            .StudentNo = Session("userid")
            .Keyword1 = TextBox1.Text
            .keyword2 = TextBox2.Text
            .Keyword3 = TextBox3.Text
            .SubmitSubjectDocument()
        End With
        UploadDocument(sender, e)
    End Sub
    Protected Sub UploadDocument(ByVal sender As Object, ByVal e As System.EventArgs)
        If (FileUpload1.PostedFile.FileName = "") Then
            Me.Response.Write("<script>javascript:alert('请选择要上传的文件');</script>")
            Exit Sub
        End If
        Dim oldDocumentName, newDocumentName As String
        Dim i As Integer
        oldDocumentName = FileUpload1.PostedFile.FileName
        i = oldDocumentName.LastIndexOf("\")
        newDocumentName = oldDocumentName.Substring(i + 1)
        Dim db As New DBObject

        Dim SqlConnection1 As SqlConnection = db.cn
        SqlConnection1.Open()

        Dim sql As String = "Select * from document where DocumentName='" & newDocumentName & "'"
        Dim MyComm As New SqlCommand(sql, SqlConnection1)
        Dim idNo As Integer
        idNo = MyComm.ExecuteScalar()
        If idNo <> 0 Then
            Me.Response.Write("<script>javascript:alert('该文件名已存在,请更改文件名');</script>")
            Exit Sub
        Else
            Dim DocumentDataStream As IO.Stream = FileUpload1.PostedFile.InputStream
            Dim DocumentLength As Integer = FileUpload1.PostedFile.ContentLength
            Dim DocumentType As String = FileUpload1.PostedFile.ContentType
            Dim DocumentData() As Byte
            ReDim DocumentData(DocumentLength)
            DocumentDataStream.Read(DocumentData, 0, DocumentLength)
            DocumentDataStream.Close()


            Dim cmdText As String = "Insert into document(DocumentName,DocumentData,DocumentType,DocumentLength,StudentNo,UploadDate) values(@DocumentName,@DocumentData,@DocumentType,@DocumentLength,@StudentNo,@UploadDate)"
            Dim MyComm1 As New SqlClient.SqlCommand(cmdText, SqlConnection1)
            Dim paraTitle As New SqlClient.SqlParameter
            With paraTitle
                .ParameterName = "@DocumentName"
                .SqlDbType = SqlDbType.VarChar
                .Size = 35
                .Value = newDocumentName
            End With
            MyComm1.Parameters.Add(paraTitle)

            Dim paraData As New SqlClient.SqlParameter
            With paraData
                .ParameterName = "@DocumentData"
                ''存储过程参数的定义
                .SqlDbType = SqlDbType.Image
                .Value = DocumentData
            End With
            MyComm1.Parameters.Add(paraData)

            Dim paraType As New SqlClient.SqlParameter
            With paraType
                .ParameterName = "@DocumentType"
                .SqlDbType = SqlDbType.VarChar
                .Size = 25
                .Value = DocumentType
            End With
            MyComm1.Parameters.Add(paraType)

            Dim paraLength As New SqlParameter
            With paraLength
                .ParameterName = "@DocumentLength"
                .SqlDbType = SqlDbType.Int
                .Value = DocumentLength
            End With
            MyComm1.Parameters.Add(paraLength)

            Dim paraStudentNo As New SqlParameter
            With paraStudentNo
                .ParameterName = "@StudentNo"
                .SqlDbType = SqlDbType.NVarChar
                .Value = Session("userid")
            End With
            MyComm1.Parameters.Add(paraStudentNo)

            Dim paraUploadDate As New SqlParameter
            With paraUploadDate
                .ParameterName = "@UploadDate"
                .SqlDbType = SqlDbType.NVarChar
                .Value = System.DateTime.Today
            End With
            MyComm1.Parameters.Add(paraUploadDate)

            MyComm1.ExecuteNonQuery()
            SqlConnection1.Close()
            Me.Response.Write("<script>javascript:alert(' 提交成功!');</script>")
        End If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("role") = "学生" Then
        Else
            Response.Redirect("~/Default.aspx")
        End If
    End Sub

    Protected Sub TextBox3_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)

    End Sub
End Class