index.aspx.vb

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

        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_6' order by totop asc" '510
        rsd = New ADODB.Recordset ( ) '511
        rsd.Open ( sql , conn , 3 , 1 ) '512
        If Not rsd.EOF Then '513
            BBS_Cate_Name = AspToAspX_CheckDBNull(rsd.Fields ( "BBS_Cate_Name" ) .Value) '514
            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_6"">" ) '516
            Response.Write ( BBS_Cate_Name ) '516
            Response.Write ( "</a></h1>" & Chr ( 13 ) ) '516
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '517
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '518
            sql = "select top 10 title,htmfilename from " & ft & "bbstitle where " & strqs & " deleted=0 and BoardID_1='A_6' order by redate desc" '519
            rs = New ADODB.Recordset ( ) '520
            rs.Open ( sql , conn , 3 , 1 ) '521
            Do While Not rs.EOF '522
                title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '523
                Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li class=""topth""> <a title=""" ) '525
                Response.Write ( title ) '525
                Response.Write ( """ href=""" ) '525
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '525
                Response.Write ( """ target=""_blank"">" ) '525
                Response.Write ( title ) '525
                Response.Write ( "</a></li>" & Chr ( 13 ) ) '525
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '526
                rs.MoveNext ( ) '527
            Loop '528
            rs.Close ( ) '529
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '531
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '532
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '533
        End If '534
        rsd.Close ( ) '535
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '537
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '538
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--社区之星开始-->" & Chr ( 13 ) ) '539
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleBlock"">" & Chr ( 13 ) ) '540
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ArticleNavCenter"">" & Chr ( 13 ) ) '541
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><img alt="""" src=""blogimages/left01.gif"" align=""middle"" /> 社区之星</h1>" & Chr ( 13 ) ) '542
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '543
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li>&nbsp;</li>" & Chr ( 13 ) ) '544
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '545
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '546
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '547
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--社区之星结束-->" & Chr ( 13 ) ) '548
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--博客开始-->" & Chr ( 13 ) ) '549
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div id=""bkoepic"" class=""width780"">" & Chr ( 13 ) ) '550
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '551
        sql = "select top 8 clubuser_id,clubuser_name,userimg from " & ft & "clubuser where payuser<>3 and bokeer=1 order by postnum desc" '552
        rs = New ADODB.Recordset ( ) '553
        rs.Open ( sql , conn , 3 , 1 ) '554
        If Not rs.EOF Then '555
            For i = 0 To Val ( rs.RecordCount ) '556
            If AspToAspX_CheckDBNull ( i ) > = 8 Or rs.EOF Then
Exit For
End If
    '557
                Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<h1><a href=""home.aspx?userid=" ) '559
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '559
                Response.Write ( """><img src=""userheadimg/" ) '559
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) '559
                Response.Write ( """ alt=""" ) '559
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '559
                Response.Write ( """ width=""80"" height=""80"" border=""0"" /></a><div><a href=""home.aspx?userid=" ) '559
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '559
                Response.Write ( """>" ) '559
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '559
                Response.Write ( "</a></div></h1>" & Chr ( 13 ) ) '559
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '560
                rs.MoveNext ( ) '561
            Next '562
        End If '563
        rs.Close ( ) '564
        rs = Nothing '565
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '567
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--博客结束-->" & Chr ( 13 ) ) '568
        Response.Write ( "<!-- 版权声明开始 -->" & Chr ( 13 ) ) '569
    ASPX_COPYRIGHT_HTM.AspToAspX_Page_Init ( )
        Response.Write ( "<!-- 版权声明结束 -->" & Chr ( 13 ) ) '571
        Response.Write ( "</body>" & Chr ( 13 ) ) '572
        Response.Write ( "</html>" & Chr ( 13 ) ) '573
        closedb ( ) '575
        Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("index_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
    Public Property conn
        Get
            conn = ASPX_CONN.conn
        End Get
        Set(ByVal value)
            ASPX_CONN.conn = value
        End Set
    End Property
    Public Property qs
        Get
            qs = ASPX_CONN.qs
        End Get
        Set(ByVal value)
            ASPX_CONN.qs = value
        End Set
    End Property
    Public Property errc
        Get
            errc = ASPX_CONN.errc
        End Get
        Set(ByVal value)
            ASPX_CONN.errc = value
        End Set
    End Property
    Public Property iii
        Get
            iii = ASPX_CONN.iii
        End Get
        Set(ByVal value)
            ASPX_CONN.iii = value
        End Set
    End Property
    Public Property nothis
        Get
            nothis = ASPX_CONN.nothis
        End Get
        Set(ByVal value)
            ASPX_CONN.nothis = value
        End Set
    End Property
    Public Sub makeftbbstree(ByRef  ft )
        ASPX_CONN.makeftbbstree( ft )
    End Sub

    Public Sub CloseDb
        ASPX_CONN.CloseDb
    End Sub

    Public Sub SaveToFile( ByVal strBody,ByVal File )
        ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
    End Sub

    Public Function Checkstr(ByRef  AspToAspX_Str )
        Return ASPX_CONN.Checkstr( AspToAspX_Str )
    End Function

    Public Function CheckCharStr(ByRef  usernamepsw,ByRef flag )
        Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
    End Function

    Public Function ftbbs_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.ftbbs_msg( msg,reurl )
    End Function

    Public Function login_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.login_msg( msg,reurl )
    End Function

    Public Function FTBBS_HTML_MB(ByRef  ft )
        Return ASPX_CONN.FTBBS_HTML_MB( ft )
    End Function

    Public Function FTBBS_BZ_NAME(ByRef  BoardID_1,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
    End Function

    Public Function FTBBS_BZ_NAME2(ByRef  BoardID_1,ByRef BoardID_2,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
    End Function

    Public Function makefilename(ByRef  fname )
        Return ASPX_CONN.makefilename( fname )
    End Function

    Public Function GetExtendName(ByRef  FileName )
        Return ASPX_CONN.GetExtendName( FileName )
    End Function

    Public Function IsObjInstalled(ByRef  strClassString )
        Return ASPX_CONN.IsObjInstalled( st