rblog.aspx.vb

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

        End Set
    End Property
    Public Property userid
        Get
            On Error Resume Next
            userid = AspToAspX_Host_Class_Object.userid
            If Err.Number = 438 Then
                Err.Clear
                userid = _aspx_userid
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.userid = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_userid = value
            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 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 CurrentDate
        Get
            On Error Resume Next
            CurrentDate = AspToAspX_Host_Class_Object.CurrentDate
            If Err.Number = 438 Then
                Err.Clear
                CurrentDate = _aspx_CurrentDate
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.CurrentDate = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_CurrentDate = value
            End If
        End Set
    End Property
    Public Property PreviousMonthDate
        Get
            On Error Resume Next
            PreviousMonthDate = AspToAspX_Host_Class_Object.PreviousMonthDate
            If Err.Number = 438 Then
                Err.Clear
                PreviousMonthDate = _aspx_PreviousMonthDate
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.PreviousMonthDate = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_PreviousMonthDate = value
            End If
        End Set
    End Property
    Public Property NextMonthDate
        Get
            On Error Resume Next
            NextMonthDate = AspToAspX_Host_Class_Object.NextMonthDate
            If Err.Number = 438 Then
                Err.Clear
                NextMonthDate = _aspx_NextMonthDate
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.NextMonthDate = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_NextMonthDate = value
            End If
        End Set
    End Property
    Public Property bgnum
        Get
            On Error Resume Next
            bgnum = AspToAspX_Host_Class_Object.bgnum
            If Err.Number = 438 Then
                Err.Clear
                bgnum = _aspx_bgnum
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.bgnum = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_bgnum = value
            End If
        End Set
    End Property
    Public Property ym
        Get
            On Error Resume Next
            ym = AspToAspX_Host_Class_Object.ym
            If Err.Number = 438 Then
                Err.Clear
                ym = _aspx_ym
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.ym = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_ym = value
            End If
        End Set
    End Property
    Public Property j
        Get
            On Error Resume Next
            j = AspToAspX_Host_Class_Object.j
            If Err.Number = 438 Then
                Err.Clear
                j = _aspx_j
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.j = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_j = value
            End If
        End Set
    End Property
    Public Property CurrentWeekDay
        Get
            On Error Resume Next
            CurrentWeekDay = AspToAspX_Host_Class_Object.CurrentWeekDay
            If Err.Number = 438 Then
                Err.Clear
                CurrentWeekDay = _aspx_CurrentWeekDay
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.CurrentWeekDay = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_CurrentWeekDay = value
            End If
        End Set
    End Property
    Public Property LinkText
        Get
            On Error Resume Next
            LinkText = AspToAspX_Host_Class_Object.LinkText
            If Err.Number = 438 Then
                Err.Clear
                LinkText = _aspx_LinkText
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.LinkText = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_LinkText = value
            End If
        End Set
    End Property
    Public Property blogtypeid
        Get
            On Error Resume Next
            blogtypeid = AspToAspX_Host_Class_Object.blogtypeid
            If Err.Number = 438 Then
                Err.Clear
                blogtypeid = _aspx_blogtypeid
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.blogtypeid = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_blogtypeid = value
            End If
        End Set
    End Property
    Public Function nohtml(ByRef  AspToAspX_Str )
        Return AspToAspX_Host_Class_Object.nohtml( AspToAspX_Str )
    End Function

#End Region
End Class