navhome.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 _NAVHOME

    Public AspToAspX_Host_Class_Object As Object

Dim _aspx_qs,_aspx_userinfo,_aspx_layer_1,_aspx_layer_2
#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=""ad""><script language=""JavaScript"" src=""ftbbshomead.js""></script></div>" & Chr ( 13 ) ) '3
    Response.Write ( "  </div>" & Chr ( 13 ) ) '4
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--Logo部分结束-->" & Chr ( 13 ) ) '5
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--导航菜单开始-->" & Chr ( 13 ) ) '6
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div id=""MenuNav"" class=""width780"">" & Chr ( 13 ) ) '7
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""NavCenter"">" & Chr ( 13 ) ) '8
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '9
    Response.Write ( userinfo ) '9
    Response.Write ( "&nbsp;&nbsp;" & Chr ( 13 ) ) '9
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '10
    If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) < > 1 Then '10
    Response.Write ( vbCrLf )
        Response.Write ( "              <a href=""default.aspx?a=" ) '11
        Response.Write ( layer_1 ) '11
        Response.Write ( "&b=" ) '11
        Response.Write ( layer_2 ) '11
        Response.Write ( "&qs=" ) '11
        Response.Write ( qs ) '11
        Response.Write ( "&ft=1"" target=""_top"">平板结构</a>&nbsp;&nbsp; " & Chr ( 13 ) ) '11
        Response.Write ( "            " ) '12
    End If '12
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '13
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '14
    Response.Write ( "<!--导航菜单结束-->" & Chr ( 13 ) ) '15

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("navhome_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
    Public Property qs
        Get
            On Error Resume Next
            qs = AspToAspX_Host_Class_Object.qs
            If Err.Number = 438 Then
                Err.Clear
                qs = _aspx_qs
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.qs = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_qs = value
            End If
        End Set
    End Property
    Public Property userinfo
        Get
            On Error Resume Next
            userinfo = AspToAspX_Host_Class_Object.userinfo
            If Err.Number = 438 Then
                Err.Clear
                userinfo = _aspx_userinfo
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.userinfo = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_userinfo = value
            End If
        End Set
    End Property
    Public Property layer_1
        Get
            On Error Resume Next
            layer_1 = AspToAspX_Host_Class_Object.layer_1
            If Err.Number = 438 Then
                Err.Clear
                layer_1 = _aspx_layer_1
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.layer_1 = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_layer_1 = value
            End If
        End Set
    End Property
    Public Property layer_2
        Get
            On Error Resume Next
            layer_2 = AspToAspX_Host_Class_Object.layer_2
            If Err.Number = 438 Then
                Err.Clear
                layer_2 = _aspx_layer_2
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.layer_2 = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_layer_2 = value
            End If
        End Set
    End Property
    Public Function getcookie(ByRef  ckname )
        Return AspToAspX_Host_Class_Object.getcookie( ckname )
    End Function

#End Region
End Class