bkindex.aspx.vb

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

        AspToAspX_WriteLog ("bkindex_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\BKINDEX.ASP
Function formatdate(ByRef  Ftbbs_Time )
On Error GoTo _AspToAspX_Err
    Dim Ftbbs_Year
    Dim Ftbbs_Month
    Dim Ftbbs_Day
    Dim Ftbbs_Hour
    Dim Ftbbs_Minute
    Dim Ftbbs_Second
    Ftbbs_Year = right ( Year ( Ftbbs_Time ) , 2 ) '415
    Ftbbs_Month = Month ( Ftbbs_Time ) '416
    Ftbbs_Day = Day ( Ftbbs_Time ) '417
    Ftbbs_Hour = Hour ( Ftbbs_Time ) '418
    Ftbbs_Minute = Minute ( Ftbbs_Time ) '419
    Ftbbs_Second = Second ( Ftbbs_Time ) '420
    If AspToAspX_Len ( Ftbbs_Month ) = 1 Then
Ftbbs_Month = "0" & Ftbbs_Month
End If
   '421
    If AspToAspX_Len ( Ftbbs_Day ) = 1 Then
Ftbbs_Day = "0" & Ftbbs_Day
End If
   '422
    If AspToAspX_Len ( Ftbbs_Hour ) = 1 Then
Ftbbs_Hour = "0" & Ftbbs_Hour
End If
   '423
    If AspToAspX_Len ( Ftbbs_Minute ) = 1 Then
Ftbbs_Minute = "0" & Ftbbs_Minute
End If
   '424
    If AspToAspX_Len ( Ftbbs_Second ) = 1 Then
Ftbbs_Second = "0" & Ftbbs_Second
End If
   '425
        formatdate = Ftbbs_Year & "-" & Ftbbs_Month & "-" & Ftbbs_Day & " " & Ftbbs_Hour & ":" & Ftbbs_Minute & ":" & Ftbbs_Second '426
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\BKINDEX.ASP formatdate:" & Err.Description)
    Resume Next
End Function
#Region "..."
    Public Property conn
        Get
            conn = ASPX_CONN.conn
        End Get
        Set(ByVal value)
            ASPX_CONN.conn = value
        End Set
    End Property
    Public Property qs
        Get
            qs = ASPX_CONN.qs
        End Get
        Set(ByVal value)
            ASPX_CONN.qs = value
        End Set
    End Property
    Public Property errc
        Get
            errc = ASPX_CONN.errc
        End Get
        Set(ByVal value)
            ASPX_CONN.errc = value
        End Set
    End Property
    Public Property iii
        Get
            iii = ASPX_CONN.iii
        End Get
        Set(ByVal value)
            ASPX_CONN.iii = value
        End Set
    End Property
    Public Property nothis
        Get
            nothis = ASPX_CONN.nothis
        End Get
        Set(ByVal value)
            ASPX_CONN.nothis = value
        End Set
    End Property
    Public Sub makeftbbstree(ByRef  ft )
        ASPX_CONN.makeftbbstree( ft )
    End Sub

    Public Sub CloseDb
        ASPX_CONN.CloseDb
    End Sub

    Public Sub SaveToFile( ByVal strBody,ByVal File )
        ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
    End Sub

    Public Function Checkstr(ByRef  AspToAspX_Str )
        Return ASPX_CONN.Checkstr( AspToAspX_Str )
    End Function

    Public Function CheckCharStr(ByRef  usernamepsw,ByRef flag )
        Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
    End Function

    Public Function ftbbs_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.ftbbs_msg( msg,reurl )
    End Function

    Public Function login_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.login_msg( msg,reurl )
    End Function

    Public Function FTBBS_HTML_MB(ByRef  ft )
        Return ASPX_CONN.FTBBS_HTML_MB( ft )
    End Function

    Public Function FTBBS_BZ_NAME(ByRef  BoardID_1,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
    End Function

    Public Function FTBBS_BZ_NAME2(ByRef  BoardID_1,ByRef BoardID_2,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
    End Function

    Public Function makefilename(ByRef  fname )
        Return ASPX_CONN.makefilename( fname )
    End Function

    Public Function GetExtendName(ByRef  FileName )
        Return ASPX_CONN.GetExtendName( FileName )
    End Function

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

    Public Function ChkMapPath( ByVal strPath )
        Return ASPX_CONN.ChkMapPath( strPath )
    End Function

    Public Function userlogin(ByRef  ft )
        Return ASPX_CONN.userlogin( ft )
    End Function

    Public Function headhtml
        Return ASPX_CONN.headhtml
    End Function

    Public Function GetOpInfo(ByRef  AspToAspX_Str,ByRef Flag )
        Return ASPX_CONN.GetOpInfo( AspToAspX_Str,Flag )
    End Function

    Public Function getcode
        Return ASPX_CONN.getcode
    End Function

    Public Function codepass
        Return ASPX_CONN.codepass
    End Function

    Public Function Ftbbs_Time
        Return ASPX_CONN.Ftbbs_Time
    End Function

    Public Function ft_home(ByRef  defaulthome )
        Return ASPX_CONN.ft_home( defaulthome )
    End Function

    Public Function chkpost
        Return ASPX_CONN.chkpost
    End Function

    Public Function CodeCookie(ByRef  AspToAspX_Str )
        Return ASPX_CONN.CodeCookie( AspToAspX_Str )
    End Function

    Public Function DecodeCookie(ByRef  AspToAspX_Str )
        Return ASPX_CONN.DecodeCookie( AspToAspX_Str )
    End Function

    Public Function setcookie(ByRef  cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
        Return ASPX_CONN.setcookie( cookexpires,cookdomain,cookneme,cookvalue )
    End Function

    Public Function getcookie(ByRef  ckname )
        Return ASPX_CONN.getcookie( ckname )
    End Function

    Public Function clearcookie(ByRef  cookdomain,ByRef cookneme )
        Return ASPX_CONN.clearcookie( cookdomain,cookneme )
    End Function

    Public Function LoadFile( ByVal File )
        Return ASPX_CONN.ASPX_ADOSTREAM.LoadFile( File )
    End Function

    Public Function GBtoUTF8(ByRef  szInput )
        Return ASPX_GBTOUTF8.GBtoUTF8( szInput )
    End Function

#End Region
End Class