web/UploadPic.aspx.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports BLL
Imports Model
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO
Partial Class UploadPic
    Inherits System.Web.UI.Page
    Dim syscrf As New SystemBLL
    Protected Sub btn_load_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_load.Click
        Dim FileType As String = File3.Value.Substring(File3.Value.LastIndexOf(".") + 1).ToLower()
        Dim sMsg As String = "Please Upload the database file"
        If File3.PostedFile.FileName <> "" Then
            'If UploadData(FileType, Server.MapPath("UploadFiles") & "\KTL") = False Then
            '    Return
            'End If
            If UploadDatas(FileType, Server.MapPath("UploadFiles")) = False Then
                Return
            End If
        Else
            Response.Write("<script defer language='javaScript'>window.alert('" + sMsg + "');</script>")
        End If
    End Sub
    'Private Function UploadData(ByVal filetype As String, ByVal filepath As String) As Boolean
    '    If File3.PostedFile.FileName <> "" Then
    '        Dim fileName As String = File3.PostedFile.FileName
    '        Dim fileLength As String = Convert.ToString(File3.PostedFile.ContentLength)
    '        Dim sMsg As String = "Please close the Access connection"

    '        If Convert.ToInt64(fileLength) > (20 * 1024 * 1024) Then

    '            Return False
    '        Else
    '            fileName = fileName.Substring(fileName.LastIndexOf("\") + 1)
    '            fileName = fileName.Replace("\", "")
    '            Dim strcnid As String() = fileName.Split(".")
    '            Try
    '                File3.PostedFile.SaveAs(filepath + "\" + fileName)
    '                sMsg = "Successful Uploaded File： " + fileName + "；FileSize: " + fileLength + "B" + "；FileType: " + filetype
    '                Response.Write("<script defer language='javaScript'>window.alert('" + sMsg + "');</script>")
    '                GetReducedImage(300, 300, Server.MapPath("UploadFiles") & "\KTL\" & fileName, Server.MapPath("UploadFiles") & "\KTLS\" & fileName)

    '                syscrf.ExecuteSql("Update SH_IMPORTDATA set pic='UploadFiles\KTL\" & fileName & "',pics='UploadFiles\KTLS\" & fileName & "' where cnid='" & strcnid(0).Trim & "'")
    '            Catch ex As Exception
    '                Response.Write("<script defer language='javaScript'>window.alert('" + sMsg + "');</script>")
    '            End Try
    '        End If
    '    Else
    '        Return False
    '    End If
    '    Return True
    'End Function
    Private Function UploadDatas(ByVal filetype As String, ByVal filepath As String) As Boolean
        If File3.PostedFile.FileName <> "" Then
            Dim fileName As String = File3.PostedFile.FileName
            Dim fileLength As String = Convert.ToString(File3.PostedFile.ContentLength)
            Dim sMsg As String = "Please close the Access connection"

            If Convert.ToInt64(fileLength) > (20 * 1024 * 1024) Then