用户控件加载（VB）

cs：

    Dim Control As Object
////////////////////////////////
            If (Request.Cookies("UserInfo")("e_id") <> "") Then
                Control = New ctl_pds_fcc
                Control = CType(Me.Page.LoadControl("control/ctl_pds_fcc.ascx"), ctl_pds_fcc)
                'CType(Control, ctl_pds_fcc).ID = i
                CType(Control, ctl_pds_fcc).e_id = Request.Cookies("UserInfo")("e_id") '員工代碼
                CType(Control, ctl_pds_fcc).from_id = Request.QueryString("from_pub_id")
                PlaceHolder1.Controls.Add(Control)
            End If

ascx：

Imports SmartWeb.WebBase1
Imports System.Data.SqlClient
 SmartWeb.ctrlBase

' 定义一些方法（外部d）

    Public str_e_id As String