category_add.aspx.vb

来自「本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成」· VB 代码 · 共 364 行

' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  [e-mail]        *
' *        EMail  [e-mail]              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


Public Class _BBSADMIN_CATEGORY_ADD
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public k
Public BBS_Cate_Name
Public BBS_Cate_Manager_Name
Public BBS_Cate_Manager_Email
Public BBS_Cate_Note
Public fangwenqs
Public treesign
Public menu
Public BBS_Cate_PID
Public Layer
Public bzarr
Public sql
Public rs As ADODB.Recordset
Public strsql
Public BBS_Cate_ID
Public str_in
Public str_2
Public str_1_1
Public str_1
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 ( )
    BBS_Cate_Name = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "BBS_Cate_Name" ) ) ) '5
    BBS_Cate_Manager_Name = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "BBS_Cate_Manager_Name" ) ) ) '6
    BBS_Cate_Manager_Email = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "BBS_Cate_Manager_Email" ) ) ) '7
    BBS_Cate_Note = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "BBS_Cate_Note" ) ) ) '8
    fangwenqs = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "fangwenqs" ) ) ) '9
    treesign = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "tree" ) ) ) '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
    BBS_Cate_PID = AspToAspX_CheckIsNothing ( Request.Form ( "BBS_Cate_PID" ) ) '16
    Layer = AspToAspX_CheckIsNothing ( Request.Form ( "Layer" ) ) '17
    If AspToAspX_CheckDBNull ( InStr ( BBS_Cate_Manager_Name , "|" ) ) > 0 Then '18
        bzarr = AspToAspX_Split ( BBS_Cate_Manager_Name , "|" , - 1 , 1 ) '19
        For k = 0 To Val ( UBound ( bzarr ) ) '20
            sql = "select top 1 clubuser_name from " & ft & "clubuser where clubuser_name='" & bzarr ( k ) & "'" '21
            rs = New ADODB.Recordset ( ) '22
            rs.Open ( sql , conn , 1 , 1 ) '23
            If Not rs.EOF Then '24
                conn.Execute ( ( "update " & ft & "clubuser set bbsadmin=1 where clubuser_name='" & bzarr ( k ) & "'" ) ) '25
            Else '26
                Response.Write ( "<BR><BR><center>你所加入的版主中的用户名不存在！</center>" ) '27
                Response.End ( ) '28
            End If '29
        Next '30
        rs.Close ( ) '31
    Else '32
        conn.Execute ( ( "update " & ft & "clubuser set bbsadmin=1 where clubuser_name='" & BBS_Cate_Manager_Name & "'" ) ) '33
    End If '34
    strsql = "select top 1 * from " & ft & "BBS_CATE where BBS_Cate_PID='" & BBS_Cate_PID & "' order by BBS_ID desc" '35
    rs = New ADODB.Recordset ( ) '36
    rs.Open ( strsql , conn , 1 , 1 ) '37
    If rs.EOF And rs.BOF Then '38
        If AspToAspX_CheckDBNull ( Layer ) < > 0 Then '39
            BBS_Cate_ID = BBS_Cate_PID & "_1" '40
        Else '41
            BBS_Cate_ID = "A_1" '42
        End If '43
    Else '44
        BBS_Cate_ID = AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) '45
        str_in = InstrRev ( BBS_Cate_ID , "_" ) '47
        str_2 = mid ( BBS_Cate_ID , str_in + 1 ) '48
        str_2 = str_2 + 1 '49
        str_1_1 = InstrRev ( BBS_Cate_ID , "_" ) - 1 '51
        str_1 = left ( BBS_Cate_ID , str_1_1 ) '52
        BBS_Cate_ID = str_1 & "_" & str_2 '53
    End If '54
    rs.Close ( ) '55
    sql = "select * from " & ft & "BBS_CATE where (BBS_ID is null)" '56
    rs.Open ( sql , conn , 1 , 3 ) '57
    rs.addnew ( ) '58
    rs.Fields ( "BBS_Cate_ID" ) .Value = BBS_Cate_ID '59
    rs.Fields ( "BBS_Cate_PID" ) .Value = BBS_Cate_PID '60
    rs.Fields ( "BBS_Cate_Name" ) .Value = BBS_Cate_Name '61
    rs.Fields ( "BBS_Cate_Topic" ) .Value = 0 '62
    rs.Fields ( "BBS_Cate_Reply" ) .Value = 0 '63
    rs.Fields ( "BBS_Cate_Manager_Name" ) .Value = BBS_Cate_Manager_Name '64
    rs.Fields ( "BBS_Cate_Manager_Email" ) .Value = BBS_Cate_Manager_Email '65
    rs.Fields ( "BBS_Cate_Note" ) .Value = BBS_Cate_Note '66
    rs.Fields ( "BBS_Cate_Qs" ) .Value = fangwenqs '67
    rs.Fields ( "treesign" ) .Value = treesign '68
    If AspToAspX_CheckDBNull ( menu ) < > EmptyString.Value Then '69
        rs.Fields ( "BBS_Cate_Board" ) .Value = menu '70
    End If '71
    rs.Update ( ) '72
    maketodh ( ft ) '73
    makeftbbstree ( ft ) '74
    closedb ( ) '75
    AspToAspX_Response_Redirect ( AspToAspX_GetRequestServerVariables ( "http_referer" ) ) '76
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("Category_add_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