conn.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

                FileName = _aspx_FileName
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.FileName = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_FileName = value
            End If
        End Set
    End Property
    Public Property BoardID_1
        Get
            On Error Resume Next
            BoardID_1 = AspToAspX_Host_Class_Object.BoardID_1
            If Err.Number = 438 Then
                Err.Clear
                BoardID_1 = _aspx_BoardID_1
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.BoardID_1 = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_BoardID_1 = value
            End If
        End Set
    End Property
    Public Property BoardID_2
        Get
            On Error Resume Next
            BoardID_2 = AspToAspX_Host_Class_Object.BoardID_2
            If Err.Number = 438 Then
                Err.Clear
                BoardID_2 = _aspx_BoardID_2
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.BoardID_2 = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_BoardID_2 = value
            End If
        End Set
    End Property
    Public Property k
        Get
            On Error Resume Next
            k = AspToAspX_Host_Class_Object.k
            If Err.Number = 438 Then
                Err.Clear
                k = _aspx_k
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.k = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_k = value
            End If
        End Set
    End Property
    Public Property flag
        Get
            On Error Resume Next
            flag = AspToAspX_Host_Class_Object.flag
            If Err.Number = 438 Then
                Err.Clear
                flag = _aspx_flag
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.flag = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_flag = value
            End If
        End Set
    End Property
    Public Property fname
        Get
            On Error Resume Next
            fname = AspToAspX_Host_Class_Object.fname
            If Err.Number = 438 Then
                Err.Clear
                fname = _aspx_fname
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.fname = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_fname = value
            End If
        End Set
    End Property
    Public Property homepage
        Get
            On Error Resume Next
            homepage = AspToAspX_Host_Class_Object.homepage
            If Err.Number = 438 Then
                Err.Clear
                homepage = _aspx_homepage
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.homepage = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_homepage = value
            End If
        End Set
    End Property
    Public Property codestr
        Get
            On Error Resume Next
            codestr = AspToAspX_Host_Class_Object.codestr
            If Err.Number = 438 Then
                Err.Clear
                codestr = _aspx_codestr
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.codestr = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_codestr = value
            End If
        End Set
    End Property
    Public Property codename
        Get
            On Error Resume Next
            codename = AspToAspX_Host_Class_Object.codename
            If Err.Number = 438 Then
                Err.Clear
                codename = _aspx_codename
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.codename = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_codename = value
            End If
        End Set
    End Property
    Public Property sitenav
        Get
            On Error Resume Next
            sitenav = AspToAspX_Host_Class_Object.sitenav
            If Err.Number = 438 Then
                Err.Clear
                sitenav = _aspx_sitenav
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.sitenav = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_sitenav = value
            End If
        End Set
    End Property
    Public Property cookexpires
        Get
            On Error Resume Next
            cookexpires = AspToAspX_Host_Class_Object.cookexpires
            If Err.Number = 438 Then
                Err.Clear
                cookexpires = _aspx_cookexpires
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.cookexpires = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_cookexpires = value
            End If
        End Set
    End Property
    Public Property defaulthome
        Get
            On Error Resume Next
            defaulthome = AspToAspX_Host_Class_Object.defaulthome
            If Err.Number = 438 Then
                Err.Clear
                defaulthome = _aspx_defaulthome
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.defaulthome = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_defaulthome = value
            End If
        End Set
    End Property
    Public Property sql15
        Get
            On Error Resume Next
            sql15 = AspToAspX_Host_Class_Object.sql15
            If Err.Number = 438 Then
                Err.Clear
                sql15 = _aspx_sql15
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.sql15 = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_sql15 = value
            End If
        End Set
    End Property
    Public Property reurl
        Get
            On Error Resume Next
            reurl = AspToAspX_Host_Class_Object.reurl
            If Err.Number = 438 Then
                Err.Clear
                reurl = _aspx_reurl
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.reurl = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_reurl = value
            End If
        End Set
    End Property
    Public Property ckname
        Get
            On Error Resume Next
            ckname = AspToAspX_Host_Class_Object.ckname
            If Err.Number = 438 Then
                Err.Clear
                ckname = _aspx_ckname
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.ckname = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_ckname = value
            End If
        End Set
    End Property
    Public Property rm
        Get
            On Error Resume Next
            rm = AspToAspX_Host_Class_Object.rm
            If Err.Number = 438 Then
                Err.Clear
                rm = _aspx_rm
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.rm = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_rm = value
            End If
        End Set
    End Property
    Public Property htmtreeurl
        Get
            On Error Resume Next
            htmtreeurl = AspToAspX_Host_Class_Object.htmtreeurl
            If Err.Number = 438 Then
                Err.Clear
                htmtreeurl = _aspx_htmtreeurl
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.htmtreeurl = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_htmtreeurl = value
            End If
        End Set
    End Property
#End Region
End Class