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

    Public AspToAspX_Host_Class_Object As Object

Public url
Public upfiletype
Public upfilesize
Public getcodeoff
Public htm_ext
Public defaulthome
Public postvalue
Public pollvalue
Public cookiesname
Public clubuser_id
Public fd
Public topqs
Public homepage
Public BoardID_1
Public BoardID_2
Public BBS_Cate_QS1
Public BBS_Cate_QS2
Public postqs
Public page
Public vfname
Public Random
Public filename
Public strsql
Public rsr_BBS_Cate
Public j
Public AspToAspX_Str
Public rs_BBS_Cate
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public userinfo
Public userinfox
Public sql
Public rs As ADODB.Recordset
Public num
Public smsnum
    Public ASPX_CONN As _CONN
    Public ASPX_BBSUSER As _BBSUSER
    Public ASPX_FTBBS_NAV As _FTBBS_NAV
    Public ASPX_TOUXIANFUN As _TOUXIANFUN
    Public ASPX_INC_BBSTAIL_HTM As _INC_BBSTAIL_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_BBSUSER = New _BBSUSER()
        ASPX_BBSUSER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_BBSUSER.AspToAspX_InitIncludeFiles()
        ASPX_FTBBS_NAV = New _FTBBS_NAV()
        ASPX_FTBBS_NAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_FTBBS_NAV.AspToAspX_InitIncludeFiles()
        ASPX_TOUXIANFUN = New _TOUXIANFUN()
        ASPX_TOUXIANFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_TOUXIANFUN.AspToAspX_InitIncludeFiles()
        ASPX_INC_BBSTAIL_HTM = New _INC_BBSTAIL_HTM()
        ASPX_INC_BBSTAIL_HTM.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_BBSTAIL_HTM.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_BBSUSER.AspToAspX_UnloadIncludeFiles()
        ASPX_BBSUSER = Nothing
        ASPX_FTBBS_NAV.AspToAspX_UnloadIncludeFiles()
        ASPX_FTBBS_NAV = Nothing
        ASPX_TOUXIANFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_TOUXIANFUN = Nothing
        ASPX_INC_BBSTAIL_HTM.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_BBSTAIL_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_BBSUSER.AspToAspX_Page_Init ( )
    ASPX_FTBBS_NAV.AspToAspX_Page_Init ( )
    ASPX_TOUXIANFUN.AspToAspX_Page_Init ( )
    FTBBS_HTML_MB ( ft ) '6
    url = Application ( "FTBBSMB" ) ( 10 , 0 ) '7
    upfiletype = Application ( "FTBBSMB" ) ( 12 , 0 ) '8
    upfilesize = Application ( "FTBBSMB" ) ( 13 , 0 ) '9
    getcodeoff = Application ( "FTBBSMB" ) ( 30 , 0 ) '10
    htm_ext = Application ( "FTBBSMB" ) ( 32 , 0 ) '11
    defaulthome = Application ( "FTBBSMB" ) ( 31 , 0 ) '12
    postvalue = Application ( "FTBBSMB" ) ( 54 , 0 ) '13
    pollvalue = Application ( "FTBBSMB" ) ( 55 , 0 ) '14
    cookiesname = getcookie ( "name" ) '15
    clubuser_id = getcookie ( "clubuser_id" ) '16
    fd = Request ( "fd" ) '17
    If AspToAspX_CheckDBNull ( fd ) = "Y" Then '18
        If AspToAspX_CheckDBNull ( pollvalue ) = 0 Then '19
            topqs = 1 '20
        Else '21
            topqs = jingyuantoqs ( clubuser_id , pollvalue , ft ) '22
        End If '23
    Else '24
        If AspToAspX_CheckDBNull ( postvalue ) = 0 Then '25
            topqs = 1 '26
        Else '27
            topqs = jingyuantoqs ( clubuser_id , postvalue , ft ) '28
        End If '29
    End If '30
    If AspToAspX_CheckDBNull ( htm_ext ) = EmptyString.Value Then
