admin_index_left.aspx.vb

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

    Response.Write ( "            <td height=20><a href=""../bbsadmin/ftbbs_upload_pic.aspx?a=2"" target=""main"">相册图片管理</a></td>" & Chr ( 13 ) ) '184
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '185
    Response.Write ( "          <tr>" & Chr ( 13 ) ) '186
    Response.Write ( "            <td height=20><a href=""../admin_ublog/manage_pl.aspx?pltype=1"" target=""main"">相册评论管理</a></td>" & Chr ( 13 ) ) '187
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '188
    Response.Write ( "        </table>" & Chr ( 13 ) ) '189
    Response.Write ( "      </div>" & Chr ( 13 ) ) '190
    Response.Write ( "    </td>" & Chr ( 13 ) ) '191
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '192
    Response.Write ( "</table>" & Chr ( 13 ) ) '193
    Response.Write ( "<table width=""100%"" height=""2"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '194
    Response.Write ( "  <tr>" & Chr ( 13 ) ) '195
    Response.Write ( "    <td></td>" & Chr ( 13 ) ) '196
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '197
    Response.Write ( "</table>" & Chr ( 13 ) ) '198
    Response.Write ( "<table cellpadding=0 cellspacing=1 align=center border=""0"" class=""TableBorder"">" & Chr ( 13 ) ) '199
    Response.Write ( "  <tr>" & Chr ( 13 ) ) '200
    Response.Write ( "    <th onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick=""showsubadmin_menu(5)"" style=""cursor: hand;""> " & Chr ( 13 ) ) '201
    Response.Write ( "      <span><b>系统设置</b></span> </th>" & Chr ( 13 ) ) '202
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '203
    Response.Write ( "  <tr>" & Chr ( 13 ) ) '204
    Response.Write ( "    <td style=""display:"" id='subadmin_menu5' bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '205
    Response.Write ( "      <div class=sec_admin_menu>" & Chr ( 13 ) ) '206
    Response.Write ( "        <table cellpadding=0 cellspacing=0 align=center width=135>" & Chr ( 13 ) ) '207
    Response.Write ( "          <tr>" & Chr ( 13 ) ) '208
    Response.Write ( "            <td height=20><a href=""../bbsadmin/pagesign.aspx"" target=""main"">论坛基本参数设置</a> " & Chr ( 13 ) ) '209
    Response.Write ( "            </td>" & Chr ( 13 ) ) '210
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '211
    Response.Write ( "          <tr>" & Chr ( 13 ) ) '212
    Response.Write ( "            <td height=20><a href=""../bbsadmin/managetouxian.aspx"" target=""main"">论坛头衔参数设置</a> " & Chr ( 13 ) ) '213
    Response.Write ( "            </td>" & Chr ( 13 ) ) '214
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '215
    Response.Write ( "          <tr>" & Chr ( 13 ) ) '216
    Response.Write ( "            <td height=20><a href=""../bbsadmin/managexz.aspx"" target=""main"">论坛勋章参数设置</a> " & Chr ( 13 ) ) '217
    Response.Write ( "            </td>" & Chr ( 13 ) ) '218
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '219
    Response.Write ( "          <tr>" & Chr ( 13 ) ) '220
    Response.Write ( "            <td height=20><a href=""../bbsadmin/clearcache.aspx"" target=""main"">站点缓存管理</a></td>" & Chr ( 13 ) ) '221
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '222
    Response.Write ( "          <tr>" & Chr ( 13 ) ) '223
    Response.Write ( "            <td height=20><a href=""../look.aspx"" target=""main"">友情链接管理</a></td>" & Chr ( 13 ) ) '224
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '225
    Response.Write ( "        </table>" & Chr ( 13 ) ) '226
    Response.Write ( "      </div>" & Chr ( 13 ) ) '227
    Response.Write ( "    </td>" & Chr ( 13 ) ) '228
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '229
    Response.Write ( "</table>" & Chr ( 13 ) ) '230
    Response.Write ( "<table width=""100%"" height=""2"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '231
    Response.Write ( "  <tr>" & Chr ( 13 ) ) '232
    Response.Write ( "    <td></td>" & Chr ( 13 ) ) '233
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '234
    Response.Write ( "</table>" & Chr ( 13 ) ) '235
    Response.Write ( "<table cellpadding=0 cellspacing=1 align=center border=""0"" class=""TableBorder"">" & Chr ( 13 ) ) '236
    Response.Write ( "  <tr>" & Chr ( 13 ) ) '237
    Response.Write ( "    <th onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick=""showsubadmin_menu(6)"" style=""cursor: hand;""> " & Chr ( 13 ) ) '238
    Response.Write ( "      <span><b>版权声明</b></span> </th>" & Chr ( 13 ) ) '239
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '240
    Response.Write ( "  <tr>" & Chr ( 13 ) ) '241
    Response.Write ( "    <td style=""display:"" id='subadmin_menu6' bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '242
    Response.Write ( "      <div class=sec_admin_menu>" & Chr ( 13 ) ) '243
    Response.Write ( "        <table cellpadding=0 cellspacing=0 align=center width=135>" & Chr ( 13 ) ) '244
    Response.Write ( "          <tr>" & Chr ( 13 ) ) '245
    Response.Write ( "            <td height=20>产品名称:飞天论坛</td>" & Chr ( 13 ) ) '246
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '247
    Response.Write ( "          <tr>" & Chr ( 13 ) ) '248
    Response.Write ( "            <td height=20>产品版本:FTBBS V7.0</td>" & Chr ( 13 ) ) '249
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '250
    Response.Write ( "          <tr>" & Chr ( 13 ) ) '251
    Response.Write ( "            <td height=20>版权所有:FTBBS.CN</td>" & Chr ( 13 ) ) '252
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '253
    Response.Write ( "        </table>" & Chr ( 13 ) ) '254
    Response.Write ( "      </div>" & Chr ( 13 ) ) '255
    Response.Write ( "    </td>" & Chr ( 13 ) ) '256
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '257
    Response.Write ( "</table>" & Chr ( 13 ) ) '258
    Response.Write ( "</BODY></HTML>" & Chr ( 13 ) ) '259

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("Admin_Index_Left_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 )
        Return ASPX_CONN.getcookie( ckname )
    End Function

    Public Function clearcookie(ByRef  cookdomain,ByRef cookneme )
        Return ASPX_CONN.clearcookie( cookdomain,cookneme )
    End Function

    Public Function LoadFile( ByVal File )
        Return ASPX_CONN.ASPX_ADOSTREAM.LoadFile( File )
    End Function

    Public Function adminlogin(ByRef  ft )
        Return ASPX_ADMIN_CHECK_MASTER.adminlogin( ft )
    End Function

#End Region
End Class