📄 admin.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
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
#Region "..."
Public Sub AspToAspX_InitIncludeFiles()
ASPX_CONN = New _CONN()
ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_CONN.AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
ASPX_CONN.AspToAspX_UnloadIncludeFiles()
ASPX_CONN = 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 ( )
Response.Write ( "<html>" & Chr ( 13 ) ) '2
Response.Write ( "<head>" & Chr ( 13 ) ) '3
Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '4
Response.Write ( "<title>飞天论坛 ——管理员登录</title>" & Chr ( 13 ) ) '5
Response.Write ( "</head>" & Chr ( 13 ) ) '6
Response.Write ( "<style type=text/css>" & Chr ( 13 ) ) '7
Response.Write ( "body {" & Chr ( 13 ) ) '8
Response.Write ( " background:#EFEFEF;" & Chr ( 13 ) ) '9
Response.Write ( " font-size: 12px;" & Chr ( 13 ) ) '10
Response.Write ( " margin-top:0px;" & Chr ( 13 ) ) '11
Response.Write ( "}" & Chr ( 13 ) ) '12
Response.Write ( "INPUT {" & Chr ( 13 ) ) '13
Response.Write ( " FONT-SIZE: 12px;" & Chr ( 13 ) ) '14
Response.Write ( " font-family: ""宋体"";" & Chr ( 13 ) ) '15
Response.Write ( "}" & Chr ( 13 ) ) '16
Response.Write ( "SPAN {" & Chr ( 13 ) ) '17
Response.Write ( " FONT-SIZE: 12px; POSITION: static" & Chr ( 13 ) ) '18
Response.Write ( "}" & Chr ( 13 ) ) '19
Response.Write ( "a:link,a:visited {" & Chr ( 13 ) ) '20
Response.Write ( " color: #0033FF;" & Chr ( 13 ) ) '21
Response.Write ( " text-decoration: none;" & Chr ( 13 ) ) '22
Response.Write ( "}" & Chr ( 13 ) ) '23
Response.Write ( "</style>" & Chr ( 13 ) ) '24
Response.Write ( "<script language=javascript src=""js/resetcode.js""></script>" & Chr ( 13 ) ) '25
Response.Write ( "<p> </p>" & Chr ( 13 ) ) '26
Response.Write ( "<p> </p>" & Chr ( 13 ) ) '27
Response.Write ( "<table align=center width=380 style=""border: outset 3px;"" cellpadding=0 cellspacing=0 ID=""Table1"">" & Chr ( 13 ) ) '28
Response.Write ( " <tr>" & Chr ( 13 ) ) '29
Response.Write ( " " & Chr ( 13 ) ) '30
Response.Write ( " <td style=""padding:3px;background-color:blue;color:white;FONT-SIZE:13px;"">管理员登录--飞天论坛 " & Chr ( 13 ) ) '31
Response.Write ( " Powered By：WWW.FTBBS.CN</td>" & Chr ( 13 ) ) '32
Response.Write ( " </tr>" & Chr ( 13 ) ) '33
Response.Write ( " <tr valign=top>" & Chr ( 13 ) ) '34
Response.Write ( " " & Chr ( 13 ) ) '35
Response.Write ( " <td><img src=""images/admin_title.gif"" width=""100%""></td>" & Chr ( 13 ) ) '36
Response.Write ( " </tr>" & Chr ( 13 ) ) '37
Response.Write ( " <tr>" & Chr ( 13 ) ) '38
Response.Write ( " <td style=""padding:15px;"">" & Chr ( 13 ) ) '39
Response.Write ( "<script language=""Javascript"">" & Chr ( 13 ) ) '40
Response.Write ( "<!--" & Chr ( 13 ) ) '41
Response.Write ( "function VF_loginform(){" & Chr ( 13 ) ) '42
Response.Write ( " var theForm = document.loginform;" & Chr ( 13 ) ) '43
Response.Write ( " var numRE = /^\d+$/;" & Chr ( 13 ) ) '44
Response.Write ( " var errMsg = """";" & Chr ( 13 ) ) '45
Response.Write ( " var setfocus = """";" & Chr ( 13 ) ) '46
Response.Write ( " //if (!numRE.test(theForm['useryz'].value)){" & Chr ( 13 ) ) '47
Response.Write ( " //errMsg = ""请填写右边的确认验证码。"";" & Chr ( 13 ) ) '48
Response.Write ( " //setfocus = ""['verifycode']"";" & Chr ( 13 ) ) '49
Response.Write ( " // }" & Chr ( 13 ) ) '50
Response.Write ( " if (theForm['password'].value == """"){" & Chr ( 13 ) ) '51
Response.Write ( " errMsg = ""请填写登录密码！"";" & Chr ( 13 ) ) '52
Response.Write ( " setfocus = ""['password']"";" & Chr ( 13 ) ) '53
Response.Write ( " }" & Chr ( 13 ) ) '54
Response.Write ( " if (theForm['username'].value == """"){" & Chr ( 13 ) ) '55
Response.Write ( " errMsg = ""请填写登录用户名！"";" & Chr ( 13 ) ) '56
Response.Write ( " setfocus = ""['username']"";" & Chr ( 13 ) ) '57
Response.Write ( " }" & Chr ( 13 ) ) '58
Response.Write ( " if (errMsg != """"){" & Chr ( 13 ) ) '59
Response.Write ( " alert(errMsg);" & Chr ( 13 ) ) '60
Response.Write ( " eval(""theForm"" + setfocus + "".focus()"");" & Chr ( 13 ) ) '61
Response.Write ( " }" & Chr ( 13 ) ) '62
Response.Write ( " else theForm.submit();" & Chr ( 13 ) ) '63
Response.Write ( "}//-->" & Chr ( 13 ) ) '64
Response.Write ( "</script>" & Chr ( 13 ) ) '65
Response.Write ( " <table border=""0"">" & Chr ( 13 ) ) '66
Response.Write ( " <form action=""admin/adminlogin.aspx"" method=""post"" name=""loginform"" onsubmit=""VF_loginform();return false;""> " & Chr ( 13 ) ) '67
Response.Write ( " <tr>" & Chr ( 13 ) ) '68
Response.Write ( " <td><span style=""width:80px;"">用户名：</span></td>" & Chr ( 13 ) ) '69
Response.Write ( " <td><input maxlength=20 type=""text"" name=""username"" style=""width:200px;"" tabindex=""1""></td>" & Chr ( 13 ) ) '70
Response.Write ( " </tr>" & Chr ( 13 ) ) '71
Response.Write ( " <tr>" & Chr ( 13 ) ) '72
Response.Write ( " <td><span style=""width:80px;"">密 码：</span></td>" & Chr ( 13 ) ) '73
Response.Write ( " <td><input maxlength=20 type=""password"" name=""password"" style=""width:200px;""></td>" & Chr ( 13 ) ) '74
Response.Write ( " </tr>" & Chr ( 13 ) ) '75
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " " ) '76
If AspToAspX_CheckDBNull ( Session ( "errorcount" ) ) > = 3 Then '76
Response.Write ( vbCrLf )
Response.Write ( " <tr>" & Chr ( 13 ) ) '77
Response.Write ( " <td><span style=""width:80px;"">验证码：</span></td>" & Chr ( 13 ) ) '78
Response.Write ( " <td style=""FONT-SIZE: 12px;""> <input name=codestr id=codestr type=text size=6 maxlength=4>" & Chr ( 13 ) ) '79
Response.Write ( " 验证码输入： " & Chr ( 13 ) ) '80
Response.Write ( " " ) '81
Response.Write ( getcode ) '81
Response.Write ( vbCrLf )
Response.Write ( " </td>" & Chr ( 13 ) ) '82
Response.Write ( " </tr>" & Chr ( 13 ) ) '83
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " " ) '84
End If '84
Response.Write ( vbCrLf )
Response.Write ( " <tr>" & Chr ( 13 ) ) '85
Response.Write ( " <td> </td>" & Chr ( 13 ) ) '86
Response.Write ( " <td align=""right""> </td>" & Chr ( 13 ) ) '87
Response.Write ( " </tr>" & Chr ( 13 ) ) '88
Response.Write ( " <tr>" & Chr ( 13 ) ) '89
Response.Write ( " <td> </td>" & Chr ( 13 ) ) '90
Response.Write ( " <td align=""right""><input type=""submit"" value=""登 录..."" name=""btnSubmit"" style=""width:80px;font:menu;"" ID=""Submit1""></td>" & Chr ( 13 ) ) '91
Response.Write ( " </tr>" & Chr ( 13 ) ) '92
Response.Write ( " </form> " & Chr ( 13 ) ) '93
Response.Write ( " </table>" & Chr ( 13 ) ) '94
Response.Write ( " </td>" & Chr ( 13 ) ) '95
Response.Write ( " </tr>" & Chr ( 13 ) ) '96
Response.Write ( " <tr>" & Chr ( 13 ) ) '97
Response.Write ( " <td style=""padding:10px;FONT-SIZE:13px;""> 客户端操作系统: " ) '98
Response.Write ( GetOpInfo ( AspToAspX_GetRequestServerVariables ( "HTTP_USER_AGENT" ) , 2 ) ) '98
Response.Write ( " " & Chr ( 13 ) ) '98
Response.Write ( " " ) '99
Response.Write ( GetOpInfo ( AspToAspX_GetRequestServerVariables ( "HTTP_USER_AGENT" ) , 1 ) ) '99
Response.Write ( "</td>" & Chr ( 13 ) ) '99
Response.Write ( " </tr>" & Chr ( 13 ) ) '100
Response.Write ( "</table>" & Chr ( 13 ) ) '101
Response.Write ( "<script src=online.aspx?dis=no&stats=后台登陆></script>" & Chr ( 13 ) ) '102
Response.Write ( "<br><br>" & Chr ( 13 ) ) '103
Response.Write ( "</body>" & Chr ( 13 ) ) '104
Response.Write ( "</html>" & Chr ( 13 ) ) '105
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("admin_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
#End Region
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -