fthomenav.aspx.vb

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

' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  [e-mail]        *
' *        EMail  [e-mail]              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


Public Class _FTHOMENAV

    Public AspToAspX_Host_Class_Object As Object

Dim _aspx_conn,_aspx_sql,_aspx_rs,_aspx_ft
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
    End Sub

#End Region
    Public Sub AspToAspX_Page_Init()
    On Error GoTo _AspToAspX_Err
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--Logo部分开始-->" & Chr ( 13 ) ) '1
    Response.Write ( "  <div id=""LogoNav"" class=""width780"">" & Chr ( 13 ) ) '2
    Response.Write ( "  <div class=""Logo"">" & Chr ( 13 ) ) '3
    Response.Write ( "    <div align=""left""><img src=""images/homelogo.gif"" alt="""" width=""170"" height=""60"" /></div>" & Chr ( 13 ) ) '4
    Response.Write ( "  </div>" & Chr ( 13 ) ) '5
    Response.Write ( "  <div class=""LogoAD"">" & Chr ( 13 ) ) '6
    Response.Write ( "    <div align=""center""><script language=javascript src=""indexad.js""></script></div>" & Chr ( 13 ) ) '7
    Response.Write ( "  </div>" & Chr ( 13 ) ) '8
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--Logo部分结束-->" & Chr ( 13 ) ) '9
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--导航菜单开始-->" & Chr ( 13 ) ) '10
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div id=""MenuNav"" class=""width780"">" & Chr ( 13 ) ) '11
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""NavLeft""></div>" & Chr ( 13 ) ) '12
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""NavCenter"">" & Chr ( 13 ) ) '13
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""#"">首 页</a><img alt="""" src=""blogimages/line-center.gif"" align=""middle"" />" & Chr ( 13 ) ) '14
    sql = "select BBS_Cate_Name,BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Qs,BBS_Cate_Note,BBS_Cate_Topic,BBS_Cate_Reply,BBS_Cate_Manager_Name from " & ft & "BBS_Cate where BBS_Cate_PID='0' and deleted=0 order by totop asc" '16
    rs = New ADODB.Recordset ( ) '17
    rs.Open ( sql , conn , 1 , 1 ) '18
    Do While Not rs.EOF '19
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""default.aspx?a=" ) '21
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) ) '21
        Response.Write ( """>" ) '21
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) ) '21
        Response.Write ( "</a> <img alt="""" src=""blogimages/line-center.gif"" align=""middle"" />" & Chr ( 13 ) ) '21
        rs.MoveNext ( ) '23
    Loop '24
    rs.Close ( ) '25
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""bkindex.aspx"">空间首页</a><img alt="""" src=""blogimages/line-center.gif"" align=""middle"" />" & Chr ( 13 ) ) '27
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""default.aspx"">进入社区</a>&nbsp;&nbsp;" & Chr ( 13 ) ) '28
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '29
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""NavRight""></div>" & Chr ( 13 ) ) '30
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '31
    Response.Write ( "<!--导航菜单结束-->" & Chr ( 13 ) ) '32

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("fthomenav_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
    Public Property conn
        Get
            On Error Resume Next
            conn = AspToAspX_Host_Class_Object.conn
            If Err.Number = 438 Then
                Err.Clear
                conn = _aspx_conn
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.conn = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_conn = value
            End If
        End Set
    End Property
    Public Property sql
        Get
            On Error Resume Next
            sql = AspToAspX_Host_Class_Object.sql
            If Err.Number = 438 Then
                Err.Clear
                sql = _aspx_sql
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.sql = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_sql = value
            End If
        End Set
    End Property
    Public Property rs
        Get
            On Error Resume Next
            rs = AspToAspX_Host_Class_Object.rs
            If Err.Number = 438 Then
                Err.Clear
                rs = _aspx_rs
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.rs = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_rs = value
            End If
        End Set
    End Property
    Public Property ft
        Get
            On Error Resume Next
            ft = AspToAspX_Host_Class_Object.ft
            If Err.Number = 438 Then
                Err.Clear
                ft = _aspx_ft
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.ft = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_ft = value
            End If
        End Set
    End Property
#End Region
End Class