companyform.aspx.vb

来自「旅客信息管理、酒店客房管理、各种信息查询」· VB 代码 · 共 18 行

'文件名:CompanyForm.aspx.vb
Partial Class SystemManage_CompanyForm
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim MyForbidString As String = Session("MyForbid").ToString()
        If (MyForbidString.IndexOf("E2") > 1) Then
            Server.Transfer("~/SystemManage/AllErrorHelp.aspx")
        End If
        Me.Page.Title = "当前位置：系统管理->酒店信息设置"
    End Sub
    Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpload.Click
        '上传图像文件
        Dim MyFileName As String = Me.FileUpload1.FileName
        Dim MyTargetFile As String = System.IO.Path.Combine(HttpContext.Current.Server.MapPath("~/Images/"), MyFileName)
        Me.FileUpload1.PostedFile.SaveAs(MyTargetFile)
    End Sub
End Class