pldel.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 _BBSADMIN_PLDEL
    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 ("pldel_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\BBSADMIN\PLDEL.ASP
Sub PiLiangZhuanZheng()
On Error Goto _AspToAspX_Err
    Dim idList
    Dim i
    Dim bbsid
    Dim rsd
    Dim rscount
    Dim sql2
    Dim rs
    Dim BoardID_1
    Dim BoardID_2
    Dim fldarray
    Dim infolder
    Dim FiLePaTh
    Dim fso
    Dim sql
    Select Case op '11
        Case "选择删除" '12
            idList = Trim ( AspToAspX_CheckIsNothing ( Request.Form ( "checkbox1" ) ) ) '13
            If AspToAspX_CheckDBNull ( idList ) = EmptyString.Value Then '14
                Exit Sub '15
            End If '16
            For i = 1 To Val ( del_count ) '20
                bbsid = AspToAspX_CheckIsNothing ( Request.Form.GetValues ( "checkbox1" ) ( i - 1 ) ) '21
                rsd = conn.Execute ( "select count(id) as rep from " & ft & "bbsmenu where pid=" & bbsid ) '22
                rscount = AspToAspX_CheckDBNull(rsd.Fields ( "rep" ) .Value) '23
                sql2 = "select BoardID_1,BoardID_2,bbs_img,htmfilename from " & ft & "bbstitle where id=" & bbsid '24
                rs = New ADODB.Recordset ( ) '25
                rs.Open ( sql2 , conn , 1 , 1 ) '26
                If Not rs.EOF Then '27
                    BoardID_1 = AspToAspX_CheckDBNull(rs.Fields ( "BoardID_1" ) .Value) '28
                    BoardID_2 = AspToAspX_CheckDBNull(rs.Fields ( "BoardID_2" ) .Value) '29
                    fldarray = AspToAspX_Split ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) , "/" , - 1 , 1 ) '30
                    infolder = fldarray ( 0 ) '31
                    FiLePaTh = Server.MapPath ( "../" & AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '32
                    fso = New Scripting.FileSystemObject ( ) '33
                    If AspToAspX_CheckDBNull ( fso.FileExists ( FiLePaTh ) ) = True Then '34
                        fso.DeleteFile ( FiLePaTh ) '35
                    End If '36
                    fso = Nothing '37
                    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bbs_img" ) .Value) ) < > EmptyString.Value Then '38
                        FiLePaTh = Server.MapPath ( "../" & infolder & "/" & AspToAspX_CheckDBNull(rs.Fields ( "bbs_img" ) .Value) ) '40
                        fso = New Scripting.FileSystemObject ( ) '41
                        If AspToAspX_CheckDBNull ( fso.FileExists ( FiLePaTh ) ) = True Then '42
                            fso.DeleteFile ( filepath ) '43
                        End If '44
                        fso = Nothing '45
                    End If '46
                    rs.Close ( ) '47
                    sql = "delete from " & ft & "bbstitle where id=" & bbsid '48
                    conn.Execute ( sql ) '49
                    sql = "delete from " & ft & "bbsmenu where pid=" & bbsid '50
                    conn.Execute ( sql ) '51
                    sql = "update " & ft & "BBS_Cate set BBS_Cate_Topic=BBS_Cate_Topic-1 where BBS_Cate_ID='" & BoardID_1 & "'" '52
                    conn.Execute ( sql ) '53
                    sql = "update " & ft & "BBS_Cate set BBS_Cate_Topic=BBS_Cate_Topic-1 where BBS_Cate_ID='" & BoardID_2 & "'" '54
                    conn.Execute ( sql ) '55
                    sql = "update " & ft & "BBS_Cate set BBS_Cate_Reply=BBS_Cate_Reply-" & rscount & " where BBS_Cate_ID='" & BoardID_1 & "'" '56
                    conn.Execute ( sql ) '57
                    sql = "update " & ft & "BBS_Cate set BBS_Cate_Reply=BBS_Cate_Reply-" & rscount & " where BBS_Cate_ID='" & BoardID_2 & "'" '58
                    conn.Execute ( sql ) '59
                End If '60
            Next '61
            conn.Close ( ) '62
            AspToAspX_Response_Redirect ( returnURL ) '63
        Case "精彩话题" '64
            idList = Trim ( AspToAspX_CheckIsNothing ( Request.Form ( "checkbox1" ) ) ) '65
            If AspToAspX_CheckDBNull ( idList ) = EmptyString.Value Then '66
                Exit Sub '67
            End If '68
            For i = 1 To Val ( del_count ) '69
                bbsid = AspToAspX_CheckIsNothing ( Request.Form.GetValues ( "checkbox1" ) ( i - 1 ) ) '70
                sql = "update " & ft & "bbstitle set huati=1 where id=" & bbsid '71
                conn.Execute ( sql ) '72
            Next '73
            conn.Close ( ) '74
            AspToAspX_Response_Redirect ( returnURL ) '75
        Case "推荐话题" '76
            idList = Trim ( AspToAspX_CheckIsNothing ( Request.Form ( "checkbox1" ) ) ) '77
            If AspToAspX_CheckDBNull ( idList ) = EmptyString.Value Then '78
                Exit Sub '79
            End If '80
            For i = 1 To Val ( del_count ) '81
                bbsid = AspToAspX_CheckIsNothing ( Request.Form.GetValues ( "checkbox1" ) ( i - 1 ) ) '82
                sql = "update " & ft & "bbstitle set sign=1 where id=" & bbsid '83
                conn.Execute ( sql ) '84
            Next '85
            conn.Close ( ) '86
            AspToAspX_Response_Redirect ( returnURL ) '87
        Case "首页显示" '88
            idList = Trim ( AspToAspX_CheckIsNothing ( Request.Form ( "checkbox1" ) ) ) '89
            If AspToAspX_CheckDBNull ( idList ) = EmptyString.Value Then '90
                Exit Sub '91
            End If '92
            For i = 1 To Val ( del_count ) '93
                bbsid = AspToAspX_CheckIsNothing ( Request.Form.GetValues ( "checkbox1" ) ( i - 1 ) ) '94
                sql = "update " & ft & "bbstitle set showinhomepage=1 where id=" & bbsid '95
                conn.Execute ( sql ) '96
            Next '97
            conn.Close ( ) '98
            AspToAspX_Response_Redirect ( returnURL ) '99
        Case "取消首页显示" '100
            idList = Trim ( AspToAspX_CheckIsNothing ( Request.Form ( "checkbox1" ) ) ) '101
            If AspToAspX_CheckDBNull ( idList ) = EmptyString.Value Then '102
                Exit Sub '103
            End If '104
            For i = 1 To Val ( del_count ) '105
                bbsid = AspToAspX_CheckIsNothing ( Request.Form.GetValues ( "checkbox1" ) ( i - 1 ) ) '106
                sql = "update " & ft & "bbstitle set showinhomepage=0 where id=" & bbsid '107
                conn.Execute ( sql ) '108
            Next '109
            conn.Close ( ) '110
            AspToAspX_Response_Redirect ( returnURL ) '111
        Case "取消精彩话题" '112
            idList = Trim ( AspToAspX_CheckIsNothing ( Request.Form ( "checkbox1" ) ) ) '113
            If AspToAspX_CheckDBNull ( idList ) = EmptyString.Value Then '114
                Exit Sub '115
            End If '116
            For i = 1 To Val ( del_count ) '117
                bbsid = AspToAspX_CheckIsNothing ( Request.Form.GetValues ( "checkbox1" ) ( i - 1 ) ) '118
                sql = "update " & ft & "bbstitle set huati=0 where id=" & bbsid '119
                conn.Execute ( sql ) '120
            Next '121