viewlist.aspx.vb

来自「 运行环境：Win 2000 Server + SQL Server 2000」· VB 代码 · 共 42 行

Public Class ViewList
    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 Not IsPostBack Then
            Dim str As String = Request.QueryString("IDList")
            Dim IDList() As String = str.Split("_")
            'IDList.Sor
            Dim i As Integer
            For i = 0 To IDList.Length - 1
                Dim obj As BookInfo = Me.LoadControl("BookInfo.ascx")
                obj.BindBookInfo(IDList.GetValue(i))
                PContainer.Controls.Add(obj)
            Next
        End If


    End Sub

End Class