touxianfun.aspx.vb

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

            End If
        End Set
    End Property
    Public Property sql
        Get
            On Error Resume Next
            sql = AspToAspX_Host_Class_Object.sql
            If Err.Number = 438 Then
                Err.Clear
                sql = _aspx_sql
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.sql = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_sql = value
            End If
        End Set
    End Property
    Public Property rs
        Get
            On Error Resume Next
            rs = AspToAspX_Host_Class_Object.rs
            If Err.Number = 438 Then
                Err.Clear
                rs = _aspx_rs
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.rs = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_rs = value
            End If
        End Set
    End Property
    Public Property AspToAspX_Str
        Get
            On Error Resume Next
            AspToAspX_Str = AspToAspX_Host_Class_Object.AspToAspX_Str
            If Err.Number = 438 Then
                Err.Clear
                AspToAspX_Str = _aspx_AspToAspX_Str
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.AspToAspX_Str = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_AspToAspX_Str = value
            End If
        End Set
    End Property
    Public Property ft
        Get
            On Error Resume Next
            ft = AspToAspX_Host_Class_Object.ft
            If Err.Number = 438 Then
                Err.Clear
                ft = _aspx_ft
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.ft = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_ft = value
            End If
        End Set
    End Property
    Public Property cookiesname
        Get
            On Error Resume Next
            cookiesname = AspToAspX_Host_Class_Object.cookiesname
            If Err.Number = 438 Then
                Err.Clear
                cookiesname = _aspx_cookiesname
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.cookiesname = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_cookiesname = value
            End If
        End Set
    End Property
    Public Property clubuser_id
        Get
            On Error Resume Next
            clubuser_id = AspToAspX_Host_Class_Object.clubuser_id
            If Err.Number = 438 Then
                Err.Clear
                clubuser_id = _aspx_clubuser_id
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.clubuser_id = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_clubuser_id = value
            End If
        End Set
    End Property
    Public Property title
        Get
            On Error Resume Next
            title = AspToAspX_Host_Class_Object.title
            If Err.Number = 438 Then
                Err.Clear
                title = _aspx_title
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.title = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_title = value
            End If
        End Set
    End Property
    Public Property jingyuan
        Get
            On Error Resume Next
            jingyuan = AspToAspX_Host_Class_Object.jingyuan
            If Err.Number = 438 Then
                Err.Clear
                jingyuan = _aspx_jingyuan
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.jingyuan = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_jingyuan = value
            End If
        End Set
    End Property
    Public Property touxian
        Get
            On Error Resume Next
            touxian = AspToAspX_Host_Class_Object.touxian
            If Err.Number = 438 Then
                Err.Clear
                touxian = _aspx_touxian
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.touxian = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_touxian = value
            End If
        End Set
    End Property
    Public Property jibie
        Get
            On Error Resume Next
            jibie = AspToAspX_Host_Class_Object.jibie
            If Err.Number = 438 Then
                Err.Clear
                jibie = _aspx_jibie
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.jibie = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_jibie = 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 postuser
        Get
            On Error Resume Next
            postuser = AspToAspX_Host_Class_Object.postuser
            If Err.Number = 438 Then
                Err.Clear
                postuser = _aspx_postuser
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.postuser = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_postuser = value
            End If
        End Set
    End Property
    Public Property topvalue
        Get
            On Error Resume Next
            topvalue = AspToAspX_Host_Class_Object.topvalue
            If Err.Number = 438 Then
                Err.Clear
                topvalue = _aspx_topvalue
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.topvalue = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_topvalue = value
            End If
        End Set
    End Property
    Public Sub SaveToFile( ByVal strBody,ByVal File )
        AspToAspX_Host_Class_Object.SaveToFile( strBody, File )
    End Sub

    Public Function IsObjInstalled(ByRef  strClassString )
        Return AspToAspX_Host_Class_Object.IsObjInstalled( strClassString )
    End Function

#End Region
End Class