ftbbshome.aspx.vb

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

            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""height: 22px;""></div>" & Chr ( 13 ) ) '292
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style="" margin:0px; padding:0px 0px 0px 15px; line-height:18px; height:98px;"">" & Chr ( 13 ) ) '293
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "欢迎" ) '294
            Response.Write ( getcookie ( "name" ) ) '294
            Response.Write ( "的到来 <br />" & Chr ( 13 ) ) '294
            Response.Write ( "      用户积分：" ) '295
            Response.Write ( AspToAspX_CheckDBNull(rsx.Fields ( "jingyuan" ) .Value) ) '295
            Response.Write ( " <br />" & Chr ( 13 ) ) '295
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "发贴数量：" ) '296
            Response.Write ( AspToAspX_CheckDBNull(rsx.Fields ( "postnum" ) .Value) ) '296
            Response.Write ( " <br />" & Chr ( 13 ) ) '296
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "登录次数：" ) '297
            Response.Write ( AspToAspX_CheckDBNull(rsx.Fields ( "clubuser_enter_count" ) .Value) ) '297
            Response.Write ( " <br />" & Chr ( 13 ) ) '297
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "注册时间：" ) '298
            Response.Write ( formatdatetime ( AspToAspX_CheckDBNull(rsx.Fields ( "clubuser_reg_date" ) .Value) , 2 ) ) '298
            Response.Write ( " " & Chr ( 13 ) ) '298
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '299
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""height: 1px;""></div>" & Chr ( 13 ) ) '300
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""LoginButton"">" & Chr ( 13 ) ) '301
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button class=""LoginButton"" name=""loginsubmit"" type=""button"" value=""true"" onClick=""javascript:window.location.href='default.aspx?n=userinfo'"" style=""width: 40px;"">修改</button>&nbsp;&nbsp;" & Chr ( 13 ) ) '302
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button class=""LoginButton"" name=""loginsubmit"" type=""button"" value=""true"" onClick=""javascript:window.location.href='main.aspx?exit=yes'"" style=""width: 40px;"">退出</button>" & Chr ( 13 ) ) '303
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '304
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '305
            rsx.Close ( ) '307
        End If '308
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""HotSpace""  id=""t_1"" name=""t_1"">" & Chr ( 13 ) ) '310
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h2>发贴排行榜</h2><h4><a class=""menu"" href=""javascript:show_tbl('t_',2,2)"" target=""_self"">版块排行榜</a></h4>" & Chr ( 13 ) ) '311
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '312
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '313
        sql = "select top 10 clubuser_id,clubuser_name,postnum from " & ft & "clubuser where payuser<>3 order by postnum desc" '314
        rs = New ADODB.Recordset ( ) '315
        rs.Open ( sql , conn , 3 , 1 ) '316
        m = 0 '317
        Do While Not rs.EOF '318
        If AspToAspX_CheckDBNull ( m ) > = 10 Then
Exit Do
End If
    '319
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""float:left;width:125px;text-align:left;padding-top: 6px;"">&nbsp;&nbsp;<a title=""" ) '321
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '321
            Response.Write ( """ href=""home.aspx?userid=" ) '321
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '321
            Response.Write ( """ target=""_blank""><img alt="""" src=""images/ftbbs_img_" ) '321
            Response.Write ( m + 1 ) '321
            Response.Write ( ".gif"" align=""absmiddle"" /> " ) '321
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '321
            Response.Write ( "</a></div><div style=""float:left;width:50px;text-align:right;padding-top: 7px;padding-right: 4px;"">" ) '321
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "postnum" ) .Value) ) '321
            Response.Write ( "&nbsp;&nbsp;</div>" & Chr ( 13 ) ) '321
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "    " ) '322
            m = m + 1 '323
            rs.MoveNext ( ) '324
        Loop '325
        rs.Close ( ) '326
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '328
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "   </div>" & Chr ( 13 ) ) '329
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""HotSpace"" id=""t_2"" name=""t_2"" style=""display:none"">" & Chr ( 13 ) ) '330
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><a class=""menu"" href=""javascript:show_tbl('t_',2,1)"" target=""_self"">发贴排行榜</a></h1><h3>版块排行榜</h3>" & Chr ( 13 ) ) '331
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '332
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '333
        sql = "select top 10 BBS_Cate_Name,BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Topic,BBS_Cate_Qs from " & ft & "BBS_Cate where BBS_Cate_PID<>'0' and deleted=0 order by BBS_Cate_Topic desc" '334
        rs = New ADODB.Recordset ( ) '335
        rs.Open ( sql , conn , 3 , 1 ) '336
        m = 0 '337
        Do While Not rs.EOF '338
        If AspToAspX_CheckDBNull ( m ) > = 10 Then