htm_ext = ".htm"
End If
    '31
        homepage = ft_home ( defaulthome ) '32
        BoardID_1 = Request ( "layer_1" ) '33
        BoardID_2 = Request ( "layer_2" ) '34
        If AspToAspX_CheckDBNull ( BoardID_1 ) < > EmptyString.Value Then '35
            FTBBS_BZ_NAME ( BoardID_1 , ft ) '36
            BBS_Cate_QS1 = Application ( "BBS_Cate_QS1" ) '37
        End If '38
        If AspToAspX_CheckDBNull ( BoardID_2 ) < > EmptyString.Value Then '39
            FTBBS_BZ_NAME2 ( BoardID_1 , BoardID_2 , ft ) '40
            BBS_Cate_QS2 = Application ( "BBS_Cate_QS2" ) '41
        End If '42
        If ( AspToAspX_CheckDBNull ( getcookie ( "bz" ) ) = 0 And AspToAspX_CheckDBNull ( getcookie ( "bbsadmin" ) ) = 0 ) And ( AspToAspX_CheckDBNull ( BBS_Cate_QS1 ) = 4 Or AspToAspX_CheckDBNull ( BBS_Cate_QS1 ) = 5 Or AspToAspX_CheckDBNull ( BBS_Cate_QS2 ) = 4 Or AspToAspX_CheckDBNull ( BBS_Cate_QS2 ) = 5 ) Or AspToAspX_CheckDBNull ( topqs ) = 0 Then '43
        postqs = "disabled" '44
    End If '45
    page = Request ( "page" ) '46
    Session ( "filename" ) = "" '47
    vfname = makefilename ( DateAndTime.Now ) '48
    Randomize ( ) '49
    Random = AspToAspX_Int ( ( 1000 - 100 + 1 ) * AspToAspX_Rnd + 100 ) '50
    filename = vfname & "a" & Random & htm_ext '51
    Session ( "filename" ) = filename '52
    Response.Write ( vbCrLf )
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '54
    Response.Write ( "<script language=javascript src=""js/resetcode.js""></script>" & Chr ( 13 ) ) '55
    Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '56
    Response.Write ( "<script>" & Chr ( 13 ) ) '57
    Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '58
    Response.Write ( "var style;" & Chr ( 13 ) ) '59
    Response.Write ( "var strstyle;" & Chr ( 13 ) ) '60
    Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '61
    Response.Write ( "{" & Chr ( 13 ) ) '62
    Response.Write ( " stylecook=1;" & Chr ( 13 ) ) '63
    Response.Write ( "}" & Chr ( 13 ) ) '64
    Response.Write ( "else" & Chr ( 13 ) ) '65
    Response.Write ( "{" & Chr ( 13 ) ) '66
    Response.Write ( " stylecook++;" & Chr ( 13 ) ) '67
    Response.Write ( "}" & Chr ( 13 ) ) '68
    Response.Write ( "style=""main0""+stylecook+"".css"";" & Chr ( 13 ) ) '69
    Response.Write ( "strstyle=""<link href=\""css/""+style+""\""  rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '70
    Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '71
    Response.Write ( "</script>" & Chr ( 13 ) ) '72
    Response.Write ( "<script language=""javascript"">" & Chr ( 13 ) ) '73
    Response.Write ( "<!--" & Chr ( 13 ) ) '74
    Response.Write ( "    function changetitle(txt){" & Chr ( 13 ) ) '75
    Response.Write ( "" & Chr ( 9 ) & "   var currentTitle = document.myform.title.value;" & Chr ( 13 ) ) '76
    Response.Write ( "       if (txt.charAt(1)=="" ""){" & Chr ( 13 ) ) '77
    Response.Write ( "           txt1=txt.substr(2);" & Chr ( 13 ) ) '78
    Response.Write ( "           document.myform.title.value=txt1+currentTitle;}" & Chr ( 13 ) ) '79
    Response.Write ( "      else{" & Chr ( 13 ) ) '80
    Response.Write ( "" & Chr ( 9 ) & "       document.myform.title.value=txt+currentTitle;}" & Chr ( 13 ) ) '81
    Response.Write ( "    }" & Chr ( 13 ) ) '82
    Response.Write ( "//-->" & Chr ( 13 ) ) '83
    Response.Write ( "</script>" & Chr ( 13 ) ) '84
    Response.Write ( "<body leftmargin=""0"" topmargin=""2"">" & Chr ( 13 ) ) '85
    If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = 1 Then '87
        Response.Write ( headhtml ) '88
    End If '89
    Response.Write ( vbCrLf )
    Response.Write ( "<table border=""0"" width=""99%"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""maintbbg"">" & Chr ( 13 ) ) '91
    Response.Write ( "   <tr> " & Chr ( 13 ) ) '92
    Response.Write ( "    <td height=""25"" colspan=""3"" class=""f12bg"">&nbsp;" ) '93
    Response.Write ( userinfo ) '93
    Response.Write ( "</td>" & Chr ( 13 ) ) '93
    Response.Write ( "   </tr>" & Chr ( 13 ) ) '94
    Response.Write ( "   <tr> " & Chr ( 13 ) ) '95
    Response.Write ( "   <td height=""25"" colspan=""3"" class=""maintbtr3"">&nbsp;<a href=""" ) '96
    Response.Write ( homepage ) '96
    Response.Write ( """>论坛首页</a> >> 发布话题</td>" & Chr ( 13 ) ) '96
    Response.Write ( "   </tr>" & Chr ( 13 ) ) '97
    Response.Write ( "</table>  " & Chr ( 13 ) ) '98
    Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"">" & Chr ( 13 ) ) '99
    Response.Write ( "  <tr> " & Chr ( 13 ) ) '100
    Response.Write ( "    <td height=5><spacer height=""5"" type=""block""></td>" & Chr ( 13 ) ) '101
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '102
    Response.Write ( "</table>" & Chr ( 13 ) ) '103
    Response.Write ( "<table width=""99%"" border=""0"" cellspacing=""1"" cellpadding=""1"" align=""center"" class=""listborder"">" & Chr ( 13 ) ) '104
    Response.Write ( "  <form name=""myform"" method=""POST"" action=""check.aspx"" onsubmit=""return CheckForm(this)"">" & Chr ( 13 ) ) '105
    Response.Write ( "    <TR class=""f12bg""> " & Chr ( 13 ) ) '106
    Response.Write ( "      <TD height=""26"" colspan=""2""> <div align=""center""><b>论 坛 话 题 发 布</b></div></TD>" & Chr ( 13 ) ) '107
    Response.Write ( "    </TR>" & Chr ( 13 ) ) '108
    Response.Write ( "    " ) '109
    If AspToAspX_CheckDBNull ( BoardID_1 ) = EmptyString.Value Or AspToAspX_CheckDBNull ( BoardID_2 ) = EmptyString.Value Then '109
    Response.Write ( vbCrLf )
        Response.Write ( "    <script LANGUAGE=""javascript"">" & Chr ( 13 ) ) '110
        Response.Write ( "<!--" & Chr ( 13 ) ) '111
        Response.Write ( "var onecount;" & Chr ( 13 ) ) '112
        Response.Write ( "onecount=0;" & Chr ( 13 ) ) '113
        Response.Write ( "var j;" & Chr ( 13 ) ) '114