index.aspx.vb

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

                title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '364
                Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li class=""topth"">·<a title=""" ) '366
                Response.Write ( title ) '366
                Response.Write ( """ href=""" ) '366
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '366
                Response.Write ( """ target=""_blank"">" ) '366
                Response.Write ( title ) '366
                Response.Write ( "</a></li>" & Chr ( 13 ) ) '366
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '367
                rs.MoveNext ( ) '368
            Loop '369
            rs.Close ( ) '370
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '372
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '373
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '374
        End If '375
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '377
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""CenterAndRight"">" & Chr ( 13 ) ) '378
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""Content"">" & Chr ( 13 ) ) '379
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '380
        sql = "select top 1 BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Name from " & ft & "BBS_Cate where deleted=0 and BBS_Cate_ID='A_3' order by totop asc" '381
        rsd = New ADODB.Recordset ( ) '382
        rsd.Open ( sql , conn , 3 , 1 ) '383
        If Not rsd.EOF Then '384
            BBS_Cate_Name = AspToAspX_CheckDBNull(rsd.Fields ( "BBS_Cate_Name" ) .Value) '385
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><img alt="""" src=""blogimages/green_arrow.gif"" width=""12"" height=""17"" align=""middle"" /><a href=""default.aspx?a=A_3"">" ) '387
            Response.Write ( BBS_Cate_Name ) '387
            Response.Write ( "</a></h1>" & Chr ( 13 ) ) '387
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '388
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '389
            sql = "select top 10 title,htmfilename from " & ft & "bbstitle where " & strqs & " deleted=0 and BoardID_1='A_3' order by redate desc" '390
            rs = New ADODB.Recordset ( ) '391
            rs.Open ( sql , conn , 3 , 1 ) '392
            Do While Not rs.EOF '393
                title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '394
                Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li class=""topth""> <a title=""" ) '396
                Response.Write ( title ) '396
                Response.Write ( """ href=""" ) '396
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '396
                Response.Write ( """ target=""_blank"">" ) '396
                Response.Write ( title ) '396
                Response.Write ( "</a></li>" & Chr ( 13 ) ) '396
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '397
                rs.MoveNext ( ) '398
            Loop '399
            rs.Close ( ) '400
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '402
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '403
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '404
        End If '405
        rsd.Close ( ) '406
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '408
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '409
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--精选图片导航区开始-->" & Chr ( 13 ) ) '410
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleBlock"">" & Chr ( 13 ) ) '411
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleNavCenter"">" & Chr ( 13 ) ) '412
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><img alt="""" src=""blogimages/left01.gif"" align=""middle"" /> 精选图片</h1>" & Chr ( 13 ) ) '413
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '414
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li>&nbsp;</li>" & Chr ( 13 ) ) '415
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '416
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h2><a href=""default.aspx?n=pic"" target=""_self""><img src=""blogimages/more3.gif"" alt="""" border=""0"" style=""padding-top:4px;"" /></a></h2>" & Chr ( 13 ) ) '417
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '418
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '419
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--精选图片导航区结束-->" & Chr ( 13 ) ) '420
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--精选图片开始-->" & Chr ( 13 ) ) '421
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div id=""NewlyPhotos"" class=""width780"">" & Chr ( 13 ) ) '422
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '423
        sql = "select top 6 " & ft & "bbstitle.title," & ft & "ftbbs_upload.upload_pic," & ft & "ftbbs_upload.upload_htm," & ft & "ftbbs_upload.userid from " & ft & "bbstitle," & ft & "ftbbs_upload where " & ft & "bbstitle.htmfilename=" & ft & "ftbbs_upload.upload_htm and " & ft & "bbstitle.deleted=0 and " & ft & "bbstitle.flag=0 and " & ft & "ftbbs_upload.sign=0 and " & ft & "ftbbs_upload.bbs_blog_type=0 and (" & ft & "ftbbs_upload.upload_ext='jpg' or " & ft & "ftbbs_upload.upload_ext='gif') order by " & ft & "bbstitle.id desc" '424
        rs = New ADODB.Recordset ( ) '425
        rs.Open ( sql , conn , 3 , 1 ) '426
        If Not rs.EOF Then '427
            picnum = rs.RecordCount '428
            For i = 0 To Val ( rs.RecordCount ) '429
            If AspToAspX_CheckDBNull ( i ) > = 6 Or rs.EOF Then
Exit For
End If
    '430
                photo_name = AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) '431
                Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<h1><a href=""" ) '433
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_htm" ) .Value) ) '433
                Response.Write ( """><img src=""" ) '433
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_pic" ) .Value) ) '433
                Response.Write ( """ alt=""" ) '433
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) '433
                Response.Write ( """ width=""110"" height=""110"" border=""0"" /></a></h1>" & Chr ( 13 ) ) '433
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '434
                rs.MoveNext ( ) '435
            Next '436
        End If '437
        rs.Close ( ) '438
        rs = Nothing '439
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '441
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--开始-->" & Chr ( 13 ) ) '442
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '443
        BBS_Cate_Name = "" '444
        sql = "select top 1 BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Name from " & ft & "BBS_Cate where deleted=0 and BBS_Cate_ID='A_4' order by totop asc" '445
        rsd = New ADODB.Recordset ( ) '446
        rsd.Open ( sql , conn , 3 , 1 ) '447
        If Not rsd.EOF Then '448
            BBS_Cate_Name = AspToAspX_CheckDBNull(rsd.Fields ( "BBS_Cate_Name" ) .Value) '449
        End If '450
        rsd.Close ( ) '451
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""CommendRead"">" & Chr ( 13 ) ) '453
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""Left"">" & Chr ( 13 ) ) '454
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h3><img alt="""" src=""blogimages/icon_quote.gif"" align=""middle"" /><font color=""#000000""><a href=""default.aspx?a=A_4"">" ) '455
        Response.Write ( BBS_Cate_Name ) '455
        Response.Write ( "</a></font></h3><div>" & Chr ( 13 ) ) '455
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '456
        sql = "select top 10 title,htmfilename from " & ft & "bbstitle where " & strqs & " deleted=0 and BoardID_1='A_4' order by redate desc" '457
        rs = New ADODB.Recordset ( ) '458
        rs.Open ( sql , conn , 3 , 1 ) '459
        k = 0 '460
        Do While Not rs.EOF '461
        If AspToAspX_CheckDBNull ( k ) > 9 Then