Exit Do
End If
    '339
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""float:left;width:125px;text-align:left;padding-top: 6px;"">&nbsp;&nbsp;<a href=""main.aspx?layer_1=" ) '341
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_PID" ) .Value) ) '341
            Response.Write ( "&layer_2=" ) '341
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) ) '341
            Response.Write ( "&qs=" ) '341
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Qs" ) .Value) ) '341
            Response.Write ( """ target=""_self""><img alt="""" src=""images/ftbbs_img_" ) '341
            Response.Write ( m + 1 ) '341
            Response.Write ( ".gif"" align=""absmiddle"" /> " ) '341
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) ) '341
            Response.Write ( "</a></div><div style=""float:left;width:50px;text-align:right;padding-top: 7px;padding-right: 4px;"">" ) '341
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Topic" ) .Value) ) '341
            Response.Write ( "&nbsp;&nbsp;</div>" & Chr ( 13 ) ) '341
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "    " ) '342
            m = m + 1 '343
            rs.MoveNext ( ) '344
        Loop '345
        rs.Close ( ) '346
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '348
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "   </div>" & Chr ( 13 ) ) '349
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '350
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '351
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--主栏目1结束-->" & Chr ( 13 ) ) '352
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""mytag_list"" style=""margin-top: 0px;""></div>" & Chr ( 13 ) ) '353
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--广告条开始-->" & Chr ( 13 ) ) '354
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--<div class=""width780"" style=""margin-top: 8px;""><img alt="""" src=""images/ad.gif"" width=""780"" height=""86"" /></div>-->" & Chr ( 13 ) ) '355
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--广告条结束-->" & Chr ( 13 ) ) '356
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--文章导航区开始-->" & Chr ( 13 ) ) '357
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleBlock"">" & Chr ( 13 ) ) '358
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleNavCenter"">" & Chr ( 13 ) ) '359
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><img alt="""" src=""blogimages/left01.gif"" align=""middle"" /> 推荐/精华</h1>" & Chr ( 13 ) ) '360
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '361
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li>&nbsp;</li>" & Chr ( 13 ) ) '362
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '363
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '364
        Response.Write ( "    <h2><a href=""main.aspx"" target=""_self""><img src=""blogimages/more3.gif"" alt="""" border=""0"" style=""padding-top:4px;"" /></a></h2>" & Chr ( 13 ) ) '365
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '366
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '367
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--文章导航区结束-->" & Chr ( 13 ) ) '368
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--推荐阅读开始-->" & Chr ( 13 ) ) '369
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""CommendRead"">" & Chr ( 13 ) ) '370
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""Left"">" & Chr ( 13 ) ) '371
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h3><img alt="""" src=""blogimages/icon_quote.gif"" align=""middle"" /><font color=""#000000"">新置顶贴</font></h3><div>" & Chr ( 13 ) ) '372
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '373
        sql = "select top 10 title,htmfilename from " & ft & "bbstitle where " & strqs & " deleted=0 and (bbstop=1 or bbstop1=1) order by redate desc" '374
        rs = New ADODB.Recordset ( ) '375
        rs.Open ( sql , conn , 3 , 1 ) '376
        k = 0 '377
        Do While Not rs.EOF '378
        If AspToAspX_CheckDBNull ( k ) > 9 Then
