main.aspx.vb

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

        Response.Write ( "          <tr> " & Chr ( 13 ) ) '287
        Response.Write ( "            <td height=""25"" class=""f12bg"">&nbsp;" ) '288
        Response.Write ( userinfo ) '288
        Response.Write ( "</td>" & Chr ( 13 ) ) '288
        Response.Write ( "          </tr>" & Chr ( 13 ) ) '289
        Response.Write ( "          <tr>" & Chr ( 13 ) ) '290
        Response.Write ( "            <td height=""26"" class=""maintbtr3""><table width=""100%"" border=0 cellpadding=0 cellspacing=0>" & Chr ( 13 ) ) '291
        Response.Write ( "                <tbody>" & Chr ( 13 ) ) '292
        Response.Write ( "                  <tr> " & Chr ( 13 ) ) '293
        Response.Write ( "                    <td width=""60%"" class=f12><img src=""images/bbs_t1.gif"" align=""absmiddle""> " & Chr ( 13 ) ) '294
        Response.Write ( "                      " ) '295
        If AspToAspX_CheckDBNull ( layer_1 ) < > EmptyString.Value Then '295
        Response.Write ( vbCrLf )
            Response.Write ( "                      <a href=""" ) '296
            Response.Write ( homepage ) '296
            Response.Write ( """>论坛首页</a>>><a href=""main.aspx?layer_1=" ) '296
            Response.Write ( layer_1 ) '296
            Response.Write ( "&qs=" ) '296
            Response.Write ( qs ) '296
            Response.Write ( """>" ) '296
            Response.Write ( BBS_Cate_Name_1 ) '296
            Response.Write ( "</a> " & Chr ( 13 ) ) '296
            Response.Write ( "                      " ) '297
            If AspToAspX_CheckDBNull ( layer_2 ) < > EmptyString.Value Then '297
            Response.Write ( vbCrLf )
                Response.Write ( "                      >> " ) '298
                Response.Write ( BBS_Cate_Name_2 ) '298
                Response.Write ( " " & Chr ( 13 ) ) '298
                Response.Write ( "                      " ) '299
            End If '299
            Response.Write ( vbCrLf )
            Response.Write ( "                      " ) '300
        Else '300
        Response.Write ( vbCrLf )
            Response.Write ( "                      <a href=""" ) '301
            Response.Write ( homepage ) '301
            Response.Write ( """>论坛首页</a> " & Chr ( 13 ) ) '301
            Response.Write ( "                      " ) '302
        End If '302
        Response.Write ( vbCrLf )
        Response.Write ( "                      " ) '303
        If AspToAspX_CheckDBNull ( BBS_Cate_Name_1 ) = EmptyString.Value Then '304
            stats = "论坛首页" '305
        Else '306
            If AspToAspX_CheckDBNull ( BBS_Cate_Name_2 ) = EmptyString.Value Then '307
                stats = BBS_Cate_Name_1 '308
            Else '309
                stats = BBS_Cate_Name_2 '310
            End If '311
        End If '312
        Response.Write ( vbCrLf )
        Response.Write ( "                    </td>" & Chr ( 13 ) ) '314
        Response.Write ( "                    <td width=""27%"" class=f12><div align=""right"">" ) '315
        Response.Write ( replace ( BBS_Cate_Manager_Name , "|" , "," ) ) '315
        Response.Write ( " " & Chr ( 13 ) ) '315
        Response.Write ( "                      </div></td>" & Chr ( 13 ) ) '316
        Response.Write ( "                    <td width=""13%"" class=f12>" & Chr ( 13 ) ) '317
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  <div align=""right""><a href=""bz.aspx"">版主工作评定</a></div></td>" & Chr ( 13 ) ) '318
        Response.Write ( "                  </tr>" & Chr ( 13 ) ) '319
        Response.Write ( "                </tbody>" & Chr ( 13 ) ) '320
        Response.Write ( "              </table></td>" & Chr ( 13 ) ) '321
        Response.Write ( "          </tr>" & Chr ( 13 ) ) '322
        Response.Write ( "        </tbody>" & Chr ( 13 ) ) '323
        Response.Write ( "      </table>" & Chr ( 13 ) ) '324
        Response.Write ( "<script src=""listad.js""></script> " & Chr ( 13 ) ) '325
        If AspToAspX_CheckDBNull ( BBS_Cate_Board ) < > EmptyString.Value Then '326
            Response.Write ( "" & Chr ( 9 ) & "  " & Chr ( 13 ) ) '326
            Response.Write ( "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"">" & Chr ( 13 ) ) '327
            Response.Write ( "  <tr> " & Chr ( 13 ) ) '328
            Response.Write ( "    <td height=2><spacer height=""2"" type=""block""></td>" & Chr ( 13 ) ) '329
            Response.Write ( "  </tr>" & Chr ( 13 ) ) '330
            Response.Write ( "</table>" & Chr ( 13 ) ) '331
            Response.Write ( "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""maintbbg"">" & Chr ( 13 ) ) '332
            Response.Write ( "  <tr> " & Chr ( 13 ) ) '333
            Response.Write ( "    <td class=""maintbtr3""><table width=""100%"" border=""0"" cellspacing=""3"" cellpadding=""3"">" & Chr ( 13 ) ) '334
            Response.Write ( "        <tr> " & Chr ( 13 ) ) '335
            Response.Write ( "         <td class=""maintbtr2""><font color=""#FF3333"">版 规 和 导 读:</font></td>" & Chr ( 13 ) ) '336
            Response.Write ( "        </tr>" & Chr ( 13 ) ) '337
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<tr> " & Chr ( 13 ) ) '338
            Response.Write ( "           <td class=""maintbtr3"" style="" LINE-HEIGHT: 160%"">" ) '339
            Response.Write ( UBBCode ( BBS_Cate_Board ) ) '339
            Response.Write ( "</td>" & Chr ( 13 ) ) '339
            Response.Write ( "        </tr>" & Chr ( 13 ) ) '340
            Response.Write ( "      </table></td>" & Chr ( 13 ) ) '341
            Response.Write ( "  </tr>" & Chr ( 13 ) ) '342
            Response.Write ( "</table>" & Chr ( 13 ) ) '343
        End If '344
        Response.Write ( vbCrLf )
        Response.Write ( "      <table cellspacing=0 cellpadding=0 width=""100%"" border=0>" & Chr ( 13 ) ) '345
        Response.Write ( "        <tbody> " & Chr ( 13 ) ) '346
        Response.Write ( "        <tr> " & Chr ( 13 ) ) '347
        Response.Write ( "            <td width=""30%"" height=""35""><a href=""fbht.aspx?layer_1=" ) '348
        Response.Write ( Request ( "layer_1" ) ) '348
        Response.Write ( "&layer_2=" ) '348
        Response.Write ( Request ( "layer_2" ) ) '348
        Response.Write ( """><img src=""images/btn_post.gif"" width=""61"" height=""21"" border=""0"" align=""absmiddle""></a>&nbsp;<a href=""bbspoll.aspx?layer_1=" ) '348
        Response.Write ( Request ( "layer_1" ) ) '348
        Response.Write ( "&layer_2=" ) '348
        Response.Write ( Request ( "layer_2" ) ) '348
        Response.Write ( """><img src=""images/btn_poll.gif"" width=""61"" height=""21"" border=""0"" align=""absmiddle""></a>&nbsp;<a href=""fbht.aspx?layer_1=" ) '348
        Response.Write ( Request ( "layer_1" ) ) '348
        Response.Write ( "&layer_2=" ) '348
        Response.Write ( Request ( "layer_2" ) ) '348
        Response.Write ( "&fd=5""><img src=""images/btn_xspost.gif"" width=""61"" height=""21"" border=""0"" align=""absmiddle""></a>&nbsp;<a href=""fbht.aspx?layer_1=" ) '348
        Response.Write ( Request ( "layer_1" ) ) '348
        Response.Write ( "&layer_2=" ) '348
        Response.Write ( Request ( "layer_2" ) ) '348
        Response.Write ( "&fd=Y""><img src=""images/fd_add.gif"" width=""61"" height=""21"" border=""0"" align=""absmiddle""></a></td>" & Chr ( 13 ) ) '348
        Response.Write ( "          <FORM METHOD=POST ACTION=""main.aspx"" onsubmit=""return check_search(this)"">" & Chr ( 13 ) ) '349
        Response.Write ( "              <td width=""50%"" align=right valign=""middle""> " & Chr ( 13 ) ) '350
        Response.Write ( "                <div align=""right""> " & Chr ( 13 ) ) '351
        Response.Write ( "                  <div class=""f12""> " & Chr ( 13 ) ) '352
        Response.Write ( "                    " ) '353
        If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = 1 Then '353
        Response.Write ( vbCrLf )
            Response.Write ( "                    <a href=""default.aspx?a=" ) '354
            Response.Write ( layer_1 ) '354
            Response.Write ( "&b=" ) '354
            Response.Write ( layer_2 ) '354
            Response.Write ( "&qs=" ) '354
            Response.Write ( qs ) '354
            Response.Write ( "&ft=0"" target=""_top"">框架结构浏览</a> " & Chr ( 13 ) ) '354
            Response.Write ( "                    " ) '355
        Else '355
        Response.Write ( vbCrLf )
            Response.Write ( "                    <a href=""default.aspx?a=" ) '356
            Response.Write ( layer_1 ) '356
            Response.Write ( "&b=" ) '356
            Response.Write ( layer_2 ) '356
            Response.Write ( "&qs=" ) '356
            Response.Write ( qs ) '356
            Response.Write ( "&ft=1"" target=""_top"">平板结构浏览</a> " & Chr ( 13 ) ) '356
            Response.Write ( "                    " ) '357
        End If '357
        Response.Write ( vbCrLf )
        Response.Write ( "                    风格选择:" & Chr ( 13 ) ) '358
        Response.Write ( "<select name=""select3""  style=""background-color:#ffffff;FONT-FAMILY: Arial; FONT-SIZE: 9pt; FONT-STYLE: normal; WIDTH: 85px"" size=1 onchange=""javascript:changeCssStyle();"">" & Chr ( 13 ) ) '359
        Response.Write ( "        <option  value=""1"" selected style=""color:#799AE1"">■标准风格</option>" & Chr ( 13 ) ) '360
        Response.Write ( "        <option value=""0"" style=""color:66ABD9"">■浅蓝风格</option>" & Chr ( 13 ) ) '361
        Response.Write ( "        <option value=""2"" style=""color:#FA71C0"">■女性风格</option>" & Chr ( 13 ) ) '362
        Response.Write ( "        <option value=""3"" style=""color:#D56BDE"">■紫色风格</option>" & Chr ( 13 ) ) '363
        Response.Write ( "        <option value=""4"" style=""color:#EC8205"">■黄色风格</option>" & Chr ( 13 ) ) '364
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<option value=""5"" style=""color:#529E20"">■绿色风格</option>" & Chr ( 13 ) ) '365
        Response.Write ( "      </select>" & Chr ( 13 ) ) '366
        Response.Write ( "" & Chr ( 9 ) & "  </div></div></td>" & Chr ( 13 ) ) '367
        Response.Write ( "          </form>" & Chr ( 13 ) ) '368
        Response.Write ( "          <form name=""jump"" method=""post"" action="""">     " & Chr ( 13 ) ) '369
        Response.Write ( "            <td width=""18%"" valign=""middle"" class=""f12""> " & Chr ( 13 ) ) '370
        Response.Write ( "              <div align=""right"">排序方式:<select name=""order_key"" style=""background-color:#ffffff;FONT-FAMILY: Arial; FONT-SIZE: 9pt; FONT-STYLE: normal; WIDTH: 75px"">" & Chr ( 13 ) ) '371
        Response.Write ( "                  <option value=""dateh"" " ) '372
        If AspToAspX_CheckDBNull ( order_key ) = "dateh" Then '372
            Response.Write ( "selected" ) '372
        End If '372
        Response.Write ( ">发帖时间 " & Chr ( 13 ) ) '372
        Response.Write ( "                  <option value=""redate"" " ) '373
        If AspToAspX_CheckDBNull ( order_key ) = "redate" Then '373
            Response.Write ( "selected" ) '373
        End If '373
        Response.Write ( " >跟帖时间 " & Chr ( 13 ) ) '373
        Response.Write ( "                  <option value=""hit"" " ) '374
        If AspToAspX_CheckDBNull ( order_key ) = "hit" Then '374
            Response.Write ( "selected" ) '374
        End If '374
        Response.Write ( ">浏览量 " & Chr ( 13 ) ) '374
        Response.Write ( "                  <option value=""rep"" " ) '375
        If AspToAspX_CheckDBNull ( order_key ) = "rep" Then '375
            Response.Write ( "selected" ) '375
        End If '375
        Response.Write ( ">跟帖数 " & Chr ( 13 ) ) '375
        Response.Write ( "                </select>" & Chr ( 13 ) ) '376
        Response.Write ( "                  <input name=""layer_2"" type=""hidden"" id=""layer_2"" value=""" ) '377
        Response.Write ( layer_2 ) '377
        Response.Write ( """>" & Chr ( 13 ) ) '377
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  <input name=""layer_1"" type=""hidden"" id=""layer_1"" value=""" ) '378
        Response.Write ( layer_1 ) '378
        Response.Write ( """>" & Chr ( 13 ) ) '378
        Response.Write ( "                </div>" & Chr ( 13 ) ) '379
        Response.Write ( "            </td>" & Chr ( 13 ) ) '380
        Response.Write ( "          </form>" & Chr ( 13 ) ) '381
        Response.Write ( "        </tr>" & Chr ( 13 ) ) '382
        Response.Write ( "        </tbody> " & Chr ( 13 ) ) '383
        Response.Write ( "      </table>" & Chr ( 13 ) ) '384
        Response.Write ( "      " & Chr ( 13 ) ) '385
        Response.Write ( "    </td>" & Chr ( 13 ) ) '386
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '387
        Response.Write ( "</table>" & Chr ( 13 ) ) '388
        Response.Write ( "<table width=""99%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" class=""pagenavborder"">" & Chr ( 13 ) ) '389
        Response.Write ( "    <tr class=""maintbtr1""> " & Chr ( 13 ) ) '390
        Response.Write ( "      <td align=""left"" height=""26"" class=""f12"">" ) '391
        Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '391
        Response.Write ( "</td>" & Chr ( 13 ) ) '391
        Response.Write ( "      <td align=""right"" width=""200"" class=""f12"">" & Chr ( 13 ) ) '392
        Response.Write ( "" & Chr ( 9 ) & "  <table cellspacing=1 cellpadding=1 style=""font-family: Tahoma, Verdana;BORDER: #8C8E7B 1px solid;background:#FFFFFF;"">" & Chr ( 13 ) ) '393
        Response.Write ( "        <tr> " & Chr ( 13 ) ) '394
        Response.Write ( "         <td style=""background:#FF6500;font-size: 7pt;color:#ffffff;"">&nbsp;XML&nbsp;</td>" & Chr ( 13 ) ) '395
        Response.Write ( "         <td style=""background:#8C8E7B;font-size: 7pt;"">&nbsp;<a href=""rss.aspx?layer_1=" ) '396
        Response.Write ( layer_1 ) '396
        Response.Write ( "&layer_2=" ) '396
        Response.Write ( layer_2 ) '396
        Response.Write ( """ target=""_blank"" title=""订阅本版面最新帖子""><font color='#ffffff'>RSS " & Chr ( 13 ) ) '396
        Response.Write ( "         2.0</font></a>&nbsp;</td>" & Chr ( 13 ) ) '397
        Response.Write ( "        </tr>" & Chr ( 13 ) ) '398
        Response.Write ( "     </table></td>" & Chr ( 13 ) ) '399
        Response.Write ( "   </tr>" & Chr ( 13 ) ) '400
        Response.Write ( "</table>" & Chr ( 13 ) ) '401
        If AspToAspX_CheckDBNull ( layer_1 ) < > EmptyString.Value And AspToAspX_CheckDBNull ( layer_2 ) = EmptyString.Value Then '403
            mainurl = "main.aspx?layer_1=" & layer_1 '404
        ElseIf AspToAspX_CheckDBNull ( layer_1 ) < > ""And AspToAspX_CheckDBNull ( layer_2 ) < > ""Then '405
            mainurl = "main.aspx?layer_1=" & layer_1 & "&layer_2=" & layer_2 '406
        Else '407
            mainurl = "main.aspx" '408
        End If '409
        If AspToAspX_CheckDBNull ( jh ) = "1" Then '410
            jhcss = "class=""current""" '411
        ElseIf AspToAspX_CheckDBNull ( tj ) = "1"Then '412
            tjcss = "class=""current""" '413
        ElseIf AspToAspX_CheckDBNull ( flag ) = "1"Then '414
            flagcss = "class=""current""" '415
        ElseIf AspToAspX_CheckDBNull ( flag ) = "2"Then '416
            fdcss = "class=""current""" '417
        ElseIf AspToAspX_CheckDBNull ( flag ) = "5"Then '418
            xscss = "class=""current""" '419
        Else '420
            allcss = "class=""current""" '421
        End If '422
        Response.Write ( vbCrLf )
        Response.Write ( "<div align=""center"">" & Chr ( 13 ) ) '424
        Response.Write ( " <div id=""postflag"">" & Chr ( 13 ) ) '425