config.aspx.vb

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

' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  [e-mail]        *
' *        EMail  [e-mail]              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


Public Class _CONFIG

    Public AspToAspX_Host_Class_Object As Object

Dim _aspx_linkdb,_aspx_ft,_aspx_ku,_aspx_ckiesdomain,_aspx_conndb
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
    End Sub

#End Region
    Public Sub AspToAspX_Page_Init()
    On Error GoTo _AspToAspX_Err
    linkdb = 1 '2
    ft = "ft_" '3
    ku = "\database\ftbbs.mdb" '4
    ckiesdomain = "" '5
    conndb = "driver={sql server};server=(local);uid=sa;pwd=;database=ftbbs;" '6
    Response.Write ( vbCrLf )

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("config_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
    Public Property linkdb
        Get
            On Error Resume Next
            linkdb = AspToAspX_Host_Class_Object.linkdb
            If Err.Number = 438 Then
                Err.Clear
                linkdb = _aspx_linkdb
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.linkdb = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_linkdb = 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 ku
        Get
            On Error Resume Next
            ku = AspToAspX_Host_Class_Object.ku
            If Err.Number = 438 Then
                Err.Clear
                ku = _aspx_ku
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.ku = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_ku = value
            End If
        End Set
    End Property
    Public Property ckiesdomain
        Get
            On Error Resume Next
            ckiesdomain = AspToAspX_Host_Class_Object.ckiesdomain
            If Err.Number = 438 Then
                Err.Clear
                ckiesdomain = _aspx_ckiesdomain
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.ckiesdomain = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_ckiesdomain = value
            End If
        End Set
    End Property
    Public Property conndb
        Get
            On Error Resume Next
            conndb = AspToAspX_Host_Class_Object.conndb
            If Err.Number = 438 Then
                Err.Clear
                conndb = _aspx_conndb
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.conndb = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_conndb = value
            End If
        End Set
    End Property
#End Region
End Class