main.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

    Response.Write ( vbCrLf )
    Response.Write ( "  </tbody>" & Chr ( 13 ) ) '578
    Response.Write ( "</table>" & Chr ( 13 ) ) '579
    Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"">" & Chr ( 13 ) ) '580
    Response.Write ( "  <tr> " & Chr ( 13 ) ) '581
    Response.Write ( "    <td height=3><spacer height=""3"" type=""block""></td>" & Chr ( 13 ) ) '582
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '583
    Response.Write ( "</table>" & Chr ( 13 ) ) '584
    Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""maintbbg"">" & Chr ( 13 ) ) '585
    Response.Write ( "  <tr> " & Chr ( 13 ) ) '586
    Response.Write ( "    <td height=25 class=""f12bg"">&nbsp;-=&gt; 帖子图例</td>" & Chr ( 13 ) ) '587
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '588
    Response.Write ( "  <tr> " & Chr ( 13 ) ) '589
    Response.Write ( "    <td height=""28"" class=""maintbtr3""><table width=""100%"" border=""0"" cellspacing=""6"" cellpadding=""0"">" & Chr ( 13 ) ) '590
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '591
    Response.Write ( "          <td width=""13%"" height=""25"" class=""maintbtr3""><img src=""images/normal.gif"" width=""14"" height=""16"" border=""0"" align=""absmiddle"" board=0> " & Chr ( 13 ) ) '592
    Response.Write ( "            普通主题</td>" & Chr ( 13 ) ) '593
    Response.Write ( "          <td width=""14%"" class=""maintbtr3""><img src=""images/hotpost.gif"" width=""14"" height=""16"" border=""0"" align=""absmiddle"" board=0> " & Chr ( 13 ) ) '594
    Response.Write ( "            热门主题</td>" & Chr ( 13 ) ) '595
    Response.Write ( "          <td width=""14%"" class=""maintbtr3""><img src=""images/suo.gif"" width=""12"" height=""13"" border=""0"" align=""absmiddle"" board=0> " & Chr ( 13 ) ) '596
    Response.Write ( "            锁定主题</td>" & Chr ( 13 ) ) '597
    Response.Write ( "          <td width=""14%"" class=""maintbtr3""><img src=""images/jing.gif"" width=""15"" height=""13"" border=""0"" align=""absmiddle"" board=0> " & Chr ( 13 ) ) '598
    Response.Write ( "            精华主题</td>" & Chr ( 13 ) ) '599
    Response.Write ( "          <td width=""14%"" class=""maintbtr3""><img src=""images/jian.gif"" width=""15"" height=""13"" border=""0"" align=""absmiddle"" board=0> " & Chr ( 13 ) ) '600
    Response.Write ( "            推荐主题</td>" & Chr ( 13 ) ) '601
    Response.Write ( "          <td width=""14%"" class=""maintbtr3""><img src=""images/poll.gif"" width=""15"" height=""16"" border=""0"" align=""absmiddle"" board=0> " & Chr ( 13 ) ) '602
    Response.Write ( "            投票主题</td>" & Chr ( 13 ) ) '603
    Response.Write ( "          <td width=""16%"" class=""maintbtr3""><img src=""images/ding.gif"" width=""15"" height=""13"" border=""0"" align=""absmiddle"" board=0 alt=""总版固顶""> " & Chr ( 13 ) ) '604
    Response.Write ( "            <img src=""images/blueding.gif"" width=""15"" height=""13"" border=""0"" align=""absmiddle"" board=""0"" alt=""分版固顶""> " & Chr ( 13 ) ) '605
    Response.Write ( "            固顶主题</td>" & Chr ( 13 ) ) '606
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '607
    Response.Write ( "      </table></td>" & Chr ( 13 ) ) '608
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '609
    Response.Write ( "</table>" & Chr ( 13 ) ) '610
    Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"">" & Chr ( 13 ) ) '611
    Response.Write ( "  <tr> " & Chr ( 13 ) ) '612
    Response.Write ( "    <td height=5><spacer height=""5"" type=""block""></td>" & Chr ( 13 ) ) '613
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '614
    Response.Write ( "</table>" & Chr ( 13 ) ) '615
    Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""maintbbg"">" & Chr ( 13 ) ) '616
    If AspToAspX_CheckDBNull ( onlineoff ) = 0 Then '617
    Response.Write ( vbCrLf )
        Response.Write ( "  <tr> " & Chr ( 13 ) ) '618
        Response.Write ( "    <td height=25 class=""f12bg"">&nbsp;在线用户:" & Chr ( 13 ) ) '619
        Response.Write ( "<script language=""JavaScript"" src=""online.aspx?dis=yes&stats=" ) '620
        Response.Write ( stats ) '620
        Response.Write ( """></script>" & Chr ( 13 ) ) '620
        Response.Write ( "" & Chr ( 9 ) & "  </td>" & Chr ( 13 ) ) '621
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '622
        Response.Write ( "  " ) '623
    End If '623
    Response.Write ( vbCrLf )
    Response.Write ( "  " ) '624
    If AspToAspX_CheckDBNull ( linkoff ) = 0 Then '624
    Response.Write ( vbCrLf )
        Response.Write ( "  <tr> " & Chr ( 13 ) ) '625
        Response.Write ( "    <td height=""28"" class=""maintbtr3""><table width=""100%"" border=""0"" cellspacing=""6"" cellpadding=""0"">" & Chr ( 13 ) ) '626
        Response.Write ( "        <tr> " & Chr ( 13 ) ) '627
        Response.Write ( "          <td class=""maintbtr3""><script language=""JavaScript"" src=""ftlink.js""></script></td>" & Chr ( 13 ) ) '628
        Response.Write ( "        </tr>" & Chr ( 13 ) ) '629
        Response.Write ( "      </table></td>" & Chr ( 13 ) ) '630
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '631
        Response.Write ( "  " ) '632
    End If '632
    Response.Write ( vbCrLf )
    Response.Write ( "</table>" & Chr ( 13 ) ) '633
    Response.Write ( "<script>" & Chr ( 13 ) ) '634
    Response.Write ( "if(stylecook=='' || stylecook == '0' )" & Chr ( 13 ) ) '635
    Response.Write ( "{" & Chr ( 13 ) ) '636
    Response.Write ( "stylecook=0;" & Chr ( 13 ) ) '637
    Response.Write ( "}" & Chr ( 13 ) ) '638
    Response.Write ( "document.all.select3.value=stylecook;" & Chr ( 13 ) ) '639
    Response.Write ( "</script>" & Chr ( 13 ) ) '640
    ASPX_INC_BBSTAIL_HTM.AspToAspX_Page_Init ( )
    CloseDb ( ) '642
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("main_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
    Public Property conn
        Get
            conn = ASPX_CONN.conn
        End Get
        Set(ByVal value)
            ASPX_CONN.conn = value
        End Set
    End Property
    Public Property qs
        Get
            qs = ASPX_CONN.qs
        End Get
        Set(ByVal value)
            ASPX_CONN.qs = value
        End Set
    End Property
    Public Property errc
        Get
            errc = ASPX_CONN.errc
        End Get
        Set(ByVal value)
            ASPX_CONN.errc = value
        End Set
    End Property
    Public Property iii
        Get
            iii = ASPX_CONN.iii
        End Get
        Set(ByVal value)
            ASPX_CONN.iii = value
        End Set
    End Property
    Public Property nothis
        Get
            nothis = ASPX_CONN.nothis
        End Get
        Set(ByVal value)
            ASPX_CONN.nothis = value
        End Set
    End Property
    Public Sub makeftbbstree(ByRef  ft )
        ASPX_CONN.makeftbbstree( ft )
    End Sub

    Public Sub CloseDb
        ASPX_CONN.CloseDb
    End Sub

    Public Sub SaveToFile( ByVal strBody,ByVal File )
        ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
    End Sub

    Public Function Checkstr(ByRef  AspToAspX_Str )
        Return ASPX_CONN.Checkstr( AspToAspX_Str )
    End Function

    Public Function CheckCharStr(ByRef  usernamepsw,ByRef flag )
        Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
    End Function

    Public Function ftbbs_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.ftbbs_msg( msg,reurl )
    End Function

    Public Function login_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.login_msg( msg,reurl )
    End Function

    Public Function FTBBS_HTML_MB(ByRef  ft )
        Return ASPX_CONN.FTBBS_HTML_MB( ft )
    End Function

    Public Function FTBBS_BZ_NAME(ByRef  BoardID_1,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
    End Function

    Public Function FTBBS_BZ_NAME2(ByRef  BoardID_1,ByRef BoardID_2,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
    End Function

    Public Function makefilename(ByRef  fname )
        Return ASPX_CONN.makefilename( fname )
    End Function

    Public Function GetExtendName(ByRef  FileName )
        Return ASPX_CONN.GetExtendName( FileName )
    End Function

    Public Function IsObjInstalled(ByRef  strClassString )
        Return ASPX_CONN.IsObjInstalled( strClassString )
    End Function

    Public Function ChkMapPath( ByVal strPath )
        Return ASPX_CONN.ChkMapPath( strPath )
    End Function

    Public Function userlogin(ByRef  ft )
        Return ASPX_CONN.userlogin( ft )
    End Function

    Public Function headhtml
        Return ASPX_CONN.headhtml
    End Function

    Public Function GetOpInfo(ByRef  AspToAspX_Str,ByRef Flag )
        Return ASPX_CONN.GetOpInfo( AspToAspX_Str,Flag )
    End Function

    Public Function getcode
        Return ASPX_CONN.getcode
    End Function

    Public Function codepass
        Return ASPX_CONN.codepass
    End Function

    Public Function Ftbbs_Time
        Return ASPX_CONN.Ftbbs_Time
    End Function

    Public Function ft_home(ByRef  defaulthome )
        Return ASPX_CONN.ft_home( defaulthome )
    End Function

    Public Function chkpost
        Return ASPX_CONN.chkpost
    End Function

    Public Function CodeCookie(ByRef  AspToAspX_Str )
        Return ASPX_CONN.CodeCookie( AspToAspX_Str )
    End Function

    Public Function DecodeCookie(ByRef  AspToAspX_Str )
        Return ASPX_CONN.DecodeCookie( AspToAspX_Str )
    End Function

    Public Function setcookie(ByRef  cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
        Return ASPX_CONN.setcookie( cookexpires,cookdomain,cookneme,cookvalue )
    End Function

    Public Function getcookie(ByRef  ckname )