📄 admin_index_top.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_TOP
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
#Region "..."
Public Sub AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
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
Response.Write ( "<HTML>" & Chr ( 13 ) ) '1
Response.Write ( "<HEAD>" & Chr ( 13 ) ) '2
Response.Write ( "<META http-equiv=Content-Type content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '3
Response.Write ( "<TITLE>后台管理</TITLE>" & Chr ( 13 ) ) '4
Response.Write ( "<LINK href=""admin.css"" type=text/css rel=stylesheet>" & Chr ( 13 ) ) '5
Response.Write ( "<style type=""text/css"">" & Chr ( 13 ) ) '6
Response.Write ( "<!--" & Chr ( 13 ) ) '7
Response.Write ( ".style4 {color: #0000FF}" & Chr ( 13 ) ) '8
Response.Write ( "-->" & Chr ( 13 ) ) '9
Response.Write ( "</style>" & Chr ( 13 ) ) '10
Response.Write ( "</HEAD>" & Chr ( 13 ) ) '11
Response.Write ( "<base target=""main"">" & Chr ( 13 ) ) '12
Response.Write ( "<script language=""JavaScript"" type=""text/JavaScript"">" & Chr ( 13 ) ) '13
Response.Write ( "function preloadImg(src)" & Chr ( 13 ) ) '14
Response.Write ( "{" & Chr ( 13 ) ) '15
Response.Write ( "" & Chr ( 9 ) & "var img=new Image();" & Chr ( 13 ) ) '16
Response.Write ( "" & Chr ( 9 ) & "img.src=src" & Chr ( 13 ) ) '17
Response.Write ( "}" & Chr ( 13 ) ) '18
Response.Write ( "preloadImg(""../images/admin_top_open.gif"");" & Chr ( 13 ) ) '19
Response.Write ( "var displayBar=true;" & Chr ( 13 ) ) '20
Response.Write ( "function switchBar(obj)" & Chr ( 13 ) ) '21
Response.Write ( "{" & Chr ( 13 ) ) '22
Response.Write ( "" & Chr ( 9 ) & "if (displayBar)" & Chr ( 13 ) ) '23
Response.Write ( "" & Chr ( 9 ) & "{" & Chr ( 13 ) ) '24
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "parent.frame.cols=""0,*"";" & Chr ( 13 ) ) '25
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "displayBar=false;" & Chr ( 13 ) ) '26
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.src=""../images/admin_top_open.gif"";" & Chr ( 13 ) ) '27
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.title=""打开左边管理导航菜单"";" & Chr ( 13 ) ) '28
Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '29
Response.Write ( "" & Chr ( 9 ) & "else{" & Chr ( 13 ) ) '30
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "parent.frame.cols=""180,*"";" & Chr ( 13 ) ) '31
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "displayBar=true;" & Chr ( 13 ) ) '32
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.src=""../images/admin_top_close.gif"";" & Chr ( 13 ) ) '33
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "obj.title=""关闭左边管理导航菜单"";" & Chr ( 13 ) ) '34
Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '35
Response.Write ( "}" & Chr ( 13 ) ) '36
Response.Write ( "</script>" & Chr ( 13 ) ) '37
Response.Write ( "<body leftmargin=""0"" topmargin=""0"">" & Chr ( 13 ) ) '38
Response.Write ( "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""TableBorder"" width=""100%"">" & Chr ( 13 ) ) '39
Response.Write ( "<tr><td>" & Chr ( 13 ) ) '40
Response.Write ( "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '41
Response.Write ( " <tr height=""18""> " & Chr ( 13 ) ) '42
Response.Write ( " <td width=""17%"" background=""../images/r_01_01_bg.gif"" widtd=96> <img src=""../images/admin_top_close.gif"" align=""absbottom"" id=""sBar"" style=""cursor:hand"" title=""关闭左边管理导航菜单"" onclick=""switchBar(this)""> " & Chr ( 13 ) ) '43
Response.Write ( " </td>" & Chr ( 13 ) ) '44
Response.Write ( " <td width=""3%"" background=""../images/r_01_01_bg.gif"" widtd=20> <img src=""../images/admin_top_icon_5.gif"" align=""absmiddle""> " & Chr ( 13 ) ) '45
Response.Write ( " </td>" & Chr ( 13 ) ) '46
Response.Write ( " <td width=""15%"" background=""../images/r_01_01_bg.gif"" widtd=60> <a href=""http://www.ftbbs.cn/2006430/13.htm"">重新生成贴子</a></td>" & Chr ( 13 ) ) '47
Response.Write ( " <td width=""48%"" align=""right"" background=""../images/r_01_01_bg.gif""><div align=""left""> " & Chr ( 13 ) ) '48
Response.Write ( " <script src=""http://www.ftbbs.cn/bbs/utf8ftbbsboard.aspx""></script>" & Chr ( 13 ) ) '49
Response.Write ( " </div></td>" & Chr ( 13 ) ) '50
Response.Write ( " </tr>" & Chr ( 13 ) ) '51
Response.Write ( " </table></td></tr>" & Chr ( 13 ) ) '52
Response.Write ( "</table>" & Chr ( 13 ) ) '53
Response.Write ( "</body>" & Chr ( 13 ) ) '54
Response.Write ( "</html>" & Chr ( 13 ) ) '55
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("Admin_Index_Top_aspx Page_Init:" & Err.Description)
Resume Next
End Sub
#Region "..."
#End Region
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -