memberinfo.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 _MEMBERINFO

    Public AspToAspX_Host_Class_Object As Object

Dim _aspx_conn,_aspx_userid,_aspx_sql,_aspx_rs,_aspx_ft,_aspx_username,_aspx_userimg,_aspx_homepagetitle,_aspx_cssfile,_aspx_bokeer,_aspx_blog_mid,_aspx_blogheadimg
#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
    sql = "select clubuser_id,clubuser_name,userimg,homepagetitle,cssfile,bokeer,blog_mid from " & ft & "clubuser where clubuser_id=" & userid '2
    rs = New ADODB.Recordset ( ) '3
    rs.Open ( sql , conn , 3 , 1 ) '4
    If Not rs.EOF Then '5
        username = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) '6
        userimg = AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) '7
        homepagetitle = AspToAspX_CheckDBNull(rs.Fields ( "homepagetitle" ) .Value) '8
        cssfile = "blogcss/" & AspToAspX_CheckDBNull(rs.Fields ( "cssfile" ) .Value) '9
        bokeer = AspToAspX_CheckDBNull(rs.Fields ( "bokeer" ) .Value) '10
        blog_mid = AspToAspX_CheckDBNull(rs.Fields ( "blog_mid" ) .Value) '11
    If IsDBNull ( cssfile ) Or AspToAspX_CheckDBNull ( cssfile ) = EmptyString.Value Or AspToAspX_CheckDBNull ( cssfile ) = "blogcss/" Then
cssfile = "blogcss/2.css"
End If
    '12
        If IsDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) Then '13
            blogheadimg = "blogimages/nophoto.gif" '14
        Else '15
            blogheadimg = "userheadimg/" & AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) '16
        End If '17
        If AspToAspX_CheckDBNull ( bokeer ) < > 1 And AspToAspX_CheckDBNull ( getcookie ( "clubuser_id" ) ) = userid Then '19
            AspToAspX_Response_Redirect ( "modmyinfo.aspx?blogstr=1" ) '20
        End If '21
    Else '22
        Response.Write ( "<br><br><br><br><center>用户不存在</center>" ) '23
        Response.End ( ) '24
    End If '25
    rs.Close ( ) '26
    rs = Nothing '27
    Response.Write ( vbCrLf )

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("memberinfo_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 userid
        Get
            On Error Resume Next
            userid = AspToAspX_Host_Class_Object.userid
            If Err.Number = 438 Then
                Err.Clear
                userid = _aspx_userid
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.userid = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_userid = 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
    Public Property username
        Get
            On Error Resume Next
            username = AspToAspX_Host_Class_Object.username
            If Err.Number = 438 Then
                Err.Clear
                username = _aspx_username
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.username = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_username = value
            End If
        End Set
    End Property
    Public Property userimg
        Get
            On Error Resume Next
            userimg = AspToAspX_Host_Class_Object.userimg
            If Err.Number = 438 Then
                Err.Clear
                userimg = _aspx_userimg
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.userimg = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_userimg = value
            End If
        End Set
    End Property
    Public Property homepagetitle
        Get
            On Error Resume Next
            homepagetitle = AspToAspX_Host_Class_Object.homepagetitle
            If Err.Number = 438 Then
                Err.Clear
                homepagetitle = _aspx_homepagetitle
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.homepagetitle = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_homepagetitle = value
            End If
        End Set
    End Property
    Public Property cssfile
        Get
            On Error Resume Next
            cssfile = AspToAspX_Host_Class_Object.cssfile
            If Err.Number = 438 Then
                Err.Clear
                cssfile = _aspx_cssfile
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.cssfile = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_cssfile = 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 blog_mid
        Get
            On Error Resume Next
            blog_mid = AspToAspX_Host_Class_Object.blog_mid
            If Err.Number = 438 Then
                Err.Clear
                blog_mid = _aspx_blog_mid
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.blog_mid = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_blog_mid = value
            End If
        End Set
    End Property
    Public Property blogheadimg
        Get
            On Error Resume Next
            blogheadimg = AspToAspX_Host_Class_Object.blogheadimg
            If Err.Number = 438 Then
                Err.Clear
                blogheadimg = _aspx_blogheadimg
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.blogheadimg = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_blogheadimg = 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