bottom.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 _INSTALL_BOTTOM

    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 ( "<hr noshade align=""center"" width=""100%"" size=""1""></td></tr><tr><td align=""center"">" & Chr ( 13 ) ) '1
    Response.Write ( "<b style=""font-size: 11px"">Powered by <a href=""http://www.ftbbs.cn/default.aspx"" target=""_blank"">FTBBS.CN</a> &nbsp; Copyright &copy; <a href=""http://www.ftbbs.cn"" target=""_blank"">飞天论坛(FTBBS)</a> 2005-" ) '2
    Response.Write ( Year ( DateAndTime.Now ) ) '2
    Response.Write ( "</b><br><br></td></tr></table></td></tr></table></body></html>" & Chr ( 13 ) ) '2

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("bottom_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
#End Region
End Class