bkindex.aspx.vb

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

        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '267
        Response.Write ( "的个人空间</a></li>" & Chr ( 13 ) ) '267
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "    " ) '268
        m = m + 1 '269
        rs.MoveNext ( ) '270
    Loop '271
    rs.Close ( ) '272
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '274
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "   </div>" & Chr ( 13 ) ) '275
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '276
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '277
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--主栏目1结束-->" & Chr ( 13 ) ) '278
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--广告条开始-->" & Chr ( 13 ) ) '279
    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 ) ) '280
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--广告条结束-->" & Chr ( 13 ) ) '281
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--文章导航区开始-->" & Chr ( 13 ) ) '282
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleBlock"">" & Chr ( 13 ) ) '283
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleNavLeft""></div>" & Chr ( 13 ) ) '284
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleNavCenter"">" & Chr ( 13 ) ) '285
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><img alt="""" src=""blogimages/left01.gif"" align=""middle"" /> 博客文章</h1>" & Chr ( 13 ) ) '286
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '287
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li>" & Chr ( 13 ) ) '288
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "&nbsp;" & Chr ( 13 ) ) '289
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</li>" & Chr ( 13 ) ) '290
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '291
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '292
    Response.Write ( "    <h2><a href=""show_top.aspx"" target=""_self""><img src=""blogimages/more3.gif"" alt="""" border=""0"" style=""padding-top:4px;"" /></a></h2>" & Chr ( 13 ) ) '293
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '294
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleNavRight""></div>" & Chr ( 13 ) ) '295
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '296
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--文章导航区结束-->" & Chr ( 13 ) ) '297
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--推荐阅读开始-->" & Chr ( 13 ) ) '298
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""CommendRead"">" & Chr ( 13 ) ) '299
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""Left"">" & Chr ( 13 ) ) '300
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h3><img alt="""" src=""blogimages/icon_quote.gif"" align=""middle"" />推荐阅读</h3><div>" & Chr ( 13 ) ) '301
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '302
    sql = "select top 10 id,blogtitle,blogtypeid,userid,writedate from " & ft & "ftblog where blogtj=1 order by id desc" '303
    rs = New ADODB.Recordset ( ) '304
    rs.Open ( sql , conn , 3 , 1 ) '305
    k = 0 '306
    Do While Not rs.EOF '307
    If AspToAspX_CheckDBNull ( k ) > 9 Then
Exit Do
End If
    '308
        title = AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) '309
        If AspToAspX_Len ( title ) > 15 Then '310
            title = left ( title , 14 ) & "..." '311
        End If '312
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h2> ·<a title=""" ) '314
        Response.Write ( title ) '314
        Response.Write ( """ href=""myblog.aspx?id=" ) '314
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '314
        Response.Write ( "&userid=" ) '314
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '314
        Response.Write ( "&blogtypeid=" ) '314
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtypeid" ) .Value) ) '314
        Response.Write ( """ target=""_blank"">" ) '314
        Response.Write ( title ) '314
        Response.Write ( "</a></h2>" & Chr ( 13 ) ) '314
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '315
        k = k + 1 '316
        rs.MoveNext ( ) '317
    Loop '318
    rs.Close ( ) '319
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '321
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '322
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""CenterAndRight"">" & Chr ( 13 ) ) '323
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""Content"">" & Chr ( 13 ) ) '324
    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"" />最新文章</h1>" & Chr ( 13 ) ) '325
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '326
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '327
    sql = "select top 10 id,blogtitle,blogtypeid,userid,writedate from " & ft & "ftblog order by id desc" '328
    rs = New ADODB.Recordset ( ) '329
    rs.Open ( sql , conn , 3 , 1 ) '330
    Do While Not rs.EOF '331
        title = AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) '332
        If AspToAspX_Len ( title ) > 20 Then '333
            title = left ( title , 19 ) & "..." '334
        End If '335
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li class=""topth"">·<a title=""" ) '337
        Response.Write ( title ) '337
        Response.Write ( """ href=""myblog.aspx?id=" ) '337
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '337
        Response.Write ( "&userid=" ) '337
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '337
        Response.Write ( "&blogtypeid=" ) '337
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtypeid" ) .Value) ) '337
        Response.Write ( """ target=""_blank"">" ) '337
        Response.Write ( title ) '337
        Response.Write ( "</a></li>" & Chr ( 13 ) ) '337
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '338
        rs.MoveNext ( ) '339
    Loop '340
    rs.Close ( ) '341
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '343
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '344
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '345
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""CenterAndRight"">" & Chr ( 13 ) ) '346
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""Content"">" & Chr ( 13 ) ) '347
    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"" />热门文章</h1>" & Chr ( 13 ) ) '348
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '349
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '350
    sql = "select top 10 id,blogtitle,blogtypeid,userid,writedate from " & ft & "ftblog order by hits desc" '351
    rs = New ADODB.Recordset ( ) '352
    rs.Open ( sql , conn , 3 , 1 ) '353
    Do While Not rs.EOF '354
        title = AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) '355
        If AspToAspX_Len ( title ) > 20 Then '356
            title = left ( title , 19 ) & "..." '357
        End If '358
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li class=""topth""> <a title=""" ) '360
        Response.Write ( title ) '360
        Response.Write ( """ href=""myblog.aspx?id=" ) '360
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '360
        Response.Write ( "&userid=" ) '360
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '360
        Response.Write ( "&blogtypeid=" ) '360
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtypeid" ) .Value) ) '360
        Response.Write ( """ target=""_blank"">" ) '360
        Response.Write ( title ) '360
        Response.Write ( "</a></li>" & Chr ( 13 ) ) '360
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '361
        rs.MoveNext ( ) '362
    Loop '363
    rs.Close ( ) '364
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '366
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '367
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '368
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '369
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--推荐阅读结束-->" & Chr ( 13 ) ) '370
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--相册导航区开始-->" & Chr ( 13 ) ) '371
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleBlock"">" & Chr ( 13 ) ) '372
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleNavLeft""></div>" & Chr ( 13 ) ) '373
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleNavCenter"">" & Chr ( 13 ) ) '374
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><img alt="""" src=""blogimages/left01.gif"" align=""middle"" /> 图片/相册</h1>" & Chr ( 13 ) ) '375
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '376
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li>" & Chr ( 13 ) ) '377
    Response.Write ( "                    &nbsp;" & Chr ( 13 ) ) '378
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</li>" & Chr ( 13 ) ) '379
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '380
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '381
    Response.Write ( "    <h2><a href=""show_topic.aspx"" target=""_self""><img src=""blogimages/more3.gif"" alt="""" border=""0"" style=""padding-top:4px;"" /></a></h2>" & Chr ( 13 ) ) '382
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '383
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleNavRight""></div>" & Chr ( 13 ) ) '384
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '385
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--相册导航区结束-->" & Chr ( 13 ) ) '386
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--最新图片/相册开始-->" & Chr ( 13 ) ) '387
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div id=""NewlyPhotos"" class=""width780"">" & Chr ( 13 ) ) '388
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '389
    sql = "SELECT top 12 * FROM " & ft & "ftbbs_upload WHERE (id IN(SELECT MAX(id) FROM " & ft & "ftbbs_upload GROUP BY photo_name)) and (bbs_blog_type=1 or bbs_blog_type=2) and sign=0 order by indate desc" '390
    rs = New ADODB.Recordset ( ) '391
    rs.Open ( sql , conn , 3 , 1 ) '392
    Do While Not rs.EOF '393
        photo_name = AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) '394
        If AspToAspX_Len ( photo_name ) > 9 Then '395
            photo_name = left ( AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) , 8 ) & "..." '396
        End If '397
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<h1><a title=""" ) '399
        Response.Write ( photo_name ) '399
        Response.Write ( """ href=""disphoto.aspx?id=" ) '399
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '399
        Response.Write ( "&userid=" ) '399
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '399
        Response.Write ( "&photo_name=" ) '399
        Response.Write ( GBtoUTF8 ( AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) ) ) '399
        Response.Write ( """><img src=""" ) '399
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_pic" ) .Value) ) '399
        Response.Write ( """ alt=""photo"" width=""110"" height=""110"" border=""0"" /></a><div><a title=""" ) '399
        Response.Write ( photo_name ) '399
        Response.Write ( """ href=""disphoto.aspx?id=" ) '399
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '399
        Response.Write ( "&userid=" ) '399
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '399
        Response.Write ( "&photo_name=" ) '399
        Response.Write ( GBtoUTF8 ( AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) ) ) '399
        Response.Write ( """>" ) '399
        Response.Write ( photo_name ) '399
        Response.Write ( "</a></div></h1>" & Chr ( 13 ) ) '399
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '400
        rs.MoveNext ( ) '401
    Loop '402
    rs.Close ( ) '403
    rs = Nothing '404
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '406
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--最新图片/相册结束-->" & Chr ( 13 ) ) '407
    Response.Write ( "        <!-- 版权声明开始 -->" & Chr ( 13 ) ) '408
    ASPX_COPYRIGHT_HTM.AspToAspX_Page_Init ( )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!-- 版权声明结束 -->" & Chr ( 13 ) ) '410
    Response.Write ( "" & Chr ( 9 ) & "</body>" & Chr ( 13 ) ) '411
    Response.Write ( "</html>" & Chr ( 13 ) ) '412
    closedb ( ) '428
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err: