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

    Public AspToAspX_Host_Class_Object As Object

Public i
Public searchcontent
Public searchkind
Public searchmethod
Public BoardID_1
Public BoardID_2
Public root
Public tyname1
Public tyvalue1
Public tyname2
Public tyvalue2
Public pagestr
Public titlepage
Public sql
Public rs As ADODB.Recordset
Public return_url
Public strsql
Public rsr_BBS_Cate
Public j
Public AspToAspX_Str
Public rs_BBS_Cate
Public wzrep
Public wzpage
Public wzpagecount
Public wzcount
Public rs_BBS_Cate_sub
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_PAGEFUN As _PAGEFUN
#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_PAGEFUN = New _PAGEFUN()
        ASPX_PAGEFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_PAGEFUN.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_PAGEFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_PAGEFUN = 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_PAGEFUN.AspToAspX_Page_Init ( )
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '4
    Response.Write ( "<link href=""../css/main01.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '5
    Response.Write ( "<script language=javascript src=""../js/publicfun.js""></script>" & Chr ( 13 ) ) '6
    searchcontent = trim ( Request ( "searchcontent" ) ) '8
    searchkind = Request ( "searchkind" ) '9
    searchmethod = Request ( "searchmethod" ) '10
    BoardID_1 = Request ( "BoardID_1" ) '11
    BoardID_2 = Request ( "BoardID_2" ) '12
    root = "../" '13
    tyname1 = "searchcontent" '14
    tyvalue1 = searchcontent '15
    tyname2 = "searchkind" '16
    tyvalue2 = Request ( "searchkind" ) '17
    If AspToAspX_CheckDBNull ( searchmethod ) = 1 Then '18
        If AspToAspX_CheckDBNull ( searchcontent ) < > EmptyString.Value Then '19
            pagestr = "&" & tyname2 & "=" & searchkind & "&" & tyname1 & "=" & searchcontent & "&searchmethod=1" '20
        Else '21
            pagestr = "" '22
        End If '23
    Else '24
        If AspToAspX_CheckDBNull ( BoardID_1 ) < > EmptyString.Value And AspToAspX_CheckDBNull ( BoardID_2 ) = EmptyString.Value Then '25
            pagestr = "&" & tyname2 & "=" & searchkind & "&BoardID_1=" & BoardID_1 & "&searchmethod=2" '26
        ElseIf AspToAspX_CheckDBNull ( BoardID_2 ) < > ""Then '27
            pagestr = "&" & tyname2 & "=" & searchkind & "&BoardID_1=" & BoardID_1 & "&BoardID_2=" & BoardID_2 & "&searchmethod=2" '28
        ElseIf AspToAspX_CheckDBNull ( BoardID_1 ) = ""And AspToAspX_CheckDBNull ( BoardID_2 ) = ""And AspToAspX_CheckDBNull ( searchkind ) < > ""Then '29
            pagestr = "&" & tyname2 & "=" & searchkind & "&searchmethod=2" '30
        Else '31
            pagestr = "" '32
        End If '33
    End If '34
    titlepage = Request.QueryString ( "page" ) '35
    If AspToAspX_CheckDBNull ( searchmethod ) = EmptyString.Value Then '36
        sql = "select * from " & ft & "bbstitle order by id desc" '37
    Else '38
        Select Case searchmethod '39
            Case "1" '40
                Select Case searchkind '41
                    Case "id" '42
                        sql = "select * from " & ft & "bbstitle where id=" & searchcontent & " order by id desc" '43
                    Case "user_id" '44
                        sql = "select * from " & ft & "bbstitle where user_id='" & searchcontent & "' order by id desc" '45
                    Case "title" '46
                        sql = "select * from " & ft & "bbstitle where title like '%" & searchcontent & "%' order by id desc" '47
                    Case "ip" '48
                        sql = "select * from " & ft & "bbstitle where ip ='" & searchcontent & "' order by id desc" '49
                End Select '50
            Case "2" '51
                If AspToAspX_CheckDBNull ( BoardID_1 ) = EmptyString.Value Then '52
                    If AspToAspX_CheckDBNull ( Searchkind ) = "huati" Then '53
                        sql = "select * from " & ft & "bbstitle where huati>=1 order by id desc" '54
                    ElseIf AspToAspX_CheckDBNull ( Searchkind ) = "bbstop1"Then '55
                        sql = "select * from " & ft & "bbstitle where bbstop1=1 order by id desc" '56
                    ElseIf AspToAspX_CheckDBNull ( Searchkind ) = "bbstop"Then '57
                        sql = "select * from " & ft & "bbstitle where bbstop=1 order by id desc" '58
                    ElseIf AspToAspX_CheckDBNull ( Searchkind ) = "boardsign"Then '59
                        sql = "select * from " & ft & "bbstitle where boardsign=1 order by id desc" '60
                    ElseIf AspToAspX_CheckDBNull ( Searchkind ) = "flag1"Then '61
                        sql = "select * from " & ft & "bbstitle where flag=1 order by id desc" '62
                    ElseIf AspToAspX_CheckDBNull ( Searchkind ) = "flag2"Then '63
                        sql = "select * from " & ft & "bbstitle where flag=2 order by id desc" '64
                    ElseIf AspToAspX_CheckDBNull ( Searchkind ) = "flag3"Then '65
                        sql = "select * from " & ft & "bbstitle where flag=3 order by id desc" '66
                    ElseIf AspToAspX_CheckDBNull ( Searchkind ) = "flag4"Then '67
                        sql = "select * from " & ft & "bbstitle where flag=4 order by id desc" '68
                    ElseIf AspToAspX_CheckDBNull ( Searchkind ) = "sign"Then '69
                        sql = "select * from " & ft & "bbstitle where sign=1 order by id desc" '70
                    ElseIf AspToAspX_CheckDBNull ( Searchkind ) = "delet"Then '71
                        sql = "select * from " & ft & "bbstitle where deleted=1 order by id desc" '72
                    Else '73
                        sql = "select * from " & ft & "bbstitle order by id desc" '74
                    End If '75
                Else '76
                    If AspToAspX_CheckDBNull ( Searchkind ) = EmptyString.Value Then '77
                        sql = "select * from " & ft & "bbstitle where BoardID_1='" & BoardID_1 & "' and BoardID_2='" & BoardID_2 & "' order by id desc" '78
                    ElseIf AspToAspX_CheckDBNull ( Searchkind ) = "flag1"Then '79
                        sql = "select * from " & ft & "bbstitle where BoardID_1='" & BoardID_1 & "' and BoardID_2='" & BoardID_2 & "' and flag=1 order by id desc" '80
                    ElseIf AspToAspX_CheckDBNull ( Searchkind ) = "flag2"Then '81
                        sql = "select * from " & ft & "bbstitle where BoardID_1='" & BoardID_1 & "' and BoardID_2='" & BoardID_2 & "' and flag=2 order by id desc" '82
                    Else '83
                        sql = "select * from " & ft & "bbstitle where BoardID_1='" & BoardID_1 & "' and BoardID_2='" & BoardID_2 & "' and " & Searchkind & "=1 order by id desc" '84
                    End If '85
                End If '86
        End Select '87
    End If '88
    rs = New ADODB.Recordset ( ) '89
    rs.Open ( sql , conn , 3 , 1 ) '90
    return_url = "title_manage.aspx?page=" & titlepage & pagestr '93
    return_url = replace ( return_url , "&" , "%26" ) '94
    Response.Write ( vbCrLf )
    Response.Write ( "<script LANGUAGE=""javascript"">" & Chr ( 13 ) ) '97
    Response.Write ( "<!--" & Chr ( 13 ) ) '98
    Response.Write ( "var onecount;" & Chr ( 13 ) ) '99
    Response.Write ( "onecount=0;" & Chr ( 13 ) ) '100
    Response.Write ( "var j;" & Chr ( 13 ) ) '101
    Response.Write ( "  " & Chr ( 13 ) ) '102
    Response.Write ( "subcat = new Array();" & Chr ( 13 ) ) '103
    strsql = "select BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Name from " & ft & "BBS_Cate where BBS_Cate_PID<>'0' order by BBS_ID asc" '105
    rsr_BBS_Cate = New ADODB.Recordset ( ) '106
    rsr_BBS_Cate.Open ( strsql , conn , 3 , 1 ) '107
    j = 0 '108
    Do While Not rsr_BBS_Cate.EOF '109
        Response.Write ( vbCrLf )
        Response.Write ( "subcat[" ) '111
        Response.Write ( j ) '111
        Response.Write ( "] = new Array(""" ) '111
        Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_Name" ) .Value) ) '111
        Response.Write ( """,""" ) '111
        Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_PID" ) .Value) ) '111
        Response.Write ( """,""" ) '111
        Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_ID" ) .Value) ) '111
        Response.Write ( """);" & Chr ( 13 ) ) '111
        j = j + 1 '113
        rsr_BBS_Cate.MoveNext ( ) '114
    Loop '115
    rsr_BBS_Cate.Close ( ) '116
    rsr_BBS_Cate = Nothing '117
    Response.Write ( vbCrLf )
    Response.Write ( "onecount=" ) '119
    Response.Write ( j ) '119
    Response.Write ( ";" & Chr ( 13 ) ) '119
    Response.Write ( "function changelocation(locationid)" & Chr ( 13 ) ) '120
    Response.Write ( "    {" & Chr ( 13 ) ) '121
    Response.Write ( "    document.myform.BoardID_2.length = 0; " & Chr ( 13 ) ) '122