publicfun.aspx.vb

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

            conn = AspToAspX_Host_Class_Object.conn
            If Err.Number = 438 Then
                Err.Clear
                conn = _aspx_conn
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.conn = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_conn = 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 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 tyname1
        Get
            On Error Resume Next
            tyname1 = AspToAspX_Host_Class_Object.tyname1
            If Err.Number = 438 Then
                Err.Clear
                tyname1 = _aspx_tyname1
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.tyname1 = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_tyname1 = value
            End If
        End Set
    End Property
    Public Property tyvalue1
        Get
            On Error Resume Next
            tyvalue1 = AspToAspX_Host_Class_Object.tyvalue1
            If Err.Number = 438 Then
                Err.Clear
                tyvalue1 = _aspx_tyvalue1
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.tyvalue1 = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_tyvalue1 = value
            End If
        End Set
    End Property
    Public Property tyname2
        Get
            On Error Resume Next
            tyname2 = AspToAspX_Host_Class_Object.tyname2
            If Err.Number = 438 Then
                Err.Clear
                tyname2 = _aspx_tyname2
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.tyname2 = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_tyname2 = value
            End If
        End Set
    End Property
    Public Property tyvalue2
        Get
            On Error Resume Next
            tyvalue2 = AspToAspX_Host_Class_Object.tyvalue2
            If Err.Number = 438 Then
                Err.Clear
                tyvalue2 = _aspx_tyvalue2
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.tyvalue2 = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_tyvalue2 = value
            End If
        End Set
    End Property
    Public Property wzrep
        Get
            On Error Resume Next
            wzrep = AspToAspX_Host_Class_Object.wzrep
            If Err.Number = 438 Then
                Err.Clear
                wzrep = _aspx_wzrep
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.wzrep = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_wzrep = value
            End If
        End Set
    End Property
    Public Property wzpage
        Get
            On Error Resume Next
            wzpage = AspToAspX_Host_Class_Object.wzpage
            If Err.Number = 438 Then
                Err.Clear
                wzpage = _aspx_wzpage
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.wzpage = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_wzpage = value
            End If
        End Set
    End Property
    Public Property wzcount
        Get
            On Error Resume Next
            wzcount = AspToAspX_Host_Class_Object.wzcount
            If Err.Number = 438 Then
                Err.Clear
                wzcount = _aspx_wzcount
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.wzcount = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_wzcount = value
            End If
        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 tyname
        Get
            On Error Resume Next
            tyname = AspToAspX_Host_Class_Object.tyname
            If Err.Number = 438 Then
                Err.Clear
                tyname = _aspx_tyname
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.tyname = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_tyname = value
            End If
        End Set
    End Property
    Public Property filename
        Get
            On Error Resume Next
            filename = AspToAspX_Host_Class_Object.filename
            If Err.Number = 438 Then
                Err.Clear
                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 myFolder
        Get
            On Error Resume Next
            myFolder = AspToAspX_Host_Class_Object.myFolder
            If Err.Number = 438 Then
                Err.Clear
                myFolder = _aspx_myFolder
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.myFolder = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_myFolder = value
            End If
        End Set
    End Property
    Public Property MypicFile
        Get
            On Error Resume Next
            MypicFile = AspToAspX_Host_Class_Object.MypicFile
            If Err.Number = 438 Then
                Err.Clear
                MypicFile = _aspx_MypicFile
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.MypicFile = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_MypicFile = value
            End If
        End Set
    End Property
    Public Property nl
        Get
            On Error Resume Next
            nl = AspToAspX_Host_Class_Object.nl
            If Err.Number = 438 Then
                Err.Clear
                nl = _aspx_nl
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.nl = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_nl = value
            End If
        End Set
    End Property
    Public Property pagenum
        Get
            On Error Resume Next
            pagenum = AspToAspX_Host_Class_Object.pagenum
            If Err.Number = 438 Then
                Err.Clear
                pagenum = _aspx_pagenum
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.pagenum = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_pagenum = value
            End If
        End Set
    End Property
    Public Sub SaveToFile( ByVal strBody,ByVal File )
        AspToAspX_Host_Class_Object.SaveToFile( strBody, File )
    End Sub

#End Region
End Class