Exit Do
End If
    '379
            title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '380
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h2> ·<a title=""" ) '382
            Response.Write ( title ) '382
            Response.Write ( """ href=""" ) '382
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '382
            Response.Write ( """ target=""_blank"">" ) '382
            Response.Write ( title ) '382
            Response.Write ( "</a></h2>" & Chr ( 13 ) ) '382
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '383
            k = k + 1 '384
            rs.MoveNext ( ) '385
        Loop '386
        rs.Close ( ) '387
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '389
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '390
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""CenterAndRight"">" & Chr ( 13 ) ) '391
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""Content"">" & Chr ( 13 ) ) '392
        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=""main.aspx?sign=1"" target=""_self""><font color=""#000000"">新推荐贴</font></a></h1>" & Chr ( 13 ) ) '393
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '394
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '395
        sql = "select top 10 title,htmfilename from " & ft & "bbstitle where " & strqs & " deleted=0 and sign=1 order by redate desc" '396
        rs = New ADODB.Recordset ( ) '397
        rs.Open ( sql , conn , 3 , 1 ) '398
        Do While Not rs.EOF '399
            title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '400
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li class=""topth"">·<a title=""" ) '402
            Response.Write ( title ) '402
            Response.Write ( """ href=""" ) '402
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '402
            Response.Write ( """ target=""_blank"">" ) '402
            Response.Write ( title ) '402
            Response.Write ( "</a></li>" & Chr ( 13 ) ) '402
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '403
            rs.MoveNext ( ) '404
        Loop '405
        rs.Close ( ) '406
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '408
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '409
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '410
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""CenterAndRight"">" & Chr ( 13 ) ) '411
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""Content"">" & Chr ( 13 ) ) '412
        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=""main.aspx?huati=1"" target=""_self""><font color=""#000000"">新精华贴</font></a></h1>" & Chr ( 13 ) ) '413
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '414
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '415
        sql = "select top 10 title,htmfilename from " & ft & "bbstitle where " & strqs & " deleted=0 and huati=1 order by redate desc" '416
        rs = New ADODB.Recordset ( ) '417
        rs.Open ( sql , conn , 3 , 1 ) '418
        Do While Not rs.EOF '419
            title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '420
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li class=""topth""> <a title=""" ) '422
            Response.Write ( title ) '422
            Response.Write ( """ href=""" ) '422
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '422
            Response.Write ( """ target=""_blank"">" ) '422
            Response.Write ( title ) '422
            Response.Write ( "</a></li>" & Chr ( 13 ) ) '422
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '423
            rs.MoveNext ( ) '424
        Loop '425
        rs.Close ( ) '426
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '428
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '429
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '430
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '431
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--推荐阅读结束-->" & Chr ( 13 ) ) '432
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--相册导航区开始-->" & Chr ( 13 ) ) '433
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleBlock"">" & Chr ( 13 ) ) '434
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleNavCenter"">" & Chr ( 13 ) ) '435
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><img alt="""" src=""blogimages/left01.gif"" align=""middle"" /> 精选图片</h1>" & Chr ( 13 ) ) '436
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '437
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li>&nbsp;</li>" & Chr ( 13 ) ) '438
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '439
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h2><a href=""morepic.aspx"" target=""_self""><img src=""blogimages/more3.gif"" alt="""" border=""0"" style=""padding-top:4px;"" /></a></h2>" & Chr ( 13 ) ) '440
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '441
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '442
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--相册导航区结束-->" & Chr ( 13 ) ) '443
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--最新图片/相册开始-->" & Chr ( 13 ) ) '444
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div id=""NewlyPhotos"" class=""width780"">" & Chr ( 13 ) ) '445
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '446
        sql = "select top 12 " & 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" '447
        rs = New ADODB.Recordset ( ) '448
        rs.Open ( sql , conn , 3 , 1 ) '449
        If Not rs.EOF Then '450
            picnum = rs.RecordCount '451
            For i = 0 To Val ( rs.RecordCount ) '452
            If AspToAspX_CheckDBNull ( i ) > = 12 Or rs.EOF Then