ftbbs_nav.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 _FTBBS_NAV

    Public AspToAspX_Host_Class_Object As Object

Public ftbbs_nav_name,ftbbs_clubuser_id
Dim _aspx_conn,_aspx_ftbbs_nav_name,_aspx_ftbbs_clubuser_id,_aspx_ft,_aspx_userinfo,_aspx_userinfox,_aspx_sql,_aspx_rs,_aspx_num,_aspx_smsnum
#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
    ftbbs_nav_name = getcookie ( "name" ) '3
    ftbbs_clubuser_id = getcookie ( "clubuser_id" ) '4
    If AspToAspX_CheckDBNull ( ftbbs_nav_name ) = EmptyString.Value Then '5
        userinfo = "<font color=""#FF0000"">游客 </font> 你还未登录 - <a href=""userlogin.aspx"">用户登录</a> - <a href=""register.aspx"">用户注册</a> - <a href=""search.aspx"">贴子搜索</a> - <a href=""help.aspx"">论坛指南</a>" '6
        userinfox = "<font color=""#FF0000"">游客 </font> 你还未登录 - <a href=""userlogin.aspx"">用户登录</a> - <a href=""default.aspx?n=regist"">用户注册</a> - <a href=""default.aspx?n=help"">论坛指南</a>" '7
    Else '8
        sql = "select count(*) as num from " & ft & "sms where IsNew=1 and accepter='" & ftbbs_nav_name & "'" '9
        rs = conn.Execute ( sql ) '10
        num = AspToAspX_CheckDBNull(rs.Fields ( "num" ) .Value) '11
        num = AspToAspX_CStr ( num ) '12
        rs.Close ( ) '13
        rs = Nothing '14
        If AspToAspX_CheckDBNull ( num ) > 0 Then '15
            smsnum = "(<font color=red>" & num & "</font>)" '16
        Else '17
            smsnum = "" '18
        End If '19
        userinfo = "<font color=""#FF0000"">" & ftbbs_nav_name & " </font><a href=""main.aspx?exit=yes"">退出</a> - <a href=""moduserinfo.aspx"">个人资料</a> - <a href=""myfriend.aspx"">我的好友</a> - <a href=""mysms.aspx"">短消息" & smsnum & "</a> - <a href=""myfavorties.aspx"">收藏夹</a> - <a href=main.aspx?searchkind=name&searchcontent=" & ftbbs_nav_name & ">我发的贴</a> - <a href=search.aspx?searchkind=myrepost&searchcontent=" & ftbbs_nav_name & ">我回的贴</a> - <a href=""home.aspx?userid=" & ftbbs_clubuser_id & """ target=""_blank"">个人空间</a> - <a href=""trans.aspx"">交易中心</a> - <a href=""search.aspx"">搜索</a>" '20
        userinfox = "欢迎 <font color=""#FF0000"">" & ftbbs_nav_name & " </font> - <a href=""default.aspx?n=userinfo"">个人资料</a> - <a href=""default.aspx?n=friend"">我的好友</a> - <a href=""default.aspx?n=sms"">短消息" & smsnum & "</a> - <a href=""default.aspx?n=favorties"">收藏夹</a> - <a href=default.aspx?n=myself>我发的贴</a> - <a href=default.aspx?n=myrepost>我回的贴</a> - <a href=""home.aspx?userid=" & ftbbs_clubuser_id & """ target=""_blank"">个人空间</a>" '21
    End If '22
    Response.Write ( vbCrLf )

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("ftbbs_nav_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 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
    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 userinfox
        Get
            On Error Resume Next
            userinfox = AspToAspX_Host_Class_Object.userinfox
            If Err.Number = 438 Then
                Err.Clear
                userinfox = _aspx_userinfox
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.userinfox = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_userinfox = 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 num
        Get
            On Error Resume Next
            num = AspToAspX_Host_Class_Object.num
            If Err.Number = 438 Then
                Err.Clear
                num = _aspx_num
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.num = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_num = value
            End If
        End Set
    End Property
    Public Property smsnum
        Get
            On Error Resume Next
            smsnum = AspToAspX_Host_Class_Object.smsnum
            If Err.Number = 438 Then
                Err.Clear
                smsnum = _aspx_smsnum
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.smsnum = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_smsnum = 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