usernav.aspx.vb

来自「本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成」· VB 代码 · 共 200 行

' ***************************************************
' *        本程序由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 _USERNAV

    Public AspToAspX_Host_Class_Object As Object

Dim _aspx_conn,_aspx_sql,_aspx_ft,_aspx_bokeer,_aspx_clubuser_id,_aspx_rs8
#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
    If AspToAspX_CheckDBNull ( getcookie ( "name" ) ) < > EmptyString.Value Then '2
        clubuser_id = getcookie ( "clubuser_id" ) '3
        sql = "select clubuser_id,clubuser_name,userimg,homepagetitle,cssfile,bokeer from " & ft & "clubuser where clubuser_id=" & clubuser_id '4
        rs8 = New ADODB.Recordset ( ) '5
        rs8.Open ( sql , conn , 3 , 1 ) '6
        If Not rs8.EOF Then '7
            bokeer = AspToAspX_CheckDBNull(rs8.Fields ( "bokeer" ) .Value) '8
        End If '9
        Response.Write ( vbCrLf )
        Response.Write ( "<div id=""usrbar""><nobr> " & Chr ( 13 ) ) '11
        Response.Write ( "  " ) '12
        If AspToAspX_CheckDBNull ( bokeer ) = 1 Then '12
        Response.Write ( vbCrLf )
            Response.Write ( "  <strong><a href=""home.aspx?userid=" ) '13
            Response.Write ( clubuser_id ) '13
            Response.Write ( """ title=""进入您的空间"">" ) '13
            Response.Write ( getcookie ( "name" ) ) '13
            Response.Write ( "</a></strong> " & Chr ( 13 ) ) '13
            Response.Write ( "  | <a href=""default.aspx"">进入论坛</a> | <a href=""home.aspx?userid=" ) '14
            Response.Write ( clubuser_id ) '14
            Response.Write ( """>个人空间</a> " & Chr ( 13 ) ) '14
            Response.Write ( "  | <a href=""setupmb.aspx?userid=" ) '15
            Response.Write ( clubuser_id ) '15
            Response.Write ( """>风格设置</a> | <a href=""usercenter.aspx?userid=" ) '15
            Response.Write ( clubuser_id ) '15
            Response.Write ( """>控制面板</a> " & Chr ( 13 ) ) '15
            Response.Write ( "  | <a href=""default.aspx?n=exit"">退出</a> " & Chr ( 13 ) ) '16
            Response.Write ( "  " ) '17
        Else '17
        Response.Write ( vbCrLf )
            Response.Write ( "  <strong><a href=""home.aspx?userid=" ) '18
            Response.Write ( clubuser_id ) '18
            Response.Write ( """ title=""进入您的空间"">" ) '18
            Response.Write ( getcookie ( "name" ) ) '18
            Response.Write ( "</a></strong> " & Chr ( 13 ) ) '18
            Response.Write ( "  <a href=""default.aspx"">进入论坛</a> | <a href=""home.aspx?userid=" ) '19
            Response.Write ( clubuser_id ) '19
            Response.Write ( """>个人空间</a> " & Chr ( 13 ) ) '19
            Response.Write ( "  | <a href=""modmyinfo.aspx?blogstr=1""><font color=red>激活成为博客</font></a> | <a href=""default.aspx?n=exit"">退出</a> " & Chr ( 13 ) ) '20
            Response.Write ( "  " ) '21
        End If '21
        Response.Write ( vbCrLf )
        Response.Write ( "  </nobr></div>" & Chr ( 13 ) ) '22
    Else '23
    Response.Write ( vbCrLf )
        Response.Write ( "<div id=""usrbar""><nobr> <a href=""default.aspx"">进入论坛</a> | <a href=""default.aspx?n=regist"">注册</a> " & Chr ( 13 ) ) '24
        Response.Write ( "  | <a href=""userlogin.aspx?flag=Y"">登录</a> </nobr></div>" & Chr ( 13 ) ) '25
    End If '26
    Response.Write ( vbCrLf )

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("usernav_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 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 bokeer
        Get
            On Error Resume Next
            bokeer = AspToAspX_Host_Class_Object.bokeer
            If Err.Number = 438 Then
                Err.Clear
                bokeer = _aspx_bokeer
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.bokeer = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_bokeer = value
            End If
        End Set
    End Property
    Public Property clubuser_id
        Get
            On Error Resume Next
            clubuser_id = AspToAspX_Host_Class_Object.clubuser_id
            If Err.Number = 438 Then
                Err.Clear
                clubuser_id = _aspx_clubuser_id
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.clubuser_id = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_clubuser_id = value
            End If
        End Set
    End Property
    Public Property rs8
        Get
            On Error Resume Next
            rs8 = AspToAspX_Host_Class_Object.rs8
            If Err.Number = 438 Then
                Err.Clear
                rs8 = _aspx_rs8
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.rs8 = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_rs8 = 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