ftbbshome.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 _FTBBSHOME
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public strqs,qssqlstr1,qssql
Public k
Public i
Public ftbbs_name
Public ftbbs_bz
Public ftbbs_bbsadmin
Public ftbbs_payuser
Public getcodeoff
Public sitenav
Public strqssql
Public qsrs
Public qsnum
Public qsbbsx1
Public qsbbs1
Public qsarray1
Public qssqlstrx
Public sql
Public rs As ADODB.Recordset
Public m
Public title
Public titlecolor
Public rsx
Public userid
Public picnum
Public photo_name
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public ftbbs_bokeer
Public userinfo
Public num
Public smsnum
Public bknav
Public layer_1
Public layer_2
    Public ASPX_CONN As _CONN
    Public ASPX_FTBBSHOME_NAV As _FTBBSHOME_NAV
    Public ASPX_FORMATDATE As _FORMATDATE
    Public ASPX_NAVHOME As _NAVHOME
    Public ASPX_COPYRIGHT_HTM As _COPYRIGHT_HTM
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
        ASPX_CONN = New _CONN()
        ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_CONN.AspToAspX_InitIncludeFiles()
        ASPX_FTBBSHOME_NAV = New _FTBBSHOME_NAV()
        ASPX_FTBBSHOME_NAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_FTBBSHOME_NAV.AspToAspX_InitIncludeFiles()
        ASPX_FORMATDATE = New _FORMATDATE()
        ASPX_FORMATDATE.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_FORMATDATE.AspToAspX_InitIncludeFiles()
        ASPX_NAVHOME = New _NAVHOME()
        ASPX_NAVHOME.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_NAVHOME.AspToAspX_InitIncludeFiles()
        ASPX_COPYRIGHT_HTM = New _COPYRIGHT_HTM()
        ASPX_COPYRIGHT_HTM.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_COPYRIGHT_HTM.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_FTBBSHOME_NAV.AspToAspX_UnloadIncludeFiles()
        ASPX_FTBBSHOME_NAV = Nothing
        ASPX_FORMATDATE.AspToAspX_UnloadIncludeFiles()
        ASPX_FORMATDATE = Nothing
        ASPX_NAVHOME.AspToAspX_UnloadIncludeFiles()
        ASPX_NAVHOME = Nothing
        ASPX_COPYRIGHT_HTM.AspToAspX_UnloadIncludeFiles()
        ASPX_COPYRIGHT_HTM = Nothing
    End Sub

#End Region
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        AspToAspXGlobal.Application = Application
        AspToAspXGlobal.Server = Server
        AspToAspXGlobal.Response = Response
        AspToAspXGlobal.Request = Request
        AspToAspXGlobal.Session = Session
        AspToAspX_Host_Class_Object = Me
        AspToAspX_InitIncludeFiles()
        AspToAspX_Page_Init()
        End Sub
    Public Sub AspToAspX_Page_Init()
    On Error GoTo _AspToAspX_Err
    ASPX_CONN.AspToAspX_Page_Init ( )
    ASPX_FTBBSHOME_NAV.AspToAspX_Page_Init ( )
    ASPX_FORMATDATE.AspToAspX_Page_Init ( )
    ftbbs_name = getcookie ( "name" ) '5
    ftbbs_bz = getcookie ( "bz" ) '6
    ftbbs_bbsadmin = getcookie ( "bbsadmin" ) '7
    ftbbs_payuser = getcookie ( "payuser" ) '8
    If AspToAspX_CheckDBNull ( ftbbs_name ) < > EmptyString.Value And AspToAspX_CheckDBNull ( ftbbs_bz ) = EmptyString.Value Then
ftbbs_bz = 0
End If
    '9
        FTBBS_HTML_MB ( ft ) '10
        getcodeoff = Application ( "FTBBSMB" ) ( 30 , 0 ) '11
        sitenav = Application ( "FTBBSMB" ) ( 65 , 0 ) '12
        Response.Write ( vbCrLf )
        Response.Write ( "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & Chr ( 13 ) ) '14
        Response.Write ( "<html xmlns=""http://www.w3.org/1999/xhtml"">" & Chr ( 9 ) & "<head>" & Chr ( 13 ) ) '15
        Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" & Chr ( 13 ) ) '16
        Response.Write ( "<title>飞天论坛,静态论坛,生成静态贴子的论坛</title>" & Chr ( 13 ) ) '17
        Response.Write ( "<meta name=""keywords"" content=""飞天论坛,静态论坛,生成静态贴子的论坛"">" & Chr ( 13 ) ) '18
        Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '19
        Response.Write ( "<script>" & Chr ( 13 ) ) '20
        Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '21
        Response.Write ( "var style;" & Chr ( 13 ) ) '22
        Response.Write ( "var strstyle;" & Chr ( 13 ) ) '23
        Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '24
        Response.Write ( "{" & Chr ( 13 ) ) '25
        Response.Write ( " stylecook=1;" & Chr ( 13 ) ) '26
        Response.Write ( "}" & Chr ( 13 ) ) '27
        Response.Write ( "else" & Chr ( 13 ) ) '28
        Response.Write ( "{" & Chr ( 13 ) ) '29
        Response.Write ( " stylecook++;" & Chr ( 13 ) ) '30
        Response.Write ( "}" & Chr ( 13 ) ) '31
        Response.Write ( "style=""default0""+stylecook+"".css"";" & Chr ( 13 ) ) '32
        Response.Write ( "strstyle=""<link href=\""css/""+style+""\""  rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '33
        Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '34
        Response.Write ( "</script>" & Chr ( 13 ) ) '35
        Response.Write ( "<script>" & Chr ( 13 ) ) '36
        Response.Write ( "function changeCssStyle()" & Chr ( 13 ) ) '37
        Response.Write ( "{" & Chr ( 13 ) ) '38
        Response.Write ( "" & Chr ( 9 ) & "var sCssType = document.getElementById('select3').value;" & Chr ( 13 ) ) '39
        Response.Write ( "" & Chr ( 9 ) & "setCookie(""STYLESHOW"", sCssType);" & Chr ( 13 ) ) '40
        Response.Write ( "    window.location.href='ftbbshome.aspx';" & Chr ( 13 ) ) '41
        Response.Write ( "    parent.left.document.location.reload();" & Chr ( 13 ) ) '42
        Response.Write ( "}" & Chr ( 13 ) ) '43
        Response.Write ( "function show_tbl(pre,n,select_n)" & Chr ( 13 ) ) '44
        Response.Write ( "{" & Chr ( 13 ) ) '45
        Response.Write ( "" & Chr ( 9 ) & "for(i=1;i<=n;i++)" & Chr ( 13 ) ) '46
        Response.Write ( "" & Chr ( 9 ) & "{" & Chr ( 13 ) ) '47
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var tbl= document.getElementById(pre+i);" & Chr ( 13 ) ) '48
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "tbl.style.display=""none"";" & Chr ( 13 ) ) '49
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "if(i==select_n)" & Chr ( 13 ) ) '50
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "{" & Chr ( 13 ) ) '51
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "tbl.style.display=""block"";" & Chr ( 13 ) ) '52
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '53
        Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '54
        Response.Write ( "}" & Chr ( 13 ) ) '55
        Response.Write ( "</script>" & Chr ( 13 ) ) '56
        Response.Write ( "</head>" & Chr ( 13 ) ) '57
        Response.Write ( "<body>" & Chr ( 13 ) ) '58
        Response.Write ( "<script>" & Chr ( 13 ) ) '59
        Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '60
        Response.Write ( "var style;" & Chr ( 13 ) ) '61
        Response.Write ( "var tmpstylecook;" & Chr ( 13 ) ) '62
        Response.Write ( "function setcookies()" & Chr ( 13 ) ) '63
        Response.Write ( "{" & Chr ( 13 ) ) '64
        Response.Write ( " tmpstylecook = stylecook;" & Chr ( 13 ) ) '65
        Response.Write ( "}" & Chr ( 13 ) ) '66
        Response.Write ( "function  reloadcook()" & Chr ( 13 ) ) '67
        Response.Write ( "{" & Chr ( 13 ) ) '68
        Response.Write ( "   var scooks = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '69
        Response.Write ( "   if(scooks != tmpstylecook)" & Chr ( 13 ) ) '70
        Response.Write ( "   {" & Chr ( 13 ) ) '71
        Response.Write ( " " & Chr ( 9 ) & "window.location.reload();" & Chr ( 13 ) ) '72
        Response.Write ( "   }" & Chr ( 13 ) ) '73
        Response.Write ( "}" & Chr ( 13 ) ) '74
        Response.Write ( "setcookies();" & Chr ( 13 ) ) '75
        Response.Write ( "setInterval('reloadcook()',1000);" & Chr ( 13 ) ) '76
        Response.Write ( "</script>" & Chr ( 13 ) ) '77
        Response.Write ( sitenav ) '78
        Response.Write ( vbCrLf )
    ASPX_NAVHOME.AspToAspX_Page_Init ( )
        If AspToAspX_CheckDBNull ( ftbbs_name ) = EmptyString.Value Then '81
            strqssql = "where BBS_Cate_Qs=1 or BBS_Cate_Qs=2 or BBS_Cate_Qs=3" '82
        Else '83
            If AspToAspX_CheckDBNull ( ftbbs_payuser ) = 1 And AspToAspX_CheckDBNull ( ftbbs_bz ) = 0 And AspToAspX_CheckDBNull ( ftbbs_bbsadmin ) = 0 Then '84
                strqssql = "where BBS_Cate_Qs=3" '85
            ElseIf AspToAspX_CheckDBNull ( ftbbs_bz ) = 1 Or AspToAspX_CheckDBNull ( ftbbs_bbsadmin ) = 1 Then '86
                strqssql = "" '87
            Else '88
                strqssql = "where BBS_Cate_Qs=2 or BBS_Cate_Qs=3" '89
            End If '90
        End If '91
        strqs = "" '93
        qssqlstr1 = "" '94
        qssql = "select BBS_Cate_ID from " & ft & "BBS_Cate " & strqssql & "" '95
        qsrs = New ADODB.Recordset ( ) '96
        qsrs.Open ( qssql , conn , 1 , 1 ) '97
        If Not qsrs.EOF And AspToAspX_CheckDBNull ( strqssql ) < > EmptyString.Value Then '98
            qsnum = qsrs.RecordCount '99
            If AspToAspX_CheckDBNull ( qsnum ) > 1 Then '100
                i = 0 '101
                Do While Not qsrs.EOF '102
                    If AspToAspX_CheckDBNull ( i ) = AspToAspX_CheckExpression ( qsnum ) - 1 Then '103
                        qsbbsx1 = AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) '104
                    Else '105
                        qsbbsx1 = AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) & "," '106
                    End If '107
                    qsbbs1 = qsbbs1 & qsbbsx1 '108
                    qsrs.MoveNext ( ) '109
                    i = i + 1 '110
                Loop '111
                qsarray1 = AspToAspX_Split ( qsbbs1 , "," ) '112