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

    Public AspToAspX_Host_Class_Object As Object

Public id
Public n
Public a
Public b
Public postuserid
Public cookname
Public searchkind
Public searchcontent
Public defaulthome
Public ftlt
Public opentree
Public urlfile
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
    Public ASPX_CONN As _CONN
    Public ASPX_GBTOUTF8 As _GBTOUTF8
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
        ASPX_CONN = New _CONN()
        ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_CONN.AspToAspX_InitIncludeFiles()
        ASPX_GBTOUTF8 = New _GBTOUTF8()
        ASPX_GBTOUTF8.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_GBTOUTF8.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_GBTOUTF8.AspToAspX_UnloadIncludeFiles()
        ASPX_GBTOUTF8 = 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_GBTOUTF8.AspToAspX_Page_Init ( )
    id = Request ( "id" ) '4
    n = Request ( "n" ) '5
    a = Request ( "a" ) '6
    b = Request ( "b" ) '7
    postuserid = Request ( "userid" ) '8
    cookname = getcookie ( "name" ) '9
    searchkind = Request ( "searchkind" ) '10
    searchcontent = GBtoUTF8 ( Request ( "searchcontent" ) ) '11
    FTBBS_HTML_MB ( ft ) '12
    defaulthome = Application ( "FTBBSMB" ) ( 31 , 0 ) '13
    ftlt = Request ( "ft" ) '14
    If AspToAspX_CheckDBNull ( ftlt ) < > EmptyString.Value Then '15
        Response.Cookies ( "ftbbstype" ).Value = ftlt '16
        Response.Cookies ( "ftbbstype" ).Expires = ToDay ( ).AddDays ( 7 ) '17
    End If '18
    If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = EmptyString.Value And AspToAspX_CheckDBNull ( ftlt ) = EmptyString.Value Then '19
        Response.Cookies ( "ftbbstype" ).Value = Application ( "FTBBSMB" ) ( 8 , 0 ) '20
        Response.Cookies ( "ftbbstype" ).Expires = ToDay ( ).AddDays ( 7 ) '21
    End If '22
    If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = 1 Then '23
        If AspToAspX_CheckDBNull ( id ) < > EmptyString.Value And AspToAspX_CheckDBNull ( n ) = EmptyString.Value Then '24
            AspToAspX_Response_Redirect ( Request ( "htm" ) ) '25
        ElseIf AspToAspX_CheckDBNull ( n ) = "regist"Then '26
            AspToAspX_Response_Redirect ( "register.aspx" ) '27
        ElseIf AspToAspX_CheckDBNull ( n ) = "postsms"Then '28
            AspToAspX_Response_Redirect ( "smsbbs.aspx?postuserid=" & postuserid ) '29
        ElseIf AspToAspX_CheckDBNull ( n ) = "grzl"Then '30
            AspToAspX_Response_Redirect ( "ftbbsmyinfo.aspx?postuserid=" & postuserid ) '31
        ElseIf AspToAspX_CheckDBNull ( n ) = "help"Then '32
            AspToAspX_Response_Redirect ( "help.aspx" ) '33
        ElseIf AspToAspX_CheckDBNull ( n ) = "userinfo"Then '34
            AspToAspX_Response_Redirect ( "moduserinfo.aspx" ) '35
        ElseIf AspToAspX_CheckDBNull ( n ) = "friend"Then '36
            AspToAspX_Response_Redirect ( "myfriend.aspx" ) '37
        ElseIf AspToAspX_CheckDBNull ( n ) = "sms"Then '38
            AspToAspX_Response_Redirect ( "mysms.aspx" ) '39
        ElseIf AspToAspX_CheckDBNull ( n ) = "exit"Then '40
            AspToAspX_Response_Redirect ( "main.aspx?exit=yes" ) '41
        ElseIf AspToAspX_CheckDBNull ( n ) = "myself"Then '42
            AspToAspX_Response_Redirect ( "main.aspx?searchkind=name&searchcontent=" & cookname ) '43
        ElseIf AspToAspX_CheckDBNull ( n ) = "myrepost"Then '44
            AspToAspX_Response_Redirect ( "search.aspx?searchkind=myrepost&searchcontent=" & cookname ) '45
        ElseIf AspToAspX_CheckDBNull ( searchcontent ) < > ""Then '46
            AspToAspX_Response_Redirect ( "search.aspx?searchkind=" & searchkind & "&searchcontent=" & searchcontent ) '47
        ElseIf AspToAspX_CheckDBNull ( n ) = "favorties"Then '48
            AspToAspX_Response_Redirect ( "myfavorties.aspx" ) '49
        ElseIf AspToAspX_CheckDBNull ( n ) = "trans"Then '50
            AspToAspX_Response_Redirect ( "trans.aspx" ) '51
        ElseIf AspToAspX_CheckDBNull ( n ) = "pic"Then '52
            AspToAspX_Response_Redirect ( "morepic.aspx" ) '53
        ElseIf AspToAspX_CheckDBNull ( n ) = "fbht"Then '54
            AspToAspX_Response_Redirect ( "fbht.aspx?layer_1=" & a & "&layer_2=" & b ) '55
        ElseIf AspToAspX_CheckDBNull ( n ) = "xs"Then '56
            AspToAspX_Response_Redirect ( "fbht.aspx?layer_1=" & a & "&layer_2=" & b & "&fd=5" ) '57
        ElseIf AspToAspX_CheckDBNull ( n ) = "poll"Then '58
            AspToAspX_Response_Redirect ( "bbspoll.aspx?layer_1=" & a & "&layer_2=" & b ) '59
        Else '60
            If ( AspToAspX_CheckDBNull ( a ) = EmptyString.Value And AspToAspX_CheckDBNull ( b ) = EmptyString.Value ) Then '61
            AspToAspX_Response_Redirect ( "default_list.aspx?layer_1=" & a & "&layer_2=" & b ) '62
        Else '63
            AspToAspX_Response_Redirect ( "main.aspx?layer_1=" & a & "&layer_2=" & b ) '64
        End If '65
    End If '67
    Else '68
        opentree = "ftbbstree.htm" '69
        If AspToAspX_CheckDBNull ( id ) < > EmptyString.Value And AspToAspX_CheckDBNull ( n ) = EmptyString.Value Then '70
            urlfile = Request ( "htm" ) '71
        ElseIf AspToAspX_CheckDBNull ( n ) = "regist"Then '72
            urlfile = "register.aspx" '73
        ElseIf AspToAspX_CheckDBNull ( n ) = "postsms"Then '74
            urlfile = "smsbbs.aspx?postuserid=" & postuserid '75
        ElseIf AspToAspX_CheckDBNull ( n ) = "grzl"Then '76
            urlfile = "ftbbsmyinfo.aspx?postuserid=" & postuserid '77
        ElseIf AspToAspX_CheckDBNull ( n ) = "help"Then '78
            urlfile = "help.aspx" '79
        ElseIf AspToAspX_CheckDBNull ( n ) = "userinfo"Then '80
            urlfile = "moduserinfo.aspx" '81
        ElseIf AspToAspX_CheckDBNull ( n ) = "friend"Then '82
            urlfile = "myfriend.aspx" '83
        ElseIf AspToAspX_CheckDBNull ( n ) = "sms"Then '84
            urlfile = "mysms.aspx" '85
        ElseIf AspToAspX_CheckDBNull ( n ) = "exit"Then '86
            urlfile = "main.aspx?exit=yes" '87
        ElseIf AspToAspX_CheckDBNull ( n ) = "myself"Then '88
            urlfile = "main.aspx?searchkind=name&searchcontent=" & cookname '89
        ElseIf AspToAspX_CheckDBNull ( n ) = "myrepost"Then '90
            urlfile = "search.aspx?searchkind=myrepost&searchcontent=" & cookname '91
        ElseIf AspToAspX_CheckDBNull ( searchcontent ) < > ""Then '92
            urlfile = "search.aspx?searchkind=" & searchkind & "&searchcontent=" & searchcontent '93
        ElseIf AspToAspX_CheckDBNull ( n ) = "favorties"Then '94
            urlfile = "myfavorties.aspx" '95
        ElseIf AspToAspX_CheckDBNull ( n ) = "trans"Then '96
            urlfile = "trans.aspx" '97
        ElseIf AspToAspX_CheckDBNull ( n ) = "pic"Then '98
            urlfile = "morepic.aspx" '99
        ElseIf AspToAspX_CheckDBNull ( n ) = "fbht"Then '100
            urlfile = "fbht.aspx?layer_1=" & a & "&layer_2=" & b '101
        ElseIf AspToAspX_CheckDBNull ( n ) = "xs"Then '102
            urlfile = "fbht.aspx?layer_1=" & a & "&layer_2=" & b & "&fd=5" '103
        ElseIf AspToAspX_CheckDBNull ( n ) = "poll"Then '104
            urlfile = "bbspoll.aspx?layer_1=" & a & "&layer_2=" & b '105
        Else '106
            If AspToAspX_CheckDBNull ( defaulthome ) = 1 And AspToAspX_CheckDBNull ( a ) = EmptyString.Value And AspToAspX_CheckDBNull ( b ) = EmptyString.Value Then '107
                urlfile = "ftbbshome.aspx" '108
            Else '109
                urlfile = "main.aspx?layer_1=" & a & "&layer_2=" & b '110
            End If '111
        End If '112
        Response.Write ( vbCrLf )
        Response.Write ( "<HTML>" & Chr ( 13 ) ) '114
        Response.Write ( "<HEAD>" & Chr ( 13 ) ) '115
        Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '116
        Response.Write ( "<TITLE>" ) '117
        Response.Write ( Application ( "FTBBSMB" ) ( 11 , 0 ) ) '117
        Response.Write ( ",静态论坛,最快的论坛,html论坛</TITLE>" & Chr ( 13 ) ) '117
        Response.Write ( "<link rel=""shortcut icon"" href=""favicon.ico"" />" & Chr ( 13 ) ) '118
        Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '119
        Response.Write ( "<script>" & Chr ( 13 ) ) '120
        Response.Write ( "function defaultCssStyle()" & Chr ( 13 ) ) '121
        Response.Write ( "{" & Chr ( 13 ) ) '122
        Response.Write ( "" & Chr ( 9 ) & "var sCssType =" ) '123
        Response.Write ( Application ( "FTBBSMB" ) ( 29 , 0 ) ) '123
        Response.Write ( " //默认的样式值" & Chr ( 13 ) ) '123
        Response.Write ( "" & Chr ( 9 ) & "setCookie(""STYLESHOW"", sCssType);" & Chr ( 13 ) ) '124
        Response.Write ( "}" & Chr ( 13 ) ) '125
        Response.Write ( "</script>" & Chr ( 13 ) ) '126
        Response.Write ( "<script>" & Chr ( 13 ) ) '127
        Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '128
        Response.Write ( "var style;" & Chr ( 13 ) ) '129
        Response.Write ( "var strstyle;" & Chr ( 13 ) ) '130
        Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '131
        Response.Write ( "{" & Chr ( 13 ) ) '132
        Response.Write ( " defaultCssStyle();" & Chr ( 13 ) ) '133
        Response.Write ( " stylecook=" ) '134
        Response.Write ( Application ( "FTBBSMB" ) ( 29 , 0 ) ) '134
        Response.Write ( "+1;" & Chr ( 13 ) ) '134
        Response.Write ( "}" & Chr ( 13 ) ) '135
        Response.Write ( "else" & Chr ( 13 ) ) '136
        Response.Write ( "{" & Chr ( 13 ) ) '137
        Response.Write ( " stylecook++;" & Chr ( 13 ) ) '138
        Response.Write ( "}" & Chr ( 13 ) ) '139
        Response.Write ( "style=""main0""+stylecook+"".css"";" & Chr ( 13 ) ) '140
        Response.Write ( "strstyle=""<link href=\""css/""+style+""\""  rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '141
        Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '142
        Response.Write ( "</script>" & Chr ( 13 ) ) '143
        Response.Write ( "<script language=javascript>" & Chr ( 13 ) ) '144
        Response.Write ( "if(self!=top){top.location=self.location;}" & Chr ( 13 ) ) '145
        Response.Write ( "function switchSysBar(){" & Chr ( 13 ) ) '146
        Response.Write ( "" & Chr ( 9 ) & "var obj=document.getElementById('left');" & Chr ( 13 ) ) '147
        Response.Write ( "" & Chr ( 9 ) & "var menu=document.getElementById('switchPoint');" & Chr ( 13 ) ) '148
        Response.Write ( "" & Chr ( 9 ) & "if(obj.style.display=='none'){" & Chr ( 13 ) ) '149
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.style.display='';" & Chr ( 13 ) ) '150
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "menu.innerHTML = ""<img src=\""images/ftbbs_close.gif\"" style=\""cursor:pointer;\"" alt=关闭左栏>"";" & Chr ( 13 ) ) '151
        Response.Write ( "" & Chr ( 9 ) & "}else{" & Chr ( 13 ) ) '152
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.style.display='none';" & Chr ( 13 ) ) '153