listcontent.aspx.vb

图书借阅系统：建立一个图书管理系统

Public Class ListContent
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents pcontainer As System.Web.UI.WebControls.PlaceHolder

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    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
        '在此处放置初始化页的用户代码
        If Session("UserID") = "" Then
            Response.Redirect("Login.aspx")
        End If
        Dim type As Integer = CType(Request("type"), Integer)
        Dim BookID As String = ""
        If Not Request("BookID") Is Nothing Then
            BookID = Request("BookID")
        End If
        Dim obj As Control
        Select Case type
            Case 1 : If BookID <> "" Then
                    ReLendBook(BookID)
                End If
                obj = Page.LoadControl("CurrentList.ascx")
            Case 2 : obj = Page.LoadControl("HistoryList.ascx")
            Case 3 : If BookID <> "" Then
                    CancelBooking(BookID)
                End If
                obj = Page.LoadControl("BookingList.ascx")
        End Select
        pcontainer.Controls.Clear()
        pcontainer.Controls.Add(obj)
    End Sub
    Sub CancelBooking(ByVal BookID As String)
        Dim UserID As String = CType(Session("UserID"), String)
        Dim obj As BookController = New BookController
        obj.CancelBooking(UserID, BookID)
    End Sub
    Sub ReLendBook(ByVal BookID As String)
        Dim UserID As String = CType(Session("UserID"), String)
        Dim obj As BookController = New BookController
        obj.ReLendBook(UserID, BookID)
    End Sub

End Class