tailfun.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 _BBSADMIN_TAILFUN

    Public AspToAspX_Host_Class_Object As Object

Dim _aspx_ver
#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 ("tailfun_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\BBSADMIN\TAILFUN.ASP
Function maketailjs(ByRef  url,ByRef ver,ByRef bbsname )
On Error GoTo _AspToAspX_Err
    Dim copyyear
    Dim tailnl
    Dim dhurl
    copyyear = Year ( DateAndTime.Now ) '3
    tailnl = "document.write('<div align=""center"">')" & vbCrLf '4
    tailnl = tailnl & "document.write('<table width=980 align=center cellpadding=2 cellspacing=0 style=\""margin-top: 5px;border-top:1px solid #B3DDF8;\"">')" & vbCrLf '5
    tailnl = tailnl & "document.write('<tr><td height=8 bgcolor=""#F8F8F8""></td></tr>')" & vbCrLf '6
    tailnl = tailnl & "document.write('<tr>')" & vbCrLf '7
    tailnl = tailnl & "document.write('<td height=20 bgcolor=""#F8F8F8"">')" & vbCrLf '8
    tailnl = tailnl & "document.write('<div align=center>Powered by <a href=""" & url & """ target=_blank>" & ver & "</a> Code &copy; 2005-" & copyyear & " <a class=""a03"" href=""http://www.ftbbs.cn/default.aspx"">FTBBS</a>.</div>')" & vbCrLf '9
    tailnl = tailnl & "document.write('</td>')" & vbCrLf '10
    tailnl = tailnl & "document.write('</tr>')" & vbCrLf '11
    tailnl = tailnl & "document.write('<tr>')" & vbCrLf '12
    tailnl = tailnl & "document.write('<td height=20 bgcolor=""#F8F8F8"">')" & vbCrLf '13
    tailnl = tailnl & "document.write('<div align=center> Copyright &copy; 2005-" & copyyear & " " & bbsname & ",All Rights Reserved.</div>')" & vbCrLf '14
    tailnl = tailnl & "document.write('</td>')" & vbCrLf '15
    tailnl = tailnl & "document.write('</tr>')" & vbCrLf '16
    tailnl = tailnl & "document.write('<tr>')" & vbCrLf '17
    tailnl = tailnl & "document.write('<td height=8 bgcolor=""#F8F8F8"" valign=""middle"">')" & vbCrLf '18
    tailnl = tailnl & "document.write('</td>')" & vbCrLf '19
    tailnl = tailnl & "document.write('</tr>')" & vbCrLf '20
    tailnl = tailnl & "document.write('</table>')" & vbCrLf '21
    tailnl = tailnl & "document.write('</div>')" & vbCrLf '22
    dhurl = "../inc/htmtail.js" '23
    SaveToFile ( tailnl , dhurl ) '24
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\BBSADMIN\TAILFUN.ASP maketailjs:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\BBSADMIN\TAILFUN.ASP
Function maketailhtm(ByRef  url,ByRef ver,ByRef bbsname )
On Error GoTo _AspToAspX_Err
    Dim copyyear
    Dim tailnl
    Dim dhurl
    copyyear = Year ( DateAndTime.Now ) '27
    tailnl = "<div align=""center"">" & vbCrLf '28
    tailnl = tailnl & "<table width=99% align=center cellpadding=2 cellspacing=0 style=""margin-top: 8px;border-top:1px solid #B3DDF8;"">" & vbCrLf '29
    tailnl = tailnl & "<tr><td height=8 class=""maintbtr3""></td></tr>" & vbCrLf '30
    tailnl = tailnl & "<tr>" & vbCrLf '31
    tailnl = tailnl & "<td height=20 class=""maintbtr3"">" & vbCrLf '32
    tailnl = tailnl & "<div align=center>Powered by <a href=""" & url & """ target=_blank>" & ver & "</a> Code &copy; 2005-" & copyyear & " FTBBS.</div>" & vbCrLf '33
    tailnl = tailnl & "</td>" & vbCrLf '34
    tailnl = tailnl & "</tr>" & vbCrLf '35
    tailnl = tailnl & "<tr>" & vbCrLf '36
    tailnl = tailnl & "<td height=20 class=""maintbtr3"">" & vbCrLf '37
    tailnl = tailnl & "<div align=center> Copyright &copy; 2005-" & copyyear & " " & bbsname & ",All Rights Reserved.</div>" & vbCrLf '38
    tailnl = tailnl & "</td>" & vbCrLf '39
    tailnl = tailnl & "</tr>" & vbCrLf '40
    tailnl = tailnl & "<tr>" & vbCrLf '41
    tailnl = tailnl & "<td height=8 class=""maintbtr3"" valign=""middle"">" & vbCrLf '42
    tailnl = tailnl & "</td>" & vbCrLf '43
    tailnl = tailnl & "</tr>" & vbCrLf '44
    tailnl = tailnl & "</table>" & vbCrLf '45
    tailnl = tailnl & "</div>" & vbCrLf '46
    dhurl = "../inc/bbstail.htm" '47
    SaveToFile ( tailnl , dhurl ) '48
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\BBSADMIN\TAILFUN.ASP maketailhtm:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\BBSADMIN\TAILFUN.ASP
Function copyright(ByRef  url,ByRef ver,ByRef bbsname )
On Error GoTo _AspToAspX_Err
    Dim copyyear
    Dim tailnl
    Dim dhurl
    copyyear = Year ( DateAndTime.Now ) '51
    tailnl = "<div class=""Copyright""><div align=""center"">" & vbCrLf '52
    tailnl = tailnl & "Powered by <a href=""" & url & """ target=""_blank"">" & ver & "</a> Code &copy; 2005-" & copyyear & " FTBBS.<br />" & vbCrLf '53
    tailnl = tailnl & "Copyright &copy; 2005-" & copyyear & " " & bbsname & ", All Rights Reserved." & vbCrLf '54
    tailnl = tailnl & "</div></div>" & vbCrLf '55
    dhurl = "../copyright.htm" '56
    SaveToFile ( tailnl , dhurl ) '57
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\BBSADMIN\TAILFUN.ASP copyright:" & Err.Description)
    Resume Next
End Function
#Region "..."
    Public Property ver
        Get
            On Error Resume Next
            ver = AspToAspX_Host_Class_Object.ver
            If Err.Number = 438 Then
                Err.Clear
                ver = _aspx_ver
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.ver = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_ver = value
            End If
        End Set
    End Property
    Public Sub SaveToFile( ByVal strBody,ByVal File )
        AspToAspX_Host_Class_Object.SaveToFile( strBody, File )
    End Sub

#End Region
End Class