pldeltype.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

' ***************************************************
' *        本程序由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 _ADMIN_UBLOG_PLDELTYPE
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public op
Public del_count
Public returnURL
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_CHECK_ADMIN_QS As _ADMIN_CHECK_ADMIN_QS
#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_CHECK_ADMIN_QS = New _ADMIN_CHECK_ADMIN_QS()
        ASPX_ADMIN_CHECK_ADMIN_QS.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_ADMIN_CHECK_ADMIN_QS.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_CHECK_ADMIN_QS.AspToAspX_UnloadIncludeFiles()
        ASPX_ADMIN_CHECK_ADMIN_QS = 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_CHECK_ADMIN_QS.AspToAspX_Page_Init ( )
    op = Request ( "op" ) '5
    del_count = Split ( Request.Form ( "checkbox1" ).ToString ( ) , "," ).Length '6
    returnURL = Request ( "returnURL" ) '7
    PiLiangZhuanZheng ( ) '8
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("pldeltype_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\ADMIN_UBLOG\PLDELTYPE.ASP
Sub PiLiangZhuanZheng()
On Error Goto _AspToAspX_Err
    Dim idList
    Dim i
    Dim id
    Dim sql
    Dim rs
    Dim userid
    Dim photo_name
    Dim blogphoto
    Select Case op '10
        Case "选择删除" '11
            idList = Trim ( AspToAspX_CheckIsNothing ( Request.Form ( "checkbox1" ) ) ) '12
            If AspToAspX_CheckDBNull ( idList ) = EmptyString.Value Then '13
                Exit Sub '14
            End If '15
            For i = 1 To Val ( del_count ) '16
                id = AspToAspX_CheckIsNothing ( Request.Form.GetValues ( "checkbox1" ) ( i - 1 ) ) '17
                sql = "select * from " & ft & "ftblog_type where id=" & id '18
                rs = New ADODB.Recordset ( ) '19
                rs.Open ( sql , conn , 1 , 1 ) '20
                If Not rs.EOF Then '21
                    userid = AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) '22
                    photo_name = AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) '23
                    blogphoto = AspToAspX_CheckDBNull(rs.Fields ( "blogphoto" ) .Value) '24
                    sql = "delete from " & ft & "ftbbs_upload where userid='" & userid & "' and photo_name='" & photo_name & "'" '25
                    conn.Execute ( sql ) '26
                    sql = "delete from " & ft & "ftblog_type where id=" & id '27
                    conn.Execute ( sql ) '28
                End If '29
            Next '30
            conn.Close ( ) '31
            AspToAspX_Response_Redirect ( returnURL ) '32
        Case "选择公开" '33
            idList = Trim ( AspToAspX_CheckIsNothing ( Request.Form ( "checkbox1" ) ) ) '34
            If AspToAspX_CheckDBNull ( idList ) = EmptyString.Value Then '35
                Exit Sub '36
            End If '37
            For i = 1 To Val ( del_count ) '38
                id = AspToAspX_CheckIsNothing ( Request.Form.GetValues ( "checkbox1" ) ( i - 1 ) ) '39
                sql = "select * from " & ft & "ftblog_type where id=" & id '40
                rs = New ADODB.Recordset ( ) '41
                rs.Open ( sql , conn , 1 , 1 ) '42
                If Not rs.EOF Then '43
                    userid = AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) '44
                    photo_name = AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) '45
                    sql = "update " & ft & "ftbbs_upload set sign=0 where userid='" & userid & "' and photo_name='" & photo_name & "'" '46
                    conn.Execute ( sql ) '47
                    sql = "update " & ft & "ftblog_type set sign=0 where id=" & id '48
                    conn.Execute ( sql ) '49
                End If '50
            Next '51
            conn.Close ( ) '52
            AspToAspX_Response_Redirect ( returnURL ) '53
        Case "选择隐藏" '54
            idList = Trim ( AspToAspX_CheckIsNothing ( Request.Form ( "checkbox1" ) ) ) '55
            If AspToAspX_CheckDBNull ( idList ) = EmptyString.Value Then '56
                Exit Sub '57
            End If '58
            For i = 1 To Val ( del_count ) '59
                id = AspToAspX_CheckIsNothing ( Request.Form.GetValues ( "checkbox1" ) ( i - 1 ) ) '60
                sql = "select * from " & ft & "ftblog_type where id=" & id '61
                rs = New ADODB.Recordset ( ) '62
                rs.Open ( sql , conn , 1 , 1 ) '63
                If Not rs.EOF Then '64
                    userid = AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) '65
                    photo_name = AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) '66
                    sql = "update " & ft & "ftbbs_upload set sign=1 where userid='" & userid & "' and photo_name='" & photo_name & "'" '67
                    conn.Execute ( sql ) '68
                    sql = "update " & ft & "ftblog_type set sign=1 where id=" & id '69
                    conn.Execute ( sql ) '70
                End If '71
            Next '72
            conn.Close ( ) '73
            AspToAspX_Response_Redirect ( returnURL ) '74
    End Select '75
    Exit Sub
_AspToAspX_Err:
    AspToAspX_WriteLog ("E:\FTBBS_UTF8_7.0\UPLOAD\ADMIN_UBLOG\PLDELTYPE.ASP PiLiangZhuanZheng:" & 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

#End Region
End Class