title_manage.aspx.vb

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

    Response.Write ( "    var locationid=locationid;" & Chr ( 13 ) ) '123
    Response.Write ( "    var i;" & Chr ( 13 ) ) '124
    Response.Write ( "    document.myform.BoardID_2.options[0] = new Option('==分论坛==','');" & Chr ( 13 ) ) '125
    Response.Write ( "    for (i=0;i < onecount; i++)" & Chr ( 13 ) ) '126
    Response.Write ( "        {" & Chr ( 13 ) ) '127
    Response.Write ( "            if (subcat[i][1] == locationid)" & Chr ( 13 ) ) '128
    Response.Write ( "            { " & Chr ( 13 ) ) '129
    Response.Write ( "            document.myform.BoardID_2.options[document.myform.BoardID_2.length] = new Option(subcat[i][0], subcat[i][2]);" & Chr ( 13 ) ) '130
    Response.Write ( "            }        " & Chr ( 13 ) ) '131
    Response.Write ( "        }" & Chr ( 13 ) ) '132
    Response.Write ( "        " & Chr ( 13 ) ) '133
    Response.Write ( "    }    " & Chr ( 13 ) ) '134
    Response.Write ( "//-->" & Chr ( 13 ) ) '135
    Response.Write ( "</script>" & Chr ( 13 ) ) '136
    Response.Write ( "<table width=""99%"" border=""0"" align=""center"">" & Chr ( 13 ) ) '137
    Response.Write ( "  <TR align=center class=""f12"">" & Chr ( 13 ) ) '138
    Response.Write ( "<FORM METHOD=POST ACTION=""title_manage.aspx"" >" & Chr ( 13 ) ) '139
    Response.Write ( "" & Chr ( 9 ) & "  <TD> " & Chr ( 13 ) ) '140
    Response.Write ( "        搜索：<INPUT TYPE=""text"" NAME=""searchcontent"" size=20>" & Chr ( 13 ) ) '141
    Response.Write ( "        <select name=""searchkind"">" & Chr ( 13 ) ) '142
    Response.Write ( "          <option value=""id"">ID号</option>" & Chr ( 13 ) ) '143
    Response.Write ( "          <option value=""user_id"">用户名</option>" & Chr ( 13 ) ) '144
    Response.Write ( "          <option value=""title"">标  &nbsp;题</option>" & Chr ( 13 ) ) '145
    Response.Write ( "          <option value=""ip"">IP地址</option>" & Chr ( 13 ) ) '146
    Response.Write ( "        </select>" & Chr ( 13 ) ) '147
    Response.Write ( "        <INPUT TYPE=""submit"" value=""搜索"" name="""">" & Chr ( 13 ) ) '148
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<INPUT TYPE=""hidden"" name=""searchmethod"" value=""1"">" & Chr ( 13 ) ) '149
    Response.Write ( "          </TD>" & Chr ( 13 ) ) '150
    Response.Write ( "</FORM>" & Chr ( 13 ) ) '151
    Response.Write ( "</TR>" & Chr ( 13 ) ) '152
    Response.Write ( "</TABLE>" & Chr ( 13 ) ) '153
    Response.Write ( "<table width=""99%"" border=""0"" align=""center"">" & Chr ( 13 ) ) '154
    Response.Write ( "  <TR align=center class=""f12"">" & Chr ( 13 ) ) '155
    Response.Write ( "<FORM name=""myform"" METHOD=POST ACTION=""title_manage.aspx"" >" & Chr ( 13 ) ) '156
    Response.Write ( " <TD> " & Chr ( 13 ) ) '157
    Response.Write ( "<SELECT NAME=""BoardID_1"" onChange=""changelocation(document.myform.BoardID_1.options[document.myform.BoardID_1.selectedIndex].value)"">" & Chr ( 13 ) ) '158
    Response.Write ( "<option value="""">==主论坛==</option>" & Chr ( 13 ) ) '159
    AspToAspX_Str = "select BBS_Cate_ID,BBS_Cate_Name from " & ft & "BBS_CATE Where BBS_Cate_PID='0' order by BBS_ID asc" '161
    rs_BBS_Cate = New ADODB.Recordset ( ) '162
    rs_BBS_Cate.Open ( AspToAspX_Str , conn , 1 , 1 ) '163
    Do While Not rs_BBS_Cate.EOF '164
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & "<option value=""" ) '166
        Response.Write ( AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_ID" ) .Value) ) '166
        Response.Write ( """>" ) '166
        Response.Write ( AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_Name" ) .Value) ) '166
        Response.Write ( "</option>" & Chr ( 13 ) ) '166
        rs_BBS_Cate.MoveNext ( ) '168
    Loop '169
    rs_BBS_Cate.Close ( ) '170
    rs_BBS_Cate = Nothing '171
    Response.Write ( vbCrLf )
    Response.Write ( "</SELECT>" & Chr ( 13 ) ) '173
    Response.Write ( "<SELECT NAME=""BoardID_2"">" & Chr ( 13 ) ) '174
    Response.Write ( "<option value="""">==分论坛==</option>" & Chr ( 13 ) ) '175
    Response.Write ( "</SELECT>" & Chr ( 13 ) ) '176
    Response.Write ( " <select name=""searchkind"">" & Chr ( 13 ) ) '177
    Response.Write ( "          <option value="""">全部</option>" & Chr ( 13 ) ) '178
    Response.Write ( "          <option value=""sign"">推荐贴</option>" & Chr ( 13 ) ) '179
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""bbstop1"">总置顶贴</option>" & Chr ( 13 ) ) '180
    Response.Write ( "          <option value=""bbstop"">分版置顶</option>" & Chr ( 13 ) ) '181
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""huati"">精华贴</option>" & Chr ( 13 ) ) '182
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""flag1"">投票贴</option>" & Chr ( 13 ) ) '183
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""flag2"">活动贴</option>" & Chr ( 13 ) ) '184
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""flag3"">注册用户可查看</option>" & Chr ( 13 ) ) '185
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""flag4"">回贴后可以查看</option>" & Chr ( 13 ) ) '186
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""boardsign"">公告贴</option>" & Chr ( 13 ) ) '187
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""delet"">隐藏贴</option>" & Chr ( 13 ) ) '188
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  </select>" & Chr ( 13 ) ) '189
    Response.Write ( "        <INPUT TYPE=""submit"" value=""搜索"" name="""">" & Chr ( 13 ) ) '190
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<INPUT TYPE=""hidden"" name=""searchcontent"" value="""">" & Chr ( 13 ) ) '191
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<INPUT TYPE=""hidden"" name=""searchmethod"" value=""2"">" & Chr ( 13 ) ) '192
    Response.Write ( "      </TD>" & Chr ( 13 ) ) '193
    Response.Write ( "</FORM>" & Chr ( 13 ) ) '194
    Response.Write ( "</TR>" & Chr ( 13 ) ) '195
    Response.Write ( "</TABLE>" & Chr ( 13 ) ) '196
    Response.Write ( "</center></div>" & Chr ( 13 ) ) '197
    Response.Write ( "<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '198
    Response.Write ( "  <tr>" & Chr ( 13 ) ) '199
    Response.Write ( "    <td width=""100%"">" & Chr ( 13 ) ) '200
    Response.Write ( "          <div align=""center""> " & Chr ( 13 ) ) '201
    Response.Write ( "        <table border=""0"" cellspacing=""1"" width=""100%"" bordercolorlight=""#000000"" bordercolordark=""#FFFFFF"" cellpadding=""0"" bgcolor=""#cccccc"">" & Chr ( 13 ) ) '202
    Response.Write ( "          " ) '203
    If Not rs.EOF Then '204
        wzrep = 30 '205
        If AspToAspX_CheckDBNull ( Request.QueryString ( "page" ) ) < > EmptyString.Value Then '207
            wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '208
        Else '209
            wzpage = 0 '210
        End If '211
    If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
    '212
        rs.PageSize = wzrep '213
        rs.AbsolutePage = wzpage '214
        wzpagecount = rs.PageCount '215
        wzcount = rs.RecordCount '216
        Response.Write ( vbCrLf )
        Response.Write ( "          <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '218
        Response.Write ( "            <td align=center colspan=23 height=30> " & Chr ( 13 ) ) '219
        Response.Write ( "              <div align=""left""> " ) '220
        Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '220
        Response.Write ( " " & Chr ( 13 ) ) '220
        Response.Write ( "              </div></td>" & Chr ( 13 ) ) '221
        Response.Write ( "          </tr>" & Chr ( 13 ) ) '222
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <tr bgcolor=""#f8f8f8"" class=""f12""> " & Chr ( 13 ) ) '223
        Response.Write ( "            <td height=""20"" align=""center""><strong>选择</strong></td>" & Chr ( 13 ) ) '224
        Response.Write ( "            <td height=""20"" align=""center""><strong>ID号</strong></td>" & Chr ( 13 ) ) '225
        Response.Write ( "            <td width=""48"" align=""center""><strong>主论坛</strong></td>" & Chr ( 13 ) ) '226
        Response.Write ( "            <td width=""48"" align=""center""><strong>分论坛</strong></td>" & Chr ( 13 ) ) '227
        Response.Write ( "            <td width=""45"" align=""center""><strong>用户名</strong></td>" & Chr ( 13 ) ) '228
        Response.Write ( "            <td align=""center""><strong>题目</strong></td>" & Chr ( 13 ) ) '229
        Response.Write ( "            <td width=""55"" align=""center""><strong>IP</strong></td>" & Chr ( 13 ) ) '230
        Response.Write ( "            <td width=""25"" align=""center""><strong>点击数</strong></td>" & Chr ( 13 ) ) '231
        Response.Write ( "            <td width=""25"" align=""center""><strong>回复数</strong></td>" & Chr ( 13 ) ) '232
        Response.Write ( "            <td width=""59"" align=""center""><strong>日期</strong></td>" & Chr ( 13 ) ) '233
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<td width=""15"" align=""center""><strong>论坛头条</strong></td>" & Chr ( 13 ) ) '234
        Response.Write ( "            <td width=""15"" align=""center""><strong>论坛公告</strong></td>" & Chr ( 13 ) ) '235
        Response.Write ( "            <td width=""15"" align=""center""><strong>推荐话题</strong></td>" & Chr ( 13 ) ) '236
        Response.Write ( "            <td width=""15"" align=""center""><strong>首页显示</strong></td>" & Chr ( 13 ) ) '237
        Response.Write ( "            <td width=""14"" align=""center""><strong>精彩话题</strong></td>" & Chr ( 13 ) ) '238
        Response.Write ( "            <td width=""15"" align=""center""><strong>本版置顶</strong></td>" & Chr ( 13 ) ) '239
        Response.Write ( "            <td width=""15"" align=""center""><strong>总置顶</strong></td>" & Chr ( 13 ) ) '240
        Response.Write ( "            <td width=""30"" align=""center""><strong>标志</strong></td>" & Chr ( 13 ) ) '241
        Response.Write ( "            <td width=""25"" align=""center""><strong>删除</strong></td>" & Chr ( 13 ) ) '242
        Response.Write ( "          </tr>" & Chr ( 13 ) ) '243
        Response.Write ( "          <form name=""selectform"" method=post action=""pldel.aspx"">" & Chr ( 13 ) ) '244
        Response.Write ( "            <input type=""hidden"" name=""op"" value=""选择转正"">" & Chr ( 13 ) ) '245
        Response.Write ( "            <input type=""hidden"" name=""returnURL"" value=""title_manage.aspx?" ) '246
        Response.Write ( Request.QueryString ) '246
        Response.Write ( """>" & Chr ( 13 ) ) '246
        Response.Write ( "<script language=""JavaScript"">" & Chr ( 13 ) ) '247
        Response.Write ( "  <!--" & Chr ( 13 ) ) '248
        Response.Write ( "  function select_pl_submit(optype){" & Chr ( 13 ) ) '249
        Response.Write ( "" & Chr ( 9 ) & "var f=document.forms[""selectform""]" & Chr ( 13 ) ) '250
        Response.Write ( "" & Chr ( 9 ) & "f.op.value=optype" & Chr ( 13 ) ) '251
        Response.Write ( "" & Chr ( 9 ) & "f.submit()" & Chr ( 13 ) ) '252
        Response.Write ( "  }" & Chr ( 13 ) ) '253
        Response.Write ( "  //-->" & Chr ( 13 ) ) '254
        Response.Write ( "  </script>" & Chr ( 13 ) ) '255
        For i = 0 To Val ( wzrep ) - 1 '257
        If rs.EOF Then
Exit For
End If
    '258
            Response.Write ( vbCrLf )
            Response.Write ( "            <tr height=20 bgcolor=""#FFFFFF"" class=""f12""> " & Chr ( 13 ) ) '260
            Response.Write ( "              <td ><div align=""center""> " & Chr ( 13 ) ) '261
            Response.Write ( "                  <input name=""checkbox1"" type=""checkbox"" id=""checkbox1"" value=""" ) '262
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '262
            Response.Write ( """>" & Chr ( 13 ) ) '262
            Response.Write ( "                </div></td>" & Chr ( 13 ) ) '263
            Response.Write ( "              <td ><A HREF=""../" ) '264
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '264
            Response.Write ( """ target=""_blank"">" ) '264
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '264
            Response.Write ( "</A></td>" & Chr ( 13 ) ) '264
            Response.Write ( "              <td align=""center""> " & Chr ( 13 ) ) '265
            AspToAspX_Str = "select BBS_Cate_ID,BBS_Cate_Name from " & ft & "BBS_CATE Where BBS_Cate_ID='" & AspToAspX_CheckDBNull(rs.Fields ( "BoardID_1" ) .Value) & "'" '267
            rs_BBS_Cate_sub = New ADODB.Recordset ( ) '268
            rs_BBS_Cate_sub.Open ( AspToAspX_Str , conn , 1 , 1 ) '269
            If Not rs_BBS_Cate_sub.EOF Then '270
                Response.Write ( AspToAspX_CheckDBNull(rs_BBS_Cate_sub.Fields ( "BBS_Cate_Name" ) .Value) ) '271
            End If '272
            rs_BBS_Cate_sub.Close ( ) '273
            rs_BBS_Cate_sub = Nothing '274
            Response.Write ( vbCrLf )
            Response.Write ( "              </td>" & Chr ( 13 ) ) '276
            Response.Write ( "              <td align=""center""> " & Chr ( 13 ) ) '277
            If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "BoardID_2" ) .Value) ) ) < > EmptyString.Value Then '279
                AspToAspX_Str = "select BBS_Cate_ID,BBS_Cate_Name from " & ft & "BBS_CATE Where BBS_Cate_ID='" & AspToAspX_CheckDBNull(rs.Fields ( "BoardID_2" ) .Value) & "'" '280
                rs_BBS_Cate_sub = New ADODB.Recordset ( ) '281
                rs_BBS_Cate_sub.Open ( AspToAspX_Str , conn , 1 , 1 ) '282
                If Not rs_BBS_Cate_sub.EOF Then '283
                    Response.Write ( vbCrLf )
                    Response.Write ( "                <A HREF=""title_manage.aspx?searchmethod=2&BoardID_1=" ) '285
                    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BoardID_1" ) .Value) ) '285
                    Response.Write ( "&BoardID_2=" ) '285
                    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BoardID_2" ) .Value) ) '285
                    Response.Write ( """>" ) '285
                    Response.Write ( AspToAspX_CheckDBNull(rs_BBS_Cate_sub.Fields ( "BBS_Cate_Name" ) .Value) ) '285
                    Response.Write ( "</A> " & Chr ( 13 ) ) '285
                End If '287
                rs_BBS_Cate_sub.Close ( ) '288
                rs_BBS_Cate_sub = Nothing '289
            Else '290
                Response.Write ( "&nbsp;" ) '291
            End If '292
            Response.Write ( vbCrLf )
            Response.Write ( "              </td>" & Chr ( 13 ) ) '294
            Response.Write ( "              <td align=""center"">" ) '295
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "user_id" ) .Value) ) '295
            Response.Write ( "</td>" & Chr ( 13 ) ) '295
            Response.Write ( "              <td align=""center""><A HREF=""reply_manage.aspx?searchkind=pid&searchcontent=" ) '296
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '296
            Response.Write ( """><FONT  COLOR=""blue"">" ) '296
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) '296
            Response.Write ( "</FONT></A></td>" & Chr ( 13 ) ) '296
            Response.Write ( "              <td align=""center"">" ) '297
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "ip" ) .Value) ) '297
            Response.Write ( "</td>" & Chr ( 13 ) ) '297
            Response.Write ( "              <td align=""center"">" ) '298
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "hit" ) .Value) ) '298
            Response.Write ( "</td>" & Chr ( 13 ) ) '298
            Response.Write ( "              <td align=""center"">" ) '299
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "rep" ) .Value) ) '299
            Response.Write ( "</td>" & Chr ( 13 ) ) '299
            Response.Write ( "              <td align=""center"">" ) '300
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "dateh" ) .Value) ) '300
            Response.Write ( "</td>" & Chr ( 13 ) ) '300
            Response.Write ( "              <td align=""center""> " & Chr ( 13 ) ) '301
            Response.Write ( "                " ) '302
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "boardsign" ) .Value) ) = 2 Then '302
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""jportj.aspx?id=" ) '303