conn.aspx.vb

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

    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\CONN.ASP CodeCookie:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\CONN.ASP
Function DecodeCookie(ByRef  AspToAspX_Str )
On Error GoTo _AspToAspX_Err
    Dim i
    Dim StrArr
    Dim StrRtn
    StrArr = AspToAspX_Split ( AspToAspX_Str , "a" ) '414
    For i = 0 To Val ( UBound ( StrArr ) ) '415
        If AspToAspX_CheckIsNumeric ( StrArr ( i ) ) = True Then '416
            StrRtn = ChrW ( StrArr ( i ) ) & StrRtn '417
        Else '418
            StrRtn = AspToAspX_Str '419
            Exit Function '420
        End If '421
    Next '422
    DecodeCookie = StrRtn '423
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\CONN.ASP DecodeCookie:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\CONN.ASP
Function setcookie(ByRef  cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
On Error GoTo _AspToAspX_Err
    If AspToAspX_CheckDBNull ( cookexpires ) < > 0 Then '427
        Response.Cookies ( cookneme ).Expires = ToDay ( ).AddDays ( cookexpires ) '428
    End If '429
    If AspToAspX_CheckDBNull ( cookdomain ) < > EmptyString.Value Then '430
        Response.Cookies ( cookneme ).Domain = cookdomain '431
    End If '432
    Response.Cookies ( cookneme ).Value = cookvalue '433
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\CONN.ASP setcookie:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\CONN.ASP
Function getcookie(ByRef  ckname )
On Error GoTo _AspToAspX_Err
    Dim ckvalue
    If IsDBNull ( ckname ) Or AspToAspX_CheckDBNull ( ckname ) = EmptyString.Value Then '437
        getcookie = "" '438
        Exit Function '439
    End If '440
    ckvalue = AspToAspX_GetRequestCookies ( ckname ) '441
    ckname = LCase ( ckname ) '442
    If ( AspToAspX_CheckDBNull ( ckname ) = "clubuser_id" Or AspToAspX_CheckDBNull ( ckname ) = "bz" Or AspToAspX_CheckDBNull ( ckname ) = "bbsadmin" Or AspToAspX_CheckDBNull ( ckname ) = "payuser" Or AspToAspX_CheckDBNull ( ckname ) = "bokeer" ) And AspToAspX_CheckDBNull ( ckvalue ) < > EmptyString.Value Then '443
    On Error Resume Next '444
    ckvalue = AspToAspX_CInt ( ckvalue ) '445
    Else '446
        ckvalue = Replace ( ckvalue , "'" , "" ) '447
        ckvalue = Replace ( ckvalue , " " , "" ) '448
        ckvalue = Replace ( ckvalue , "," , "" ) '449
        ckvalue = Replace ( ckvalue , ";" , "" ) '450
        ckvalue = Replace ( ckvalue , Chr ( 0 ) , "" ) '451
    End If '452
    getcookie = ckvalue '453
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\CONN.ASP getcookie:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\CONN.ASP
Function clearcookie(ByRef  cookdomain,ByRef cookneme )
On Error GoTo _AspToAspX_Err
    If AspToAspX_CheckDBNull ( cookdomain ) < > EmptyString.Value Then '457
        Response.Cookies ( cookneme ).Domain = cookdomain '458
    End If '459
    Response.Cookies ( cookneme ).Value = "" '460
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\CONN.ASP clearcookie:" & Err.Description)
    Resume Next
End Function
#Region "..."
    Public Sub SaveToFile( ByVal strBody,ByVal File )
        ASPX_ADOSTREAM.SaveToFile( strBody, File )
    End Sub

    Public Property i
        Get
            On Error Resume Next
            i = AspToAspX_Host_Class_Object.i
            If Err.Number = 438 Then
                Err.Clear
                i = _aspx_i
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.i = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_i = value
            End If
        End Set
    End Property
    Public Property username
        Get
            On Error Resume Next
            username = AspToAspX_Host_Class_Object.username
            If Err.Number = 438 Then
                Err.Clear
                username = _aspx_username
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.username = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_username = value
            End If
        End Set
    End Property
    Public Property cl
        Get
            On Error Resume Next
            cl = AspToAspX_Host_Class_Object.cl
            If Err.Number = 438 Then
                Err.Clear
                cl = _aspx_cl
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.cl = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_cl = 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 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 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
    Public Property ConnectionString
        Get
            On Error Resume Next
            ConnectionString = AspToAspX_Host_Class_Object.ConnectionString
            If Err.Number = 438 Then
                Err.Clear
                ConnectionString = _aspx_ConnectionString
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.ConnectionString = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_ConnectionString = value
            End If
        End Set
    End Property
    Public Property msg
        Get
            On Error Resume Next
            msg = AspToAspX_Host_Class_Object.msg
            If Err.Number = 438 Then
                Err.Clear
                msg = _aspx_msg
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.msg = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_msg = 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 FileName
        Get
            On Error Resume Next
            FileName = AspToAspX_Host_Class_Object.FileName
            If Err.Number = 438 Then
                Err.Clear