Exit Do
End If
    '462
            title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '463
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h2> ·<a title=""" ) '465
            Response.Write ( title ) '465
            Response.Write ( """ href=""" ) '465
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '465
            Response.Write ( """ target=""_blank"">" ) '465
            Response.Write ( title ) '465
            Response.Write ( "</a></h2>" & Chr ( 13 ) ) '465
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '466
            k = k + 1 '467
            rs.MoveNext ( ) '468
        Loop '469
        rs.Close ( ) '470
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '472
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '473
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""CenterAndRight"">" & Chr ( 13 ) ) '474
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""Content"">" & Chr ( 13 ) ) '475
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '476
        BBS_Cate_Name = "" '477
        sql = "select top 1 BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Name from " & ft & "BBS_Cate where deleted=0 and BBS_Cate_ID='A_5' order by totop asc" '478
        rsd = New ADODB.Recordset ( ) '479
        rsd.Open ( sql , conn , 3 , 1 ) '480
        If Not rsd.EOF Then '481
            BBS_Cate_Name = AspToAspX_CheckDBNull(rsd.Fields ( "BBS_Cate_Name" ) .Value) '482
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><img alt="""" src=""blogimages/green_arrow.gif"" width=""12"" height=""17"" align=""middle"" /><a href=""default.aspx?a=A_5"">" ) '484
            Response.Write ( BBS_Cate_Name ) '484
            Response.Write ( "</a></h1>" & Chr ( 13 ) ) '484
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '485
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '486
            sql = "select top 10 title,htmfilename from " & ft & "bbstitle where " & strqs & " deleted=0 and BoardID_1='A_5' order by redate desc" '487
            rs = New ADODB.Recordset ( ) '488
            rs.Open ( sql , conn , 3 , 1 ) '489
            Do While Not rs.EOF '490
                title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '491
                Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li class=""topth"">·<a title=""" ) '493
                Response.Write ( title ) '493
                Response.Write ( """ href=""" ) '493
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '493
                Response.Write ( """ target=""_blank"">" ) '493
                Response.Write ( title ) '493
                Response.Write ( "</a></li>" & Chr ( 13 ) ) '493
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '494
                rs.MoveNext ( ) '495
            Loop '496
            rs.Close ( ) '497
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '499
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '500
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '501
        End If '502
        rsd.Close ( ) '503
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '505
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""CenterAndRight"">" & Chr ( 13 ) ) '506
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""Content"">" & Chr ( 13 ) ) '507
        Response.Write ( "        " ) '508
        BBS_Cate_Name = "" '509