📄 boardtoboard.aspx.vb

📁 本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量基于ASP.NET的DLL可以运行在支持ASP
💻 VB
📖 第 1 页 / 共 2 页
字号:
12 下一页
' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  gzliangjianhua@hotmail.com        *
' *        EMail  AspToDll@vip.163.com              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


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

    Public AspToAspX_Host_Class_Object As Object

Public boardid1
Public boardid2
Public boardid3
Public boardid4
Public strsql
Public msg
Public rsr_BBS_Cate
Public j
Public sql
Public rs As ADODB.Recordset
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
#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()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_UnloadIncludeFiles()
        ASPX_ADMIN_CHECK_MASTER = 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 ( )
    If AspToAspX_CheckDBNull ( Request ( "act" ) ) = "y" Then '4
        boardid1 = Request ( "boardid1" ) '5
        boardid2 = Request ( "boardid2" ) '6
        boardid3 = Request ( "boardid3" ) '7
        boardid4 = Request ( "boardid4" ) '8
        If AspToAspX_CheckDBNull ( InStr ( boardid2 , boardid1 ) ) < = 0 Or AspToAspX_CheckDBNull ( InStr ( boardid4 , boardid3 ) ) < = 0 Then '9
            Response.Write ( "错误:一级类别与二级类别不对应" ) '10
            Response.End ( ) '11
        End If '12
        strsql = "update " & ft & "bbstitle set BoardID_1='" & boardid3 & "',BoardID_2='" & boardid4 & "',deleted=8 where BoardID_1='" & boardid1 & "' and BoardID_2='" & boardid2 & "'" '13
        conn.Execute ( strsql ) '14
        strsql = "update " & ft & "bbsmenu set BoardID_1='" & boardid3 & "',BoardID_2='" & boardid4 & "' where BoardID_1='" & boardid1 & "' and BoardID_2='" & boardid2 & "'" '15
        conn.Execute ( strsql ) '16
        msg = "类别转换成功,但你必须重新生成静态页.点击这重新生成刚才转换的贴子" '17
    End If '18
    Response.Write ( vbCrLf )
    Response.Write ( "<HTML>" & Chr ( 13 ) ) '20
    Response.Write ( "<HEAD>" & Chr ( 13 ) ) '21
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '22
    Response.Write ( "<LINK href=""../css/xmwuye.css"" type=text/css rel=stylesheet>" & Chr ( 13 ) ) '23
    Response.Write ( "<TITLE>静态生成</TITLE>" & Chr ( 13 ) ) '24
    Response.Write ( "<base target=""right"">" & Chr ( 13 ) ) '25
    Response.Write ( "<style type=""text/css"">" & Chr ( 13 ) ) '26
    Response.Write ( "<!--" & Chr ( 13 ) ) '27
    Response.Write ( "body {" & Chr ( 13 ) ) '28
    Response.Write ( "" & Chr ( 9 ) & "background-color: #f7f7f7;" & Chr ( 13 ) ) '29
    Response.Write ( "}" & Chr ( 13 ) ) '30
    Response.Write ( ".STYLE1 {color: #FF0000}" & Chr ( 13 ) ) '31
    Response.Write ( "-->" & Chr ( 13 ) ) '32
    Response.Write ( "</style>" & Chr ( 13 ) ) '33
    Response.Write ( "</HEAD>" & Chr ( 13 ) ) '34
    Response.Write ( "<script LANGUAGE=""javascript"">" & Chr ( 13 ) ) '35
    Response.Write ( "<!--" & Chr ( 13 ) ) '36
    Response.Write ( "var onecount;" & Chr ( 13 ) ) '37
    Response.Write ( "onecount=0;" & Chr ( 13 ) ) '38
    Response.Write ( "var j; " & Chr ( 13 ) ) '39
    Response.Write ( "subcat = new Array();" & Chr ( 13 ) ) '40
    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" '42
    rsr_BBS_Cate = New ADODB.Recordset ( ) '43
    rsr_BBS_Cate.Open ( strsql , conn , 3 , 1 ) '44
    j = 0 '45
    Do While Not rsr_BBS_Cate.EOF '46
        Response.Write ( vbCrLf )
        Response.Write ( "subcat[" ) '48
        Response.Write ( j ) '48
        Response.Write ( "] = new Array(""" ) '48
        Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_Name" ) .Value) ) '48
        Response.Write ( """,""" ) '48
        Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_PID" ) .Value) ) '48
        Response.Write ( """,""" ) '48
        Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_ID" ) .Value) ) '48
        Response.Write ( """);" & Chr ( 13 ) ) '48
        j = j + 1 '50
        rsr_BBS_Cate.MoveNext ( ) '51
    Loop '52
    rsr_BBS_Cate.Close ( ) '53
    rsr_BBS_Cate = Nothing '54
    Response.Write ( vbCrLf )
    Response.Write ( "onecount=" ) '56
    Response.Write ( j ) '56
    Response.Write ( ";" & Chr ( 13 ) ) '56
    Response.Write ( "function changelocation(locationid)" & Chr ( 13 ) ) '57
    Response.Write ( "    {" & Chr ( 13 ) ) '58
    Response.Write ( "    document.myform.boardid2.length = 0; " & Chr ( 13 ) ) '59
    Response.Write ( "    var locationid=locationid;" & Chr ( 13 ) ) '60
    Response.Write ( "    var i;" & Chr ( 13 ) ) '61
    Response.Write ( "    document.myform.boardid2.options[0] = new Option('==分论坛==','');" & Chr ( 13 ) ) '62
    Response.Write ( "    for (i=0;i < onecount; i++)" & Chr ( 13 ) ) '63
    Response.Write ( "        {" & Chr ( 13 ) ) '64
    Response.Write ( "            if (subcat[i][1] == locationid)" & Chr ( 13 ) ) '65
    Response.Write ( "            { " & Chr ( 13 ) ) '66
    Response.Write ( "            document.myform.boardid2.options[document.myform.boardid2.length] = new Option(subcat[i][0], subcat[i][2]);" & Chr ( 13 ) ) '67
    Response.Write ( "            }        " & Chr ( 13 ) ) '68
    Response.Write ( "        }" & Chr ( 13 ) ) '69
    Response.Write ( "        " & Chr ( 13 ) ) '70
    Response.Write ( "    }    " & Chr ( 13 ) ) '71
    Response.Write ( "function changelocation2(locationid)" & Chr ( 13 ) ) '72
    Response.Write ( "    {" & Chr ( 13 ) ) '73
    Response.Write ( "    document.myform.boardid4.length = 0; " & Chr ( 13 ) ) '74
    Response.Write ( "    var locationid=locationid;" & Chr ( 13 ) ) '75
    Response.Write ( "    var i;" & Chr ( 13 ) ) '76
    Response.Write ( "    document.myform.boardid4.options[0] = new Option('==分论坛==','');" & Chr ( 13 ) ) '77
    Response.Write ( "    for (i=0;i < onecount; i++)" & Chr ( 13 ) ) '78
    Response.Write ( "        {" & Chr ( 13 ) ) '79
    Response.Write ( "            if (subcat[i][1] == locationid)" & Chr ( 13 ) ) '80
    Response.Write ( "            { " & Chr ( 13 ) ) '81
    Response.Write ( "            document.myform.boardid4.options[document.myform.boardid4.length] = new Option(subcat[i][0], subcat[i][2]);" & Chr ( 13 ) ) '82
    Response.Write ( "            }        " & Chr ( 13 ) ) '83
    Response.Write ( "        }" & Chr ( 13 ) ) '84
    Response.Write ( "        " & Chr ( 13 ) ) '85
    Response.Write ( "    } " & Chr ( 13 ) ) '86
    Response.Write ( "//-->" & Chr ( 13 ) ) '87
    Response.Write ( "</script>" & Chr ( 13 ) ) '88
    Response.Write ( "<BODY topmargin=""0"">" & Chr ( 13 ) ) '89
    Response.Write ( "<table width=""98%"" align=""center"">" & Chr ( 13 ) ) '90
    Response.Write ( "  <tr><td height=""35"" valign=""bottom""><div align=""center""><strong>贴子类别转换</strong></div></td>" & Chr ( 13 ) ) '91
    Response.Write ( "</tr></table>" & Chr ( 13 ) ) '92
    Response.Write ( "<table width=""98%"" align=""center"">" & Chr ( 13 ) ) '93
    Response.Write ( "<tr><td width=90% >" & Chr ( 13 ) ) '94
    Response.Write ( "<form action="""" method=""post"" target=""main"" name=""myform"">" & Chr ( 13 ) ) '95
    Response.Write ( "        <p><b>请在下面选择需要转换的条件 (此操作主要是实现贴子的合并或转换功能，转换成功后一定要重新生成转换后的贴子，在生成过程中要一段时间请耐心等待)</b><br>" & Chr ( 13 ) ) '96
    Response.Write ( "          <br>" & Chr ( 13 ) ) '97
    Response.Write ( "          <br>" & Chr ( 13 ) ) '98
    Response.Write ( "          (<span class=""STYLE1"">说明: 类别选择一定要相对应如:选择的二级类别一定要是在所选一级类别下的二级类别</span>)<br>" & Chr ( 13 ) ) '99
    Response.Write ( "          <br>" & Chr ( 13 ) ) '100
    Response.Write ( "          将 " & Chr ( 13 ) ) '101
    Response.Write ( "<select name=""boardid1"" onChange=""changelocation(document.myform.boardid1.options[document.myform.boardid1.selectedIndex].value)"">" & Chr ( 13 ) ) '102
    sql = "select BBS_Cate_Name,BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Qs,BBS_Cate_Note,BBS_Cate_Topic,BBS_Cate_Reply,BBS_Cate_Manager_Name from " & ft & "BBS_Cate where BBS_Cate_PID='0' order by totop asc" '104
    rs = New ADODB.Recordset ( ) '105
    rs.Open ( sql , conn , 3 , 1 ) '106
    Do While Not rs.EOF '107
        Response.Write ( vbCrLf )
        Response.Write ( "            <option value=""" ) '109
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) ) '109
        Response.Write ( """>" ) '109
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) ) '109
        Response.Write ( "</option>" & Chr ( 13 ) ) '109
        rs.MoveNext ( ) '111
    Loop '112
    rs.Close ( ) '113
    Response.Write ( vbCrLf )
    Response.Write ( "          </select>" & Chr ( 13 ) ) '115
    Response.Write ( "          的 " & Chr ( 13 ) ) '116
    Response.Write ( "<select name=""boardid2"">" & Chr ( 13 ) ) '117
    sql = "select BBS_Cate_Name,BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Qs,BBS_Cate_Note,BBS_Cate_Topic,BBS_Cate_Reply,BBS_Cate_Manager_Name from " & ft & "BBS_Cate where BBS_Cate_PID<>'0' order by totop asc" '119
    rs = New ADODB.Recordset ( ) '120
    rs.Open ( sql , conn , 3 , 1 ) '121
    Do While Not rs.EOF '122
        Response.Write ( vbCrLf )
        Response.Write ( "            <option value=""" ) '124
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) ) '124
        Response.Write ( """>" ) '124
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) ) '124
        Response.Write ( "</option>" & Chr ( 13 ) ) '124
        rs.MoveNext ( ) '126
    Loop '127
    rs.Close ( ) '128
    Response.Write ( vbCrLf )
    Response.Write ( "          </select>" & Chr ( 13 ) ) '130
    Response.Write ( "          <label></label>" & Chr ( 13 ) ) '131
    Response.Write ( "          转换到" & Chr ( 13 ) ) '132
    Response.Write ( "<select name=""boardid3"" onChange=""changelocation2(document.myform.boardid3.options[document.myform.boardid3.selectedIndex].value)"">" & Chr ( 13 ) ) '133
    sql = "select BBS_Cate_Name,BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Qs,BBS_Cate_Note,BBS_Cate_Topic,BBS_Cate_Reply,BBS_Cate_Manager_Name from " & ft & "BBS_Cate where BBS_Cate_PID='0' order by totop asc" '135
    rs = New ADODB.Recordset ( ) '136
    rs.Open ( sql , conn , 3 , 1 ) '137
    Do While Not rs.EOF '138
        Response.Write ( vbCrLf )
12 下一页
💿 文件大小 7012 K
👤 上传用户 red2years
📂 所属分类书籍源码
🏷️ 相关标签

#ASP #NET #DLL #BBS
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -