📄 addadmin.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 _BBSADMIN_ADDADMIN
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public adminqs
Public sql
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
Public ASPX_INC_MD5 As _INC_MD5
#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()
ASPX_INC_MD5 = New _INC_MD5()
ASPX_INC_MD5.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_INC_MD5.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
ASPX_INC_MD5.AspToAspX_UnloadIncludeFiles()
ASPX_INC_MD5 = 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 ( )
ASPX_INC_MD5.AspToAspX_Page_Init ( )
If AspToAspX_CheckIsNothing ( Request.Form ( "act" ) ) = "y" Then '5
If AspToAspX_CheckIsNothing ( Request.Form ( "adminqs" ) ) = EmptyString.Value Then '6
adminqs = "0,0,0" '7
Else '8
adminqs = AspToAspX_CheckIsNothing ( Request.Form ( "adminqs" ) ) '9
End If '10
sql = "insert into " & ft & "ftbbs_admin (admin_user,admin_pwd,lasttime,qs,adminqs) values('" & AspToAspX_CheckIsNothing ( Request.Form ( "admin_user" ) ) & "','" & md5 ( AspToAspX_CheckIsNothing ( Request.Form ( "admin_pwd" ) ) ) & "','" & Ftbbs_Time & "','" & AspToAspX_CheckIsNothing ( Request.Form ( "qs" ) ) & "','" & adminqs & "')" '11
conn.Execute ( sql ) '12
AspToAspX_Response_Redirect ( "ftbbs_admin.aspx" ) '13
End If '14
Response.Write ( vbCrLf )
Response.Write ( "<html>" & Chr ( 13 ) ) '16
Response.Write ( "<head>" & Chr ( 13 ) ) '17
Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '18
Response.Write ( "<title>添加管理用户</title>" & Chr ( 13 ) ) '19
Response.Write ( "<link href=""../css/xmwuye.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '20
Response.Write ( "</head>" & Chr ( 13 ) ) '21
Response.Write ( "<body>" & Chr ( 13 ) ) '22
Response.Write ( " <br>" & Chr ( 13 ) ) '23
Response.Write ( " <br>" & Chr ( 13 ) ) '24
Response.Write ( " <br>" & Chr ( 13 ) ) '25
Response.Write ( " <br>" & Chr ( 13 ) ) '26
Response.Write ( " <table width=""71%"" border=""0"" align=""center"">" & Chr ( 13 ) ) '27
Response.Write ( " <form name=""form1"" method=""post"" action="""">" & Chr ( 13 ) ) '28
Response.Write ( " <tr bgcolor=""f8f8f8""> " & Chr ( 13 ) ) '29
Response.Write ( " <td height=""30"" colspan=""2""> " & Chr ( 13 ) ) '30
Response.Write ( " <div align=""center"">添加管理员</div></td>" & Chr ( 13 ) ) '31
Response.Write ( " </tr>" & Chr ( 13 ) ) '32
Response.Write ( " <tr bgcolor=""f8f8f8""> " & Chr ( 13 ) ) '33
Response.Write ( " <td width=""24%"" height=""30""> " & Chr ( 13 ) ) '34
Response.Write ( " <div align=""right"">用户名：</div></td>" & Chr ( 13 ) ) '35
Response.Write ( " <td width=""76%"" height=""30""> " & Chr ( 13 ) ) '36
Response.Write ( " <input name=""admin_user"" type=""text"" size=""27""></td>" & Chr ( 13 ) ) '37
Response.Write ( " </tr>" & Chr ( 13 ) ) '38
Response.Write ( " <tr bgcolor=""f8f8f8""> " & Chr ( 13 ) ) '39
Response.Write ( " <td height=""30""> " & Chr ( 13 ) ) '40
Response.Write ( " <div align=""right"">密 码：</div></td>" & Chr ( 13 ) ) '41
Response.Write ( " <td height=""30""> " & Chr ( 13 ) ) '42
Response.Write ( " <input name=""admin_pwd"" type=""password"" size=""27""></td>" & Chr ( 13 ) ) '43
Response.Write ( " </tr>" & Chr ( 13 ) ) '44
Response.Write ( " <tr bgcolor=""f8f8f8""> " & Chr ( 13 ) ) '45
Response.Write ( " <td height=""30""> " & Chr ( 13 ) ) '46
Response.Write ( " <div align=""right"">用户身份：</div></td>" & Chr ( 13 ) ) '47
Response.Write ( " <td height=""30""><input type=""radio"" name=""qs"" value=""2"">" & Chr ( 13 ) ) '48
Response.Write ( " 超级管理员 " & Chr ( 13 ) ) '49
Response.Write ( " <input name=""qs"" type=""radio"" value=""1"" checked>" & Chr ( 13 ) ) '50
Response.Write ( " 普通管理员</td>" & Chr ( 13 ) ) '51
Response.Write ( " </tr>" & Chr ( 13 ) ) '52
Response.Write ( " <tr bgcolor=""f8f8f8""> " & Chr ( 13 ) ) '53
Response.Write ( " <td height=""30""> " & Chr ( 13 ) ) '54
Response.Write ( " <div align=""right"">操作权限：</div></td>" & Chr ( 13 ) ) '55
Response.Write ( " <td height=""30""><input name=""adminqs"" type=""checkbox"" id=""adminqs"" value=""1"">" & Chr ( 13 ) ) '56
Response.Write ( " 添加 " & Chr ( 13 ) ) '57
Response.Write ( " <input name=""adminqs"" type=""checkbox"" id=""adminqs"" value=""2"">" & Chr ( 13 ) ) '58
Response.Write ( " 修改 " & Chr ( 13 ) ) '59
Response.Write ( " <input name=""adminqs"" type=""checkbox"" id=""adminqs"" value=""3"">" & Chr ( 13 ) ) '60
Response.Write ( " 删除</td>" & Chr ( 13 ) ) '61
Response.Write ( " </tr>" & Chr ( 13 ) ) '62
Response.Write ( " <tr bgcolor=""f8f8f8""> " & Chr ( 13 ) ) '63
Response.Write ( " <td height=""30""> </td>" & Chr ( 13 ) ) '64
Response.Write ( " <td height=""30""><input type=""submit"" name=""Submit"" value=""确定"" " ) '65
If AspToAspX_CheckDBNull ( Session ( "qs" ) ) < > 2 Then '65
Response.Write ( "disabled" ) '65
End If '65
Response.Write ( ">" & Chr ( 13 ) ) '65
Response.Write ( " <input name=""act"" type=""hidden"" id=""act"" value=""y""></td>" & Chr ( 13 ) ) '66
Response.Write ( " </tr>" & Chr ( 13 ) ) '67
Response.Write ( "" & Chr ( 9 ) & "</form>" & Chr ( 13 ) ) '68
Response.Write ( " </table>" & Chr ( 13 ) ) '69
Response.Write ( "</body>" & Chr ( 13 ) ) '70
Response.Write ( "</html>" & Chr ( 13 ) ) '71
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("addadmin_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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -