bzdeltohtm.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_BZDELTOHTM
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public Const ForReading = 1
Public Const Forwriting = 2
Public Const ForAppending = 8
Public pid
Public reid
Public FileName
Public AspToAspX_Sign
Public fldarray
Public infolder
Public FiLePaTh
Public fso
Public url
Public upfiletype
Public upfilesize
Public htm_ext
Public repostget
Public sql
Public rs As ADODB.Recordset
Public dateh
Public placereinfo
Public reinfo
Public deleted
Public rename
Public BoardID_1
Public BoardID_2
Public strsql
Public AspToAspX_Str
Public sqk
Public rers
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_UBBCODE As _INC_UBBCODE
    Public ASPX_TOUXIANFUN As _TOUXIANFUN
    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_INC_UBBCODE = New _INC_UBBCODE()
        ASPX_INC_UBBCODE.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_UBBCODE.AspToAspX_InitIncludeFiles()
        ASPX_TOUXIANFUN = New _TOUXIANFUN()
        ASPX_TOUXIANFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_TOUXIANFUN.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_INC_UBBCODE.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_UBBCODE = Nothing
        ASPX_TOUXIANFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_TOUXIANFUN = 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_INC_UBBCODE.AspToAspX_Page_Init ( )
    ASPX_TOUXIANFUN.AspToAspX_Page_Init ( )
    ASPX_ADMIN_CHECK_ADMIN_QS.AspToAspX_Page_Init ( )
    Server.ScriptTimeout = 5400 '8
    pid = Request.QueryString ( "id" ) '12
    reid = Request.QueryString ( "reid" ) '13
    FileName = Request.QueryString ( "FileName" ) '14
    AspToAspX_Sign = Request.QueryString ( "sign" ) '15
    fldarray = AspToAspX_Split ( FileName , "/" , - 1 , 1 ) '17
    infolder = fldarray ( 0 ) '18
    If AspToAspX_CheckDBNull ( Request ( "bbs_img" ) ) < > EmptyString.Value Then '19
        FiLePaTh = Server.MapPath ( "../" & infolder & "\" & Request ( "bbs_img" ) ) '20
        fso = New Scripting.FileSystemObject ( ) '21
        If AspToAspX_CheckDBNull ( fso.FileExists ( FiLePaTh ) ) = True Then '22
            fso.DeleteFile ( FiLePaTh ) '23
        End If '24
        fso = Nothing '25
    End If '26
    FTBBS_HTML_MB ( ft ) '27
    url = Application ( "FTBBSMB" ) ( 10 , 0 ) '28
    upfiletype = Application ( "FTBBSMB" ) ( 12 , 0 ) '29
    upfilesize = Application ( "FTBBSMB" ) ( 13 , 0 ) '30
    htm_ext = Application ( "FTBBSMB" ) ( 32 , 0 ) '31
    repostget = Application ( "FTBBSMB" ) ( 49 , 0 ) '32
    If AspToAspX_CheckDBNull ( htm_ext ) = EmptyString.Value Then '33
        htm_ext = ".htm" '34
    End If '35
    If AspToAspX_CheckIsNumeric ( pid ) = False Then '37
        Response.Write ( "<SCRIPT language=JavaScript>alert('参数错误！');" ) '38
        Response.Write ( "history.go(-1);" ) '39
        Response.Write ( "</script>" ) '40
        Response.End ( ) '41
    End If '42
    sql = "select BoardID_1,BoardID_2,rename,dateh,deleted from " & ft & "bbsmenu where id=" & reid '44
    rs = New ADODB.Recordset ( ) '45
    rs.Open ( sql , conn , 3 , 1 ) '46
    If Not rs.EOF Then '47
        dateh = Year ( AspToAspX_CheckDBNull(rs.Fields ( "dateh" ) .Value) ) & "-" & Month ( AspToAspX_CheckDBNull(rs.Fields ( "dateh" ) .Value) ) & "-" & Day ( AspToAspX_CheckDBNull(rs.Fields ( "dateh" ) .Value) ) & " " & Hour ( AspToAspX_CheckDBNull(rs.Fields ( "dateh" ) .Value) ) & ":" & Minute ( AspToAspX_CheckDBNull(rs.Fields ( "dateh" ) .Value) ) & ":" & Second ( AspToAspX_CheckDBNull(rs.Fields ( "dateh" ) .Value) ) '48
        placereinfo = "|" & dateh & "," & AspToAspX_CheckDBNull(rs.Fields ( "rename" ) .Value) & "|" '49
        reinfo = replace ( reinfo , placereinfo , "" ) '50
        deleted = AspToAspX_CheckDBNull(rs.Fields ( "deleted" ) .Value) '51
        rename = AspToAspX_CheckDBNull(rs.Fields ( "rename" ) .Value) '52
        BoardID_1 = AspToAspX_CheckDBNull(rs.Fields ( "BoardID_1" ) .Value) '53
        BoardID_2 = AspToAspX_CheckDBNull(rs.Fields ( "BoardID_2" ) .Value) '54
    End If '55
    rs.Close ( ) '56
    If AspToAspX_CheckDBNull ( reinfo ) < > EmptyString.Value Then '57
        strsql = "update " & ft & "bbstitle set rep=rep-1,postnum=postnum-1,reinfo='" & reinfo & "' where rep>0 and id=" + pid '58
    Else '59
        strsql = "update " & ft & "bbstitle set rep=rep-1,postnum=postnum-1 where rep>0 and id=" + pid '60
    End If '61
    conn.Execute ( strsql ) '62
    AspToAspX_Str = "delete from " & ft & "bbsmenu where id=" & reid '63
    conn.Execute ( AspToAspX_Str ) '64
    sql = "update " & ft & "BBS_Cate set BBS_Cate_Reply=BBS_Cate_Reply-1 where BBS_Cate_ID='" & BoardID_1 & "'" '65
    conn.Execute ( sql ) '66
    sql = "update " & ft & "BBS_Cate set BBS_Cate_Reply=BBS_Cate_Reply-1 where BBS_Cate_ID='" & BoardID_2 & "'" '67
    conn.Execute ( sql ) '68
    If AspToAspX_CheckDBNull ( deleted ) = 0 Then '69
        sql = "update " & ft & "clubuser set jingyuan=jingyuan-" & repostget & " where clubuser_name='" & rename & "'" '70
        conn.Execute ( sql ) '71
    End If '72
    sqk = "select * from " & ft & "bbstitle where id=" & pid '74
    rers = New ADODB.Recordset ( ) '75
    rers.Open ( sqk , conn , 3 , 1 ) '76
    If rers.EOF Then '77
        rers.Close ( ) '78
        Response.Write ( "<SCRIPT language=JavaScript>alert('你输入的ID不存在！');" ) '79
        Response.Write ( "history.go(-1);" ) '80
        Response.Write ( "</script>" ) '81
        Response.End ( ) '82
    End If '83
    AspToAspX_Object.ftbbshtml ( ) '84
    conn.Close ( ) '85
    conn = Nothing '86
    AspToAspX_Response_Redirect ( ( Request.QueryString ( "return_url" ) ) ) '87
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("bzdeltohtm_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 UBBCode(ByRef  strContent )
        Return ASPX_INC_UBBCODE.UBBCode( strContent )
    End Function

    Public Function ftbbsubbcode(ByRef  strContent )
        Return ASPX_INC_UBBCODE.ftbbsubbcode( strContent )
    End Function

    Public Function FilterJS(ByRef  v )
        Return ASPX_INC_UBBCODE.FilterJS( v )
    End Function

    Public Function HTMLEncode(ByRef  fString )
        Return ASPX_INC_UBBCODE.HTMLEncode( fString )
    End Function

    Public Function fthtmlEncode(ByRef  fString )
        Return ASPX_INC_UBBCODE.fthtmlEncode( fString )
    End Function

    Public Function fthtmlCode(ByRef  fString )
        Return ASPX_INC_UBBCODE.fthtmlCode( fString )
    End Function

    Public Function nohtml(ByRef  AspToAspX_Str )
        Return ASPX_INC_UBBCODE.nohtml( AspToAspX_Str )
    End Function

    Public Function clearnulllen(ByRef  fString )
        Return ASPX_INC_UBBCODE.clearnulllen( fString )
    End Function

    Public Function RegExReplace(ByRef  AspToAspX_Str,ByRef patrn,ByRef str2 )
        Return ASPX_INC_UBBCODE.RegExReplace( AspToAspX_Str,patrn,str2 )
    End Function

    Public Function touxianvalue(ByRef  jingyuan,ByRef ft )
        Return ASPX_TOUXIANFUN.touxianvalue( jingyuan,ft )
    End Function

    Public Function jibievalue(ByRef  jingyuan,ByRef ft )
        Return ASPX_TOUXIANFUN.jibievalue( jingyuan,ft )
    End Function

    Public Function jingyuantoqs(ByRef  clubuser_id,ByRef topvalue,ByRef ft )
        Return ASPX_TOUXIANFUN.jingyuantoqs( clubuser_id,topvalue,ft )
    End Function

    Public Function imgtourl(ByRef  url,ByRef imgpath )
        Return ASPX_TOUXIANFUN.imgtourl( url,imgpath )
    End Function

    Public Function imgtologo(ByRef  imgpath )
        Return ASPX_TOUXIANFUN.imgtologo( imgpath )
    End Function

    Public Function mktohtm(ByRef  filename,ByRef filecontent )
        Return ASPX_TOUXIANFUN.mktohtm( filename,filecontent )
    End Function

    Public Function sendsms(ByRef  sender,ByRef accepter,ByRef filename,ByRef title,ByRef flag,ByRef ft )
        Return ASPX_TOUXIANFUN.sendsms( sender,accepter,filename,title,flag,ft )
    End Function

#End Region
End Class