uploadfile.aspx.vb

程序设计:Flyangel 用到了vb.net c# asp.net xml等 最大特别是核心功能组件化. 特色: 强大的后台管理功能 支持二级分类 支持匿名投稿 超强用户权限设置

Imports System.Configuration
Imports System.Drawing.Imaging
Imports flyangel.article.twotipclass

Public Class uploadfile
    Inherits System.Web.UI.Page
    Protected WithEvents button_upfile As System.Web.UI.WebControls.Button
    Protected WithEvents upload_title As System.Web.UI.WebControls.Label
    Protected WithEvents upload_type As System.Web.UI.WebControls.Label
    Protected WithEvents inpfileup As System.Web.UI.HtmlControls.HtmlInputFile
    Protected WithEvents Panel_selectfile As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel_message As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel_uploadbutton As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel_insertbutton As System.Web.UI.WebControls.Panel
    Protected WithEvents uploadfiletype As System.Web.UI.HtmlControls.HtmlInputHidden
    Protected WithEvents uploadfileurl As System.Web.UI.HtmlControls.HtmlInputHidden
    Protected WithEvents uploadfilename As System.Web.UI.HtmlControls.HtmlInputHidden
    Protected WithEvents error_message As System.Web.UI.WebControls.Label

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

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

    End Sub

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

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        Dim dpfly As iUserClass = HowToUsingFlyangel.iUserClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringB")
        If Not dpfly.GetUserLoginCheck() Then
            Response.Redirect("../js/filenotfound.aspx")
        End If

        If Request.Cookies("UserInfo").Values("Upload_Level") <> 1 Then
            Response.Redirect("../js/filenotfound.aspx")
            Exit Sub
        End If

        upload_title.Text = "<b>文件上传</b>"
        upload_type.Text = "支持" & ConfigurationSettings.AppSettings("uploadtype") & "格式文件，大小在" & (ConfigurationSettings.AppSettings("uploadsize") / 1024) & "KB以内"
        If Not IsPostBack Then
            Panel_selectfile.Visible = True
            Panel_uploadbutton.Visible = True
            Panel_message.Visible = False
            Panel_insertbutton.Visible = False
        End If

    End Sub


    Private Sub button_upfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_upfile.Click
        Dim _postedfile As HttpPostedFile = inpfileup.PostedFile
        If _postedfile.FileName = "" Then
            error_message.Text = "错误！"
            Exit Sub
        End If

        Dim uploadbool As Boolean = False
        Dim ifiledo As iFileDoClass = HowToUsingFlyangel.iFileDoClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        ifiledo.SetAllowFileUpLoadSize = ConfigurationSettings.AppSettings("AllowFileUpLoadSize")
        ifiledo.SetAllowFileUpLoadType = ConfigurationSettings.AppSettings("AllowFileUpLoadTypeB")
        ifiledo.SetFileUpLoadPath = ConfigurationSettings.AppSettings("FileUpLoadPath")

        Dim _extstring As String = (_postedfile.FileName).Substring(_postedfile.FileName.LastIndexOf(".")).ToLower()

        If _extstring = ".jpg" Or _extstring = ".png" Or _extstring = ".bmp" Or _extstring = ".jpeg" Then
            ifiledo.SetImageSealFontColor = Color.BlueViolet
            ifiledo.SetImageSealText = ConfigurationSettings.AppSettings("AddImagesSealText")
            uploadbool = ifiledo.AddSealTextImages(_postedfile, False, True, False)
        Else
            uploadbool = ifiledo.FileUpload(_postedfile)
        End If

        If Not uploadbool Then
            error_message.Text = ifiledo.GetUploadFileMessage
            Panel_message.Visible = True
            Panel_selectfile.Visible = False
            Panel_uploadbutton.Visible = False
            Exit Sub
        End If

        Dim sFiletype As String
        sFiletype = ifiledo.Getimagefiletype.Replace(".", "")

        If sFiletype = "gif" Or sFiletype = "jpg" Or sFiletype = "png" Or sFiletype = "bmp" Then
            uploadfiletype.Value = "img"
        ElseIf sFiletype = "xml" Then
            uploadfiletype.Value = "xml"
        ElseIf sFiletype = "pas" Then
            uploadfiletype.Value = "pas"
        Else
            uploadfiletype.Value = "other"
        End If
        Panel_message.Visible = True

        Dim dplog As iSystemClass = HowToUsingFlyangel.iSystemClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
        dplog.SetLogXmlSchema = ConfigurationSettings.AppSettings("logxsd")

        dplog.Log_Add_cache("上传文件", Request.Cookies("UserInfo").Values("UserName"), ifiledo.GetUploadFileName & "（大小：" & (ifiledo.GetUploadsize / 1024) & "KB）", Request.UserHostAddress & "-" & Request.UserHostName)
        error_message.Text = ifiledo.GetUploadFileMessage & " " & ifiledo.GetUploadFileName & "（大小：" & (ifiledo.GetUploadsize / 1024) & "KB）"
        uploadfileurl.Value = ConfigurationSettings.AppSettings("UpLoadUrl") & ifiledo.GetUploadFileName
        uploadfilename.Value = ifiledo.GetUploadFileName
        Panel_selectfile.Visible = False
        Panel_uploadbutton.Visible = False
        Panel_insertbutton.Visible = True
    End Sub


End Class