title_manage.aspx.vb

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

                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '303
                Response.Write ( "&mode=0&kind=4&return_url=" ) '303
                Response.Write ( return_url ) '303
                Response.Write ( """><FONT COLOR=""red"">是</FONT></A> " & Chr ( 13 ) ) '303
                Response.Write ( "                " ) '304
            Else '304
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""jportj.aspx?id=" ) '305
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '305
                Response.Write ( "&mode=2&kind=4&return_url=" ) '305
                Response.Write ( return_url ) '305
                Response.Write ( """>否</A> " & Chr ( 13 ) ) '305
                Response.Write ( "                " ) '306
            End If '306
            Response.Write ( vbCrLf )
            Response.Write ( "              </td>" & Chr ( 13 ) ) '307
            Response.Write ( "              <td align=""center""> " & Chr ( 13 ) ) '308
            Response.Write ( "                " ) '309
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "boardsign" ) .Value) ) = 1 Then '309
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""jportj.aspx?id=" ) '310
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '310
                Response.Write ( "&mode=0&kind=4&return_url=" ) '310
                Response.Write ( return_url ) '310
                Response.Write ( """><FONT COLOR=""red"">是</FONT></A> " & Chr ( 13 ) ) '310
                Response.Write ( "                " ) '311
            Else '311
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""jportj.aspx?id=" ) '312
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '312
                Response.Write ( "&mode=1&kind=4&return_url=" ) '312
                Response.Write ( return_url ) '312
                Response.Write ( """>否</A> " & Chr ( 13 ) ) '312
                Response.Write ( "                " ) '313
            End If '313
            Response.Write ( vbCrLf )
            Response.Write ( "              </td>" & Chr ( 13 ) ) '314
            Response.Write ( "              <td align=""center""> " & Chr ( 13 ) ) '315
            Response.Write ( "                " ) '316
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "sign" ) .Value) ) = 0 Then '316
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""jportj.aspx?id=" ) '317
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '317
                Response.Write ( "&mode=1&kind=1&return_url=" ) '317
                Response.Write ( return_url ) '317
                Response.Write ( """><FONT COLOR=""green"">否</FONT></A> " & Chr ( 13 ) ) '317
                Response.Write ( "                " ) '318
            Else '318
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""jportj.aspx?id=" ) '319
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '319
                Response.Write ( "&mode=0&kind=1&return_url=" ) '319
                Response.Write ( return_url ) '319
                Response.Write ( """><FONT COLOR=""red"">是</FONT></A> " & Chr ( 13 ) ) '319
                Response.Write ( "                " ) '320
            End If '320
            Response.Write ( vbCrLf )
            Response.Write ( "              </td>" & Chr ( 13 ) ) '321
            Response.Write ( "              <td align=""center""> " & Chr ( 13 ) ) '322
            Response.Write ( "                " ) '323
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "showinhomepage" ) .Value) ) = 0 Then '323
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""jportj.aspx?id=" ) '324
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '324
                Response.Write ( "&mode=1&kind=3&return_url=" ) '324
                Response.Write ( return_url ) '324
                Response.Write ( """><FONT COLOR=""green"">否</FONT></A> " & Chr ( 13 ) ) '324
                Response.Write ( "                " ) '325
            Else '325
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""jportj.aspx?id=" ) '326
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '326
                Response.Write ( "&mode=0&kind=3&return_url=" ) '326
                Response.Write ( return_url ) '326
                Response.Write ( """><FONT COLOR=""red"">是</FONT></A> " & Chr ( 13 ) ) '326
                Response.Write ( "                " ) '327
            End If '327
            Response.Write ( vbCrLf )
            Response.Write ( "              </td>" & Chr ( 13 ) ) '328
            Response.Write ( "              <td align=""center""> " & Chr ( 13 ) ) '329
            Response.Write ( "                " ) '330
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "huati" ) .Value) ) = 0 Then '330
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""jportj.aspx?id=" ) '331
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '331
                Response.Write ( "&mode=1&kind=2&return_url=" ) '331
                Response.Write ( return_url ) '331
                Response.Write ( """><FONT COLOR=""green"">否</FONT></A> " & Chr ( 13 ) ) '331
                Response.Write ( "                " ) '332
            Else '332
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""jportj.aspx?id=" ) '333
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '333
                Response.Write ( "&mode=0&kind=2&return_url=" ) '333
                Response.Write ( return_url ) '333
                Response.Write ( """><FONT COLOR=""red"">是</FONT></A> " & Chr ( 13 ) ) '333
                Response.Write ( "                " ) '334
            End If '334
            Response.Write ( vbCrLf )
            Response.Write ( "              </td>" & Chr ( 13 ) ) '335
            Response.Write ( "              <td align=""center""> " & Chr ( 13 ) ) '336
            Response.Write ( "                " ) '337
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bbstop" ) .Value) ) = 1 Then '337
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""masterbbstop.aspx?id=" ) '338
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '338
                Response.Write ( "&bbstop=0&return_url=" ) '338
                Response.Write ( return_url ) '338
                Response.Write ( """><FONT COLOR=""green"">是</FONT></A> " & Chr ( 13 ) ) '338
                Response.Write ( "                " ) '339
            Else '339
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""masterbbstop.aspx?id=" ) '340
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '340
                Response.Write ( "&bbstop=1&return_url=" ) '340
                Response.Write ( return_url ) '340
                Response.Write ( """><FONT COLOR=""red"">否</FONT></A> " & Chr ( 13 ) ) '340
                Response.Write ( "                " ) '341
            End If '341
            Response.Write ( vbCrLf )
            Response.Write ( "              </td>" & Chr ( 13 ) ) '342
            Response.Write ( "              <td align=""center""> " & Chr ( 13 ) ) '343
            Response.Write ( "                " ) '344
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bbstop1" ) .Value) ) = 1 Then '344
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""masterbbstop.aspx?id=" ) '345
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '345
                Response.Write ( "&bbstop1=0&return_url=" ) '345
                Response.Write ( return_url ) '345
                Response.Write ( """><FONT COLOR=""green"">是</FONT></A> " & Chr ( 13 ) ) '345
                Response.Write ( "                " ) '346
            Else '346
            Response.Write ( vbCrLf )
                Response.Write ( "                <A HREF=""masterbbstop.aspx?id=" ) '347
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '347
                Response.Write ( "&bbstop1=1&return_url=" ) '347
                Response.Write ( return_url ) '347
                Response.Write ( """><FONT COLOR=""red"">否</FONT></A> " & Chr ( 13 ) ) '347
                Response.Write ( "                " ) '348
            End If '348
            Response.Write ( vbCrLf )
            Response.Write ( "              </td>" & Chr ( 13 ) ) '349
            Response.Write ( "              <td><div align=""center""> " & Chr ( 13 ) ) '350
            Response.Write ( "                  " ) '351
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "deleted" ) .Value) ) = 0 Then '351
            Response.Write ( vbCrLf )
                Response.Write ( "                  <A HREF=""del_sign.aspx?id=" ) '352
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '352
                Response.Write ( "&mode=1&kind=2&return_url=" ) '352
                Response.Write ( return_url ) '352
                Response.Write ( """><FONT COLOR=""green"">显示</FONT></A> " & Chr ( 13 ) ) '352
                Response.Write ( "                  " ) '353
            Else '353
            Response.Write ( vbCrLf )
                Response.Write ( "                  <A HREF=""del_sign.aspx?id=" ) '354
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '354
                Response.Write ( "&mode=0&kind=2&return_url=" ) '354
                Response.Write ( return_url ) '354
                Response.Write ( """><FONT COLOR=""red"">隐藏</FONT></A> " & Chr ( 13 ) ) '354
                Response.Write ( "                  " ) '355
            End If '355
            Response.Write ( vbCrLf )
            Response.Write ( "                </div></td>" & Chr ( 13 ) ) '356
            Response.Write ( "              <td > <p align=""center""><a href=""info_delete.aspx?id=" ) '357
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '357
            Response.Write ( "&filepath=" ) '357
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '357
            Response.Write ( "&bbs_img=" ) '357
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "bbs_img" ) .Value) ) '357
            Response.Write ( "&ptuser=" ) '357
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "name" ) .Value) ) '357
            Response.Write ( "&return_url=" ) '357
            Response.Write ( return_url ) '357
            Response.Write ( """ onclick=""return confirm('确实要删除吗？');"">删除</a></td>" & Chr ( 13 ) ) '357
            Response.Write ( "            </tr>" & Chr ( 13 ) ) '358
            rs.MoveNext ( ) '360
        Next '361
        rs.Close ( ) '362
        rs = Nothing '363
        Response.Write ( vbCrLf )
        Response.Write ( "            <tr bgcolor=""#FFFFFF"" class=""f12""> " & Chr ( 13 ) ) '365
        Response.Write ( "              <td height=""28"" colspan=""21""> <input name=""button"" type=""button"" onclick=""selectAll()"" value=""全选""> " & Chr ( 13 ) ) '366
        Response.Write ( "                <input name=""button"" type=""button"" onclick=""selectRev()"" value=""反选""> " & Chr ( 13 ) ) '367
        Response.Write ( "                <input name=""button"" type=""button"" onclick=""selectAll();selectRev()"" value=""全不选""> " & Chr ( 13 ) ) '368
        Response.Write ( "                <input name=""button"" type=""button"" onclick=""select_pl_submit('选择删除')"" value=""将所选删除"" " ) '369
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '369
            Response.Write ( "disabled" ) '369
        End If '369
        Response.Write ( "> " & Chr ( 13 ) ) '369
        Response.Write ( "                <input name=""button"" type=""button"" onclick=""select_pl_submit('首页显示')"" value=""将所选首页显示"" " ) '370
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '370
            Response.Write ( "disabled" ) '370
        End If '370
        Response.Write ( ">" & Chr ( 13 ) ) '370
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<input name=""button"" type=""button"" onclick=""select_pl_submit('精彩话题')"" value=""将所选设为精彩话题"" " ) '371
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '371
            Response.Write ( "disabled" ) '371
        End If '371
        Response.Write ( ">" & Chr ( 13 ) ) '371
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<input name=""button"" type=""button"" onclick=""select_pl_submit('推荐话题')"" value=""将所选设为推荐话题"" " ) '372
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '372
            Response.Write ( "disabled" ) '372
        End If '372
        Response.Write ( ">" & Chr ( 13 ) ) '372
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  </td>" & Chr ( 13 ) ) '373
        Response.Write ( "            </tr>" & Chr ( 13 ) ) '374
        Response.Write ( "            <tr bgcolor=""#FFFFFF"" class=""f12""> " & Chr ( 13 ) ) '375
        Response.Write ( "              <td height=""28"" colspan=""21"">" & Chr ( 13 ) ) '376
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "    <input name=""button"" type=""button"" onclick=""select_pl_submit('取消首页显示')"" value=""将所选取消首页显示"" " ) '377
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '377
            Response.Write ( "disabled" ) '377
        End If '377
        Response.Write ( ">" & Chr ( 13 ) ) '377
        Response.Write ( "                <input name=""button"" type=""button"" onclick=""select_pl_submit('取消精彩话题')"" value=""将所选取消精彩话题"" " ) '378
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '378
            Response.Write ( "disabled" ) '378