📄 category_mod_act.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_CATEGORY_MOD_ACT
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public k
Public url
Public BBS_Cate_ID
Public BBS_Cate_Name
Public BBS_Cate_Manager_Name
Public BBS_Cate_Manager_Email
Public BBS_Cate_Note
Public menu
Public bzarr
Public sql
Public rs As ADODB.Recordset
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_ADMIN_DHFUN As _ADMIN_DHFUN
#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_ADMIN_DHFUN = New _ADMIN_DHFUN()
ASPX_ADMIN_DHFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_ADMIN_DHFUN.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_ADMIN_DHFUN.AspToAspX_UnloadIncludeFiles()
ASPX_ADMIN_DHFUN = 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_ADMIN_DHFUN.AspToAspX_Page_Init ( )
url = AspToAspX_CheckIsNothing ( Request.Form ( "url" ) ) '5
BBS_Cate_ID = AspToAspX_CheckIsNothing ( Request.Form ( "BBS_Cate_ID" ) ) '6
BBS_Cate_Name = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "BBS_Cate_Name" ) ) ) '7
BBS_Cate_Manager_Name = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "BBS_Cate_Manager_Name" ) ) ) '8
BBS_Cate_Manager_Email = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "BBS_Cate_Manager_Email" ) ) ) '9
BBS_Cate_Note = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "BBS_Cate_Note" ) ) ) '10
menu = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "menu" ) ) ) '11
If AspToAspX_CheckDBNull ( BBS_Cate_Name ) = EmptyString.Value Then '12
Response.Write ( "<BR><BR><center>请输入论坛名称！</center>" ) '13
Response.End ( ) '14
End If '15
If AspToAspX_CheckDBNull ( InStr ( BBS_Cate_Manager_Name , "|" ) ) > 0 Then '16
bzarr = AspToAspX_Split ( BBS_Cate_Manager_Name , "|" , - 1 , 1 ) '17
For k = 0 To Val ( UBound ( bzarr ) ) '18
sql = "select top 1 clubuser_name from " & ft & "clubuser where clubuser_name='" & bzarr ( k ) & "'" '19
rs = New ADODB.Recordset ( ) '20
rs.Open ( sql , conn , 1 , 1 ) '21
If Not rs.EOF Then '22
conn.Execute ( ( "update " & ft & "clubuser set bbsadmin=1 where clubuser_name='" & bzarr ( k ) & "'" ) ) '23
Else '24
Response.Write ( "<BR><BR><center>你所加入的版主中有用户名不存在！</center>" ) '25
Response.End ( ) '26
End If '27
Next '28
rs.Close ( ) '29
Else '30
conn.Execute ( ( "update " & ft & "clubuser set bbsadmin=1 where clubuser_name='" & BBS_Cate_Manager_Name & "'" ) ) '31
End If '32
If AspToAspX_CheckDBNull ( Request ( "totop" ) ) < > EmptyString.Value Then '33
sql = "update " & ft & "BBS_CATE set BBS_Cate_Name='" & BBS_Cate_Name & "',BBS_Cate_Manager_Name='" & BBS_Cate_Manager_Name & "',BBS_Cate_Manager_Email='" & BBS_Cate_Manager_Email & "',totop=" & Request ( "totop" ) & ",BBS_Cate_Qs=" & Request ( "fangwenqs" ) & ",treesign=" & Request ( "tree" ) & ",BBS_Cate_Note='" & BBS_Cate_Note & "',BBS_Cate_Board='" & menu & "' where BBS_Cate_ID='" & BBS_Cate_ID & "'" '34
Else '35
sql = "update " & ft & "BBS_CATE set BBS_Cate_Name='" & BBS_Cate_Name & "',BBS_Cate_Manager_Name='" & BBS_Cate_Manager_Name & "',BBS_Cate_Manager_Email='" & BBS_Cate_Manager_Email & "',BBS_Cate_Qs=" & Request ( "fangwenqs" ) & ",treesign=" & Request ( "tree" ) & ",BBS_Cate_Note='" & BBS_Cate_Note & "',BBS_Cate_Board='" & menu & "' where BBS_Cate_ID='" & BBS_Cate_ID & "'" '36
End If '37
conn.Execute ( sql ) '38
maketodh ( ft ) '39
makeftbbstree ( ft ) '40
closedb ( ) '41
AspToAspX_Response_Redirect ( url ) '42
Response.Write ( vbCrLf )
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("Category_mod_act_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
Public Function maketodh(ByRef ft )
Return ASPX_ADMIN_DHFUN.maketodh( ft )
End Function
Public Function bbsad(ByRef ft )
Return ASPX_ADMIN_DHFUN.bbsad( ft )
End Function
Public Function listad(ByRef ft )
Return ASPX_ADMIN_DHFUN.listad( ft )
End Function
Public Function default_listbbsad(ByRef ft )
Return ASPX_ADMIN_DHFUN.default_listbbsad( ft )
End Function
Public Function default_listad(ByRef ft )
Return ASPX_ADMIN_DHFUN.default_listad( ft )
End Function
Public Function sitead(ByRef ft )
Return ASPX_ADMIN_DHFUN.sitead( ft )
End Function
Public Function htmtop(ByRef ft )
Return ASPX_ADMIN_DHFUN.htmtop( ft )
End Function
Public Function ftbbshomead(ByRef ft )
Return ASPX_ADMIN_DHFUN.ftbbshomead( ft )
End Function
Public Function postad(ByRef ft )
Return ASPX_ADMIN_DHFUN.postad( ft )
End Function
Public Function indexad(ByRef ft )
Return ASPX_ADMIN_DHFUN.indexad( ft )
End Function
#End Region
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -