main.aspx.vb

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

        Response.Write ( "" & Chr ( 9 ) & "<ul class=""tabs"">" & Chr ( 13 ) ) '426
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<li " ) '427
        Response.Write ( allcss ) '427
        Response.Write ( "><a href=""" ) '427
        Response.Write ( mainurl ) '427
        Response.Write ( """>全部</a></li>" & Chr ( 13 ) ) '427
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<li " ) '428
        Response.Write ( tjcss ) '428
        Response.Write ( "><a href=""main.aspx?layer_1=" ) '428
        Response.Write ( layer_1 ) '428
        Response.Write ( "&layer_2=" ) '428
        Response.Write ( layer_2 ) '428
        Response.Write ( "&sign=1"">推荐</a></li>" & Chr ( 13 ) ) '428
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<li " ) '429
        Response.Write ( jhcss ) '429
        Response.Write ( "><a href=""main.aspx?layer_1=" ) '429
        Response.Write ( layer_1 ) '429
        Response.Write ( "&layer_2=" ) '429
        Response.Write ( layer_2 ) '429
        Response.Write ( "&huati=1"">精华</a></li>" & Chr ( 13 ) ) '429
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<li " ) '430
        Response.Write ( flagcss ) '430
        Response.Write ( "><a href=""main.aspx?layer_1=" ) '430
        Response.Write ( layer_1 ) '430
        Response.Write ( "&layer_2=" ) '430
        Response.Write ( layer_2 ) '430
        Response.Write ( "&flag=1"">投票</a></li>" & Chr ( 13 ) ) '430
        Response.Write ( "        <li " ) '431
        Response.Write ( fdcss ) '431
        Response.Write ( "><a href=""main.aspx?layer_1=" ) '431
        Response.Write ( layer_1 ) '431
        Response.Write ( "&layer_2=" ) '431
        Response.Write ( layer_2 ) '431
        Response.Write ( "&flag=2"">活动</a></li>" & Chr ( 13 ) ) '431
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<li " ) '432
        Response.Write ( xscss ) '432
        Response.Write ( "><a href=""main.aspx?layer_1=" ) '432
        Response.Write ( layer_1 ) '432
        Response.Write ( "&layer_2=" ) '432
        Response.Write ( layer_2 ) '432
        Response.Write ( "&flag=5"">提问</a></li>" & Chr ( 13 ) ) '432
        Response.Write ( "" & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '433
        Response.Write ( " </div>" & Chr ( 13 ) ) '434
        Response.Write ( "</div>" & Chr ( 13 ) ) '435
        Response.Write ( "<table width=""99%"" border=0 cellpadding=2 cellspacing=0 class=""listborder"" align=""center"">" & Chr ( 13 ) ) '436
        Response.Write ( "  <tbody>" & Chr ( 13 ) ) '437
        Response.Write ( "    <tr align=middle class=f12> " & Chr ( 13 ) ) '438
        Response.Write ( "      <td width=""6%"" height=""28"" class=""loopborder1"">状态</td>" & Chr ( 13 ) ) '439
        Response.Write ( "      <td width=""52%"" class=""loopborder1"">主题</td>" & Chr ( 13 ) ) '440
        Response.Write ( "      <td width=""9%"" class=""loopborder1"">作者</td>" & Chr ( 13 ) ) '441
        Response.Write ( "      <td width=""10%"" class=""loopborder1"">回复/查看</td>" & Chr ( 13 ) ) '442
        Response.Write ( "      <td width=""23%"" class=""loopborder1"">最后更新</td>" & Chr ( 13 ) ) '443
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '444
        Response.Write ( "    <!--<script src=""bbsad.js""></script>-->" & Chr ( 13 ) ) '445
        Response.Write ( "    " ) '446
        If Not cus.EOF Then '447
            For i = 0 To Val ( wzrep ) - 1 '449
            If cus.EOF Then
Exit For
End If
    '450
                bgColor = "#FFFFFF" '451
            If AspToAspX_CheckDBNull ( i Mod 2 ) = 0 Then
bgColor = "#DFEFFF"
End If
    '452
                indbdate = cus ( "redate" ) '453
                year1 = right ( Year ( indbdate ) , 2 ) '454
                month1 = right ( "0" & Month ( indbdate ) , 2 ) '455
                day1 = right ( "0" & Day ( indbdate ) , 2 ) '456
                hour1 = right ( "0" & hour ( indbdate ) , 2 ) '457
                minute1 = right ( "0" & minute ( indbdate ) , 2 ) '458
                indbdate = year1 & "-" & month1 & "-" & day1 & " " & hour1 & ":" & minute1 '459
                titlecolor = cus ( "titlecolor" ) '460
                bbstitle = cus ( "title" ) '461
                If AspToAspX_CheckDBNull ( titlecolor ) < > EmptyString.Value Then '462
                    title = "<font color=" & titlecolor & ">" & bbstitle & "</font>" '463
                Else '464
                    title = bbstitle '465
                End If '466
                reinfo = cus ( "reinfo" ) '467
                If AspToAspX_CheckDBNull ( InStr ( reinfo , "||" ) ) > 0 Then '468
                    rearr = AspToAspX_Split ( reinfo , "||" ) '469
                    arrnum = UBound ( rearr ) '470
                    reinfo = rearr ( arrnum ) '471
                End If '472
                If AspToAspX_CheckDBNull ( reinfo ) < > EmptyString.Value And AspToAspX_CheckDBNull ( InStr ( reinfo , "," ) ) > 0 Then '473
                    reinfo = replace ( reinfo , "|" , "" ) '474
                    rearr = AspToAspX_Split ( reinfo , "," ) '475
                    replydate = rearr ( 0 ) '476
                    replyuser = " <font color=red>|</font> <a class=map href=ftbbsmyinfo.aspx?ftbbsuser=" & rearr ( 1 ) & ">" & rearr ( 1 ) & "</a>" '477
                    replydate = "<font color=#666666>" & right ( Year ( replydate ) , 2 ) & "-" & Month ( replydate ) & "-" & Day ( replydate ) & " " & hour ( replydate ) & ":" & minute ( replydate ) & "</font>" '478
                Else '479
                    replydate = "<font color=#666666>" & indbdate & "</font>" '480
                    replyuser = "" '481
                End If '482
                Response.Write ( vbCrLf )
                Response.Write ( "    <tr align=middle> " & Chr ( 13 ) ) '484
                Response.Write ( "      <td width=""6%"" height=""28"" class=""loopborder1""> " & Chr ( 13 ) ) '485
                Response.Write ( "        " ) '486
                If AspToAspX_CheckDBNull ( cus ( "bbstop1" ) ) = "1" Then '487
                    Response.Write ( "<a class=f14 href=" & cus ( "htmfilename" ) & " target=""_blank""><img src=""images/ding.gif"" alt=""总固顶的主题&#xA;点击开新窗口浏览"" width=""15"" height=""13"" border=""0"" align=""absmiddle"" board=0></a>" ) '488
                ElseIf AspToAspX_CheckDBNull ( cus ( "bbstop" ) ) = "1"Then '489
                    Response.Write ( "<a class=f14 href=" & cus ( "htmfilename" ) & " target=""_blank""><img src=""images/blueding.gif"" width=""15"" height=""13"" align=""absmiddle"" border=""0"" alt=""分论坛固顶的主题&#xA;点击开新窗口浏览""></a>" ) '490
                ElseIf AspToAspX_CheckDBNull ( cus ( "sign" ) ) = "1"Then '491
                    Response.Write ( "<a class=f14 href=" & cus ( "htmfilename" ) & " target=""_blank""><img src=""images/jian.gif"" width=""15"" height=""13"" align=""absmiddle"" border=""0"" alt=""版主推荐的话题&#xA;点击开新窗口浏览""></a>" ) '492
                ElseIf AspToAspX_CheckDBNull ( cus ( "huati" ) ) = "1"Then '493
                    Response.Write ( "<a class=f14 href=" & cus ( "htmfilename" ) & " target=""_blank""><img src=""images/jing.gif"" width=""15"" height=""13"" align=""absmiddle"" border=""0"" alt=""版主精选的话题&#xA;点击开新窗口浏览""></a>" ) '494
                ElseIf AspToAspX_CheckDBNull ( cus ( "P_display" ) ) = "0"Then '495
                    Response.Write ( "<a class=f14 href=" & cus ( "htmfilename" ) & " target=""_blank""><img src=""images/suo.gif"" width=""12"" height=""13"" align=""absmiddle"" border=""0"" alt=""分论坛固顶的主题&#xA;点击开新窗口浏览""></a>" ) '496
                ElseIf AspToAspX_CheckDBNull ( cus ( "flag" ) ) = "1"Then '497
                    Response.Write ( "<a class=f14 href=" & cus ( "htmfilename" ) & " target=""_blank""><img src=""images/poll.gif"" width=""15"" height=""16"" align=""absmiddle"" border=""0"" alt=""投票主题&#xA;点击开新窗口浏览""></a>" ) '498
                ElseIf AspToAspX_CheckDBNull ( cus ( "hit" ) ) > = 500 Then '499
                    Response.Write ( "<a class=f14 href=" & cus ( "htmfilename" ) & " target=""_blank""><img src=""images/hotpost.gif"" width=""14"" height=""16"" align=""absmiddle"" border=""0"" alt=""热门的话题&#xA;点击开新窗口浏览""></a>" ) '500
                Else '501
                    Response.Write ( "<a class=f14 href=" & cus ( "htmfilename" ) & " target=""_blank""><img src=""images/normal.gif"" width=""14"" height=""16"" align=""absmiddle"" border=""0"" alt=""开放的话题&#xA;点击开新窗口浏览""></a>" ) '502
                End If '503
                Response.Write ( vbCrLf )
                Response.Write ( "      </td>" & Chr ( 13 ) ) '505
                Response.Write ( "      <td width=""52%""  align=left valign=""middle"" class=""loopborder2"">" & Chr ( 13 ) ) '506
                Response.Write ( "        " ) '507
                If AspToAspX_CheckDBNull ( cus ( "P_display" ) ) < > "0" And AspToAspX_CheckDBNull ( cus ( "bbstop" ) ) < > 1 And AspToAspX_CheckDBNull ( cus ( "sign" ) ) < > "1" And AspToAspX_CheckDBNull ( cus ( "huati" ) ) < > "1" And AspToAspX_CheckDBNull ( cus ( "zhiye" ) ) < > "10" And AspToAspX_CheckDBNull ( cus ( "picture" ) ) < > EmptyString.Value Then '507
                Response.Write ( vbCrLf )
                    Response.Write ( "        <img src=""images/" ) '508
                    Response.Write ( cus ( "picture" ) ) '508
                    Response.Write ( """ width=""19"" height=""19"" align=""absmiddle""> " & Chr ( 13 ) ) '508
                    Response.Write ( "        " ) '509
                End If '509
                Response.Write ( vbCrLf )
                Response.Write ( "        <a class=f14 href=""" ) '510
                Response.Write ( cus ( "htmfilename" ) ) '510
                Response.Write ( """ title=""" ) '510
                Response.Write ( cus ( "title" ) ) '510
                Response.Write ( "&#xA;作者:" ) '510
                Response.Write ( cus ( "user_id" ) ) '510
                Response.Write ( "&#xA;发表于:" ) '510
                Response.Write ( indbdate ) '510
                Response.Write ( """ target=""_blank"">" ) '510
                Response.Write ( title ) '510
                Response.Write ( "</a> " & Chr ( 13 ) ) '510
                Response.Write ( "        " ) '511
            If ( AspToAspX_CheckDBNull ( cus ( "xsreid" ) ) = 0 Or AspToAspX_CheckDBNull ( cus ( "xsreid" ) ) = EmptyString.Value ) And AspToAspX_CheckDBNull ( cus ( "flag" ) ) = 5 Then
Response.Write ( "<font color=#666666>[悬赏" & cus ( "xsjf" ) & "分]</font>" )
End If
    '512
        If AspToAspX_CheckDBNull ( cus ( "xsreid" ) ) < > 0 And AspToAspX_CheckDBNull ( cus ( "xsreid" ) ) < > EmptyString.Value Then
Response.Write ( "<font color=green>[已解决]</font>" )
End If
    '513
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '515
            If AspToAspX_CheckDBNull ( cus ( "bbs_img_display" ) ) = 1 Then '516
                Response.Write ( "<img src=""images/picflag.gif"" width=""13"" height=""13"" align=""absmiddle"" alt=""附带图片""> " ) '517
            ElseIf AspToAspX_CheckDBNull ( cus ( "bbs_img_display" ) ) = 3 Then '518
                Response.Write ( "<img src=""images/file.gif"" align=""absmiddle"" alt=""附件""> " ) '519
            End If '520
            pagefilename = AspToAspX_Split ( cus ( "htmfilename" ) , "." ) ( 0 ) '521
            htm_ext = "." & AspToAspX_Split ( cus ( "htmfilename" ) , "." ) ( 1 ) '522
            pagenum = Application ( "FTBBSMB" ) ( 6 , 0 ) '523
            k = cus ( "rep" ) / pagenum '524
            If AspToAspX_Int ( k ) = k Then '525
                page = k '526
            Else '527
                page = AspToAspX_Int ( k ) + 1 '528
            End If '529
            If AspToAspX_CheckDBNull ( page ) > 1 Then '530
                For z = 1 To Val ( page ) '531
                    If AspToAspX_CheckDBNull ( z ) = 1 Then '532
                        pagehtm = pagefilename & htm_ext '533
                    Else '534
                        pagehtm = pagefilename & "_" & z & htm_ext '535
                    End If '536
                    If AspToAspX_CheckDBNull ( z ) > = 4 And AspToAspX_CheckDBNull ( page ) > 6 Then '537
                        pagehtm = pagefilename & "_" & page & htm_ext '538
                        Response.Write ( "..<a class=""mainouttd"" href=" & pagehtm & " target=""_blank"">" & page & "</a>" ) '539
                        Exit For '540
                    End If '541
                    If AspToAspX_CheckDBNull ( z ) = 1 Then '542
                        Response.Write ( "<a class=""mainouttd"" href=" & pagehtm & " target=""_blank"">" & z & "</a>" ) '543
                    Else '544
                        Response.Write ( "<a class=""mainouttd"" href=" & pagehtm & " target=""_blank"">" & z & "</a>" ) '545
                    End If '546
                Next '547
            End If '548
            Response.Write ( vbCrLf )
            Response.Write ( "      </td>" & Chr ( 13 ) ) '550
            Response.Write ( "      <td width=""9%"" class=""loopborder1""><a href=""ftbbsmyinfo.aspx?ftbbsuser=" ) '551
            Response.Write ( cus ( "user_id" ) ) '551
            Response.Write ( """>" ) '551
            Response.Write ( cus ( "user_id" ) ) '551
            Response.Write ( "</a></td>" & Chr ( 13 ) ) '551
            Response.Write ( "      <td class=""loopborder3""> " & Chr ( 13 ) ) '552
            Response.Write ( "        " ) '553
            Response.Write ( cus ( "rep" ) ) '553
            Response.Write ( "/" ) '553
            Response.Write ( cus ( "hit" ) ) '553
            Response.Write ( vbCrLf )
            Response.Write ( "      </td>" & Chr ( 13 ) ) '554
            Response.Write ( "      <td width=""25%"" class=""loopborder1""><div align=""left"">&nbsp; " & Chr ( 13 ) ) '555
            Response.Write ( "          " ) '556
            Response.Write ( replydate & replyuser ) '556
            Response.Write ( vbCrLf )
            Response.Write ( "        </div></td>" & Chr ( 13 ) ) '557
            Response.Write ( "    </tr>" & Chr ( 13 ) ) '558
            Response.Write ( "    " ) '559
            cus.MoveNext ( ) '560
        Next '561
        Response.Write ( vbCrLf )
        Response.Write ( "    <tr valign=""top""> " & Chr ( 13 ) ) '563
        Response.Write ( "      <td colspan=""6"" class=""maintbtr1""> <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '564
        Response.Write ( "          <tr> " & Chr ( 13 ) ) '565
        Response.Write ( "            <td align=""left"" height=""26"" class=""f12""> " & Chr ( 13 ) ) '566
        Response.Write ( "              " ) '567
        Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '567
        Response.Write ( vbCrLf )
        Response.Write ( "            </td>" & Chr ( 13 ) ) '568
        Response.Write ( "            <td align=""right"" width=""200"" class=""f12""><script src=""ftbbsdh.js""></script></td>" & Chr ( 13 ) ) '569
        Response.Write ( "          </tr>" & Chr ( 13 ) ) '570
        Response.Write ( "        </table></td>" & Chr ( 13 ) ) '571
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '572
        Response.Write ( "    " ) '573
    Else '573
    Response.Write ( vbCrLf )
        Response.Write ( "    <tr class=""maintbtr3""> " & Chr ( 13 ) ) '574
        Response.Write ( "      <td colspan=6 align=center height=25 class=""f12""> 欢迎到本论坛发表贴子！ </td>" & Chr ( 13 ) ) '575
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '576
        Response.Write ( "    " ) '577
    End If '577