📄 admin_index_left.aspx.vb
字号:
' ***************************************************
' * 本程序由AspToAspX风火轮0.99转换生成 *
' * http://Www.AspToAspX.Cn *
' * Q Q : 139227536 *
' * QQ群: 17152722 *
' * MSN : gzliangjianhua@hotmail.com *
' * EMail AspToDll@vip.163.com *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState
Public Class _ADMIN_ADMIN_INDEX_LEFT
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public ASPX_CONN As _CONN
Public ASPX_ADMIN_CHECK_MASTER As _ADMIN_CHECK_MASTER
#Region "..."
Public Sub AspToAspX_InitIncludeFiles()
ASPX_CONN = New _CONN()
ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_CONN.AspToAspX_InitIncludeFiles()
ASPX_ADMIN_CHECK_MASTER = New _ADMIN_CHECK_MASTER()
ASPX_ADMIN_CHECK_MASTER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_ADMIN_CHECK_MASTER.AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
ASPX_CONN.AspToAspX_UnloadIncludeFiles()
ASPX_CONN = Nothing
ASPX_ADMIN_CHECK_MASTER.AspToAspX_UnloadIncludeFiles()
ASPX_ADMIN_CHECK_MASTER = 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_ADMIN_CHECK_MASTER.AspToAspX_Page_Init ( )
Response.Write ( "<HTML>" & Chr ( 13 ) ) '3
Response.Write ( "<HEAD>" & Chr ( 13 ) ) '4
Response.Write ( "<META http-equiv=Content-Type content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '5
Response.Write ( "<TITLE>后台管理</TITLE>" & Chr ( 13 ) ) '6
Response.Write ( "<LINK href=""admin.css"" type=text/css rel=stylesheet>" & Chr ( 13 ) ) '7
Response.Write ( "<style type=""text/css"">" & Chr ( 13 ) ) '8
Response.Write ( "<!--" & Chr ( 13 ) ) '9
Response.Write ( ".style3 {color: #FF0000}" & Chr ( 13 ) ) '10
Response.Write ( "-->" & Chr ( 13 ) ) '11
Response.Write ( "</style>" & Chr ( 13 ) ) '12
Response.Write ( "</HEAD>" & Chr ( 13 ) ) '13
Response.Write ( "<BODY leftmargin=""3"" topmargin=""3"">" & Chr ( 13 ) ) '14
Response.Write ( "<SCRIPT language=javascript1.2>" & Chr ( 13 ) ) '15
Response.Write ( "function showsubadmin_menu(sid)" & Chr ( 13 ) ) '16
Response.Write ( "{" & Chr ( 13 ) ) '17
Response.Write ( "whichEl = eval(""subadmin_menu"" + sid);" & Chr ( 13 ) ) '18
Response.Write ( "if (whichEl.style.display == ""none"")" & Chr ( 13 ) ) '19
Response.Write ( "{" & Chr ( 13 ) ) '20
Response.Write ( "eval(""subadmin_menu"" + sid + "".style.display=\""\"";"");" & Chr ( 13 ) ) '21
Response.Write ( "}" & Chr ( 13 ) ) '22
Response.Write ( "else" & Chr ( 13 ) ) '23
Response.Write ( "{" & Chr ( 13 ) ) '24
Response.Write ( "eval(""subadmin_menu"" + sid + "".style.display=\""none\"";"");" & Chr ( 13 ) ) '25
Response.Write ( "}" & Chr ( 13 ) ) '26
Response.Write ( "}" & Chr ( 13 ) ) '27
Response.Write ( "</SCRIPT>" & Chr ( 13 ) ) '28
Response.Write ( "<table cellpadding=0 cellspacing=1 width=""100%"" align=center border=""0"" class=""TableBorder"">" & Chr ( 13 ) ) '29
Response.Write ( " <tr> " & Chr ( 13 ) ) '30
Response.Write ( " <th height=""25""><img src=""../images/admin_home.gif"" align=""absmiddle""> <a href=""main.aspx"" target=main>管理首页</a> " & Chr ( 13 ) ) '31
Response.Write ( " ┊ <a href=""logout.aspx"" target=_top>退出</a></th>" & Chr ( 13 ) ) '32
Response.Write ( " </tr>" & Chr ( 13 ) ) '33
Response.Write ( " <tr> " & Chr ( 13 ) ) '34
Response.Write ( " <td height=""25""><div align=""center"">当前用户:<font color=""#FF0000"">" ) '35
Response.Write ( Session ( "admin_user" ) ) '35
Response.Write ( "</font></div></td>" & Chr ( 13 ) ) '35
Response.Write ( " </tr>" & Chr ( 13 ) ) '36
Response.Write ( "</table>" & Chr ( 13 ) ) '37
Response.Write ( "<table width=""100%"" height=""2"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '38
Response.Write ( " <tr>" & Chr ( 13 ) ) '39
Response.Write ( " <td></td>" & Chr ( 13 ) ) '40
Response.Write ( " </tr>" & Chr ( 13 ) ) '41
Response.Write ( "</table>" & Chr ( 13 ) ) '42
Response.Write ( "<table cellpadding=0 cellspacing=1 align=center border=""0"" class=""TableBorder"">" & Chr ( 13 ) ) '43
Response.Write ( " <tr>" & Chr ( 13 ) ) '44
Response.Write ( " <th onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick=""showsubadmin_menu(1)"" style=""cursor: hand;""> " & Chr ( 13 ) ) '45
Response.Write ( " <span><b>用户管理</b></span> </th>" & Chr ( 13 ) ) '46
Response.Write ( " </tr>" & Chr ( 13 ) ) '47
Response.Write ( " <tr>" & Chr ( 13 ) ) '48
Response.Write ( " <td style=""display:"" id='subadmin_menu1' bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '49
Response.Write ( " <div class=sec_admin_menu>" & Chr ( 13 ) ) '50
Response.Write ( " <table cellpadding=0 cellspacing=0 align=center width=135>" & Chr ( 13 ) ) '51
Response.Write ( "<tr>" & Chr ( 13 ) ) '52
Response.Write ( "<td height=20><a href=../bbsadmin/ftbbs_admin.aspx target=main>管理员管理</a> " & Chr ( 13 ) ) '53
Response.Write ( " ┊ <a href=../bbsadmin/addadmin.aspx target=main>添加</a></td>" & Chr ( 13 ) ) '54
Response.Write ( "</tr>" & Chr ( 13 ) ) '55
Response.Write ( "<tr>" & Chr ( 13 ) ) '56
Response.Write ( " <td height=20><a href=../user/user_manage.aspx target=main>普通用户管理(论坛用户)</a></td>" & Chr ( 13 ) ) '57
Response.Write ( " </tr>" & Chr ( 13 ) ) '58
Response.Write ( "</table>" & Chr ( 13 ) ) '59
Response.Write ( " </div>" & Chr ( 13 ) ) '60
Response.Write ( " </td>" & Chr ( 13 ) ) '61
Response.Write ( " </tr>" & Chr ( 13 ) ) '62
Response.Write ( "</table>" & Chr ( 13 ) ) '63
Response.Write ( "<table width=""100%"" height=""2"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '64
Response.Write ( " <tr>" & Chr ( 13 ) ) '65
Response.Write ( " <td></td>" & Chr ( 13 ) ) '66
Response.Write ( " </tr>" & Chr ( 13 ) ) '67
Response.Write ( "</table>" & Chr ( 13 ) ) '68
Response.Write ( "<table cellpadding=0 cellspacing=1 align=center border=""0"" class=""TableBorder"">" & Chr ( 13 ) ) '69
Response.Write ( " <tr>" & Chr ( 13 ) ) '70
Response.Write ( " <th onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick=""showsubadmin_menu(0)"" style=""cursor: hand;""> " & Chr ( 13 ) ) '71
Response.Write ( " <span><b>论坛管理</b></span> </th>" & Chr ( 13 ) ) '72
Response.Write ( " </tr>" & Chr ( 13 ) ) '73
Response.Write ( " <tr>" & Chr ( 13 ) ) '74
Response.Write ( " <td style=""display:"" id='subadmin_menu0' bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '75
Response.Write ( " <div class=sec_admin_menu>" & Chr ( 13 ) ) '76
Response.Write ( " <table cellpadding=0 cellspacing=0 align=center width=135>" & Chr ( 13 ) ) '77
Response.Write ( " <tr>" & Chr ( 13 ) ) '78
Response.Write ( " <td height=20><a href=""../bbsadmin/index.aspx?layer=0"" target=""main"">论坛类别管理</a></td>" & Chr ( 13 ) ) '79
Response.Write ( " </tr>" & Chr ( 13 ) ) '80
Response.Write ( " <tr>" & Chr ( 13 ) ) '81
Response.Write ( " <td height=20><a href=""../bbsadmin/title_manage.aspx"" target=""main"">论坛主题管理</a></td>" & Chr ( 13 ) ) '82
Response.Write ( " </tr>" & Chr ( 13 ) ) '83
Response.Write ( " <tr>" & Chr ( 13 ) ) '84
Response.Write ( " <td height=20><a href=""../bbsadmin/reply_manage.aspx"" target=""main"">论坛回贴管理</a></td>" & Chr ( 13 ) ) '85
Response.Write ( " </tr>" & Chr ( 13 ) ) '86
Response.Write ( " <tr>" & Chr ( 13 ) ) '87
Response.Write ( " <td height=20><a href=""../admin/boardtoboard.aspx"" target=""main"">论坛类别转换</a></td>" & Chr ( 13 ) ) '88
Response.Write ( " </tr>" & Chr ( 13 ) ) '89
Response.Write ( " <tr>" & Chr ( 13 ) ) '90
Response.Write ( " <td height=20><a href=""../bbsadmin/ftbbs_upload_pic.aspx?a=0"" target=""main"">上传图片管理</a></td>" & Chr ( 13 ) ) '91
Response.Write ( " </tr>" & Chr ( 13 ) ) '92
Response.Write ( " <tr>" & Chr ( 13 ) ) '93
Response.Write ( " <td height=20><a href=""http://www.ftbbs.cn/2006430/13.htm"" target=""main"">论坛广告管理</a></td>" & Chr ( 13 ) ) '94
Response.Write ( " </tr>" & Chr ( 13 ) ) '95
Response.Write ( " <tr>" & Chr ( 13 ) ) '96
Response.Write ( " <td height=20><a href=""../bbsadmin/managesms.aspx"" target=""main"">论坛短信管理</a></td>" & Chr ( 13 ) ) '97
Response.Write ( " </tr>" & Chr ( 13 ) ) '98
Response.Write ( " <tr>" & Chr ( 13 ) ) '99
Response.Write ( " <td height=20><a href=""../user/bmuser_manage.aspx"" target=""main"">活动报名管理</a></td>" & Chr ( 13 ) ) '100
Response.Write ( " </tr>" & Chr ( 13 ) ) '101
Response.Write ( " <tr>" & Chr ( 13 ) ) '102
Response.Write ( " <td height=20><a href=""../bbsadmin/bbs_arrest.aspx"" target=""main"">发贴关键词限制</a></td>" & Chr ( 13 ) ) '103
Response.Write ( " </tr>" & Chr ( 13 ) ) '104
Response.Write ( " <tr>" & Chr ( 13 ) ) '105
Response.Write ( " <td height=20><a href=""http://www.ftbbs.cn/2006430/13.htm"" target=""main"">重新生成贴子</a></td>" & Chr ( 13 ) ) '106
Response.Write ( " </tr>" & Chr ( 13 ) ) '107
Response.Write ( "</table>" & Chr ( 13 ) ) '108
Response.Write ( " </div>" & Chr ( 13 ) ) '109
Response.Write ( " </td>" & Chr ( 13 ) ) '110
Response.Write ( " </tr>" & Chr ( 13 ) ) '111
Response.Write ( "</table>" & Chr ( 13 ) ) '112
Response.Write ( "<table width=""100%"" height=""2"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '113
Response.Write ( " <tr>" & Chr ( 13 ) ) '114
Response.Write ( " <td></td>" & Chr ( 13 ) ) '115
Response.Write ( " </tr>" & Chr ( 13 ) ) '116
Response.Write ( "</table>" & Chr ( 13 ) ) '117
Response.Write ( "<table cellpadding=0 cellspacing=1 align=center border=""0"" class=""TableBorder"">" & Chr ( 13 ) ) '118
Response.Write ( " <tr>" & Chr ( 13 ) ) '119
Response.Write ( " <th onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick=""showsubadmin_menu(7)"" style=""cursor: hand;""> " & Chr ( 13 ) ) '120
Response.Write ( " <span><b>交易管理</b></span> </th>" & Chr ( 13 ) ) '121
Response.Write ( " </tr>" & Chr ( 13 ) ) '122
Response.Write ( " <tr>" & Chr ( 13 ) ) '123
Response.Write ( " <td style=""display:"" id='subadmin_menu7' bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '124
Response.Write ( " <div class=sec_admin_menu>" & Chr ( 13 ) ) '125
Response.Write ( " <table cellpadding=0 cellspacing=0 align=center width=135>" & Chr ( 13 ) ) '126
Response.Write ( " <tr>" & Chr ( 13 ) ) '127
Response.Write ( " <td height=20><a href=""adminswap.aspx"" target=""main"">积分兑换管理</a></td>" & Chr ( 13 ) ) '128
Response.Write ( " </tr>" & Chr ( 13 ) ) '129
Response.Write ( " <tr>" & Chr ( 13 ) ) '130
Response.Write ( " <td height=20><a href=""adminpay.aspx"" target=""main"">网上支付管理</a></td>" & Chr ( 13 ) ) '131
Response.Write ( " </tr>" & Chr ( 13 ) ) '132
Response.Write ( " </table>" & Chr ( 13 ) ) '133
Response.Write ( " </div>" & Chr ( 13 ) ) '134
Response.Write ( " </td>" & Chr ( 13 ) ) '135
Response.Write ( " </tr>" & Chr ( 13 ) ) '136
Response.Write ( "</table>" & Chr ( 13 ) ) '137
Response.Write ( "<table width=""100%"" height=""2"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '138
Response.Write ( " <tr>" & Chr ( 13 ) ) '139
Response.Write ( " <td></td>" & Chr ( 13 ) ) '140
Response.Write ( " </tr>" & Chr ( 13 ) ) '141
Response.Write ( "</table>" & Chr ( 13 ) ) '142
Response.Write ( "<table cellpadding=0 cellspacing=1 align=center border=""0"" class=""TableBorder"">" & Chr ( 13 ) ) '143
Response.Write ( " <tr>" & Chr ( 13 ) ) '144
Response.Write ( " <th onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick=""showsubadmin_menu(3)"" style=""cursor: hand;""> " & Chr ( 13 ) ) '145
Response.Write ( " <span><b>日志管理</b></span> </th>" & Chr ( 13 ) ) '146
Response.Write ( " </tr>" & Chr ( 13 ) ) '147
Response.Write ( " <tr>" & Chr ( 13 ) ) '148
Response.Write ( " <td style=""display:"" id='subadmin_menu3' bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '149
Response.Write ( " <div class=sec_admin_menu>" & Chr ( 13 ) ) '150
Response.Write ( " <table cellpadding=0 cellspacing=0 align=center width=135>" & Chr ( 13 ) ) '151
Response.Write ( " <tr>" & Chr ( 13 ) ) '152
Response.Write ( " <td height=20><a href=""../admin_ublog/manage_blogtype.aspx?nav=b"" target=""main"">日志分类管理</a></td>" & Chr ( 13 ) ) '153
Response.Write ( " </tr>" & Chr ( 13 ) ) '154
Response.Write ( " <tr>" & Chr ( 13 ) ) '155
Response.Write ( " <td height=20><a href=""../admin_ublog/userblog.aspx"" target=""main"">日志内容管理</a></td>" & Chr ( 13 ) ) '156
Response.Write ( " </tr>" & Chr ( 13 ) ) '157
Response.Write ( " <tr>" & Chr ( 13 ) ) '158
Response.Write ( " <td height=20><a href=""../admin_ublog/manage_pl.aspx?pltype=0"" target=""main"">日志评论管理</a></td>" & Chr ( 13 ) ) '159
Response.Write ( " </tr>" & Chr ( 13 ) ) '160
Response.Write ( "</table>" & Chr ( 13 ) ) '161
Response.Write ( " </div>" & Chr ( 13 ) ) '162
Response.Write ( " </td>" & Chr ( 13 ) ) '163
Response.Write ( " </tr>" & Chr ( 13 ) ) '164
Response.Write ( "</table>" & Chr ( 13 ) ) '165
Response.Write ( "<table width=""100%"" height=""2"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '166
Response.Write ( " <tr>" & Chr ( 13 ) ) '167
Response.Write ( " <td></td>" & Chr ( 13 ) ) '168
Response.Write ( " </tr>" & Chr ( 13 ) ) '169
Response.Write ( "</table>" & Chr ( 13 ) ) '170
Response.Write ( "<table cellpadding=0 cellspacing=1 align=center border=""0"" class=""TableBorder"">" & Chr ( 13 ) ) '171
Response.Write ( " <tr>" & Chr ( 13 ) ) '172
Response.Write ( " <th onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick=""showsubadmin_menu(4)"" style=""cursor: hand;""> " & Chr ( 13 ) ) '173
Response.Write ( " <span><b>相册管理</b></span> </th>" & Chr ( 13 ) ) '174
Response.Write ( " </tr>" & Chr ( 13 ) ) '175
Response.Write ( " <tr>" & Chr ( 13 ) ) '176
Response.Write ( " <td style=""display:"" id='subadmin_menu4' bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '177
Response.Write ( " <div class=sec_admin_menu>" & Chr ( 13 ) ) '178
Response.Write ( " <table cellpadding=0 cellspacing=0 align=center width=135>" & Chr ( 13 ) ) '179
Response.Write ( " <tr>" & Chr ( 13 ) ) '180
Response.Write ( " <td height=20><a href=""../admin_ublog/manage_blogtype.aspx?nav=a"" target=""main"">相册分类管理</a></td>" & Chr ( 13 ) ) '181
Response.Write ( " </tr>" & Chr ( 13 ) ) '182
Response.Write ( " <tr>" & Chr ( 13 ) ) '183
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -