formatdate.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 _FORMATDATE

    Public AspToAspX_Host_Class_Object As Object

#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
    Response.Write ( vbCrLf )

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("formatdate_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\FORMATDATE.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 ) '3
    Ftbbs_Month = Month ( Ftbbs_Time ) '4
    Ftbbs_Day = Day ( Ftbbs_Time ) '5
    Ftbbs_Hour = Hour ( Ftbbs_Time ) '6
    Ftbbs_Minute = Minute ( Ftbbs_Time ) '7
    Ftbbs_Second = Second ( Ftbbs_Time ) '8
    If AspToAspX_Len ( Ftbbs_Month ) = 1 Then
Ftbbs_Month = "0" & Ftbbs_Month
End If
   '9
    If AspToAspX_Len ( Ftbbs_Day ) = 1 Then
Ftbbs_Day = "0" & Ftbbs_Day
End If
   '10
    If AspToAspX_Len ( Ftbbs_Hour ) = 1 Then
Ftbbs_Hour = "0" & Ftbbs_Hour
End If
   '11
    If AspToAspX_Len ( Ftbbs_Minute ) = 1 Then
Ftbbs_Minute = "0" & Ftbbs_Minute
End If
   '12
    If AspToAspX_Len ( Ftbbs_Second ) = 1 Then
Ftbbs_Second = "0" & Ftbbs_Second
End If
   '13
        formatdate = Ftbbs_Year & "-" & Ftbbs_Month & "-" & Ftbbs_Day & " " & Ftbbs_Hour & ":" & Ftbbs_Minute & ":" & Ftbbs_Second '14
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\FORMATDATE.ASP formatdate:" & Err.Description)
    Resume Next
End Function
#Region "..."
    Public Function Ftbbs_Time
        Return AspToAspX_Host_Class_Object.Ftbbs_Time
    End Function

#End Region
End Class