haoyouhead.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 _HAOYOUHEAD

    Public AspToAspX_Host_Class_Object As Object

Dim _aspx_userid,_aspx_username,_aspx_homepagetitle
#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 ( "<div id=""main"" align=""left"">" & Chr ( 13 ) ) '1
    Response.Write ( "<script language=javascript src=""js/windowsize.js""></script>" & Chr ( 13 ) ) '2
    Response.Write ( "" & Chr ( 9 ) & "<div id=""header"">" & Chr ( 13 ) ) '3
    Response.Write ( "" & Chr ( 9 ) & "<div class=""lc""><div class=""rc""></div></div>" & Chr ( 13 ) ) '4
    Response.Write ( "" & Chr ( 9 ) & "<div class=""tit""><a href=""home.aspx?userid=" ) '5
    Response.Write ( userid ) '5
    Response.Write ( """ class=""titlink"" title=""" ) '5
    Response.Write ( username ) '5
    Response.Write ( "的空间"">" ) '5
    Response.Write ( username ) '5
    Response.Write ( "</a></div>" & Chr ( 13 ) ) '5
    Response.Write ( "" & Chr ( 9 ) & "<div class=""desc"">" ) '6
    Response.Write ( homepagetitle ) '6
    Response.Write ( "</div>" & Chr ( 13 ) ) '6
    Response.Write ( "" & Chr ( 9 ) & "<div id=""tabline"">&nbsp;</div>" & Chr ( 13 ) ) '7
    Response.Write ( "" & Chr ( 9 ) & "<div id=""tab""><a href=""home.aspx?userid=" ) '8
    Response.Write ( userid ) '8
    Response.Write ( """>主页</a><span>|</span><a href=""boker.aspx?userid=" ) '8
    Response.Write ( userid ) '8
    Response.Write ( """>博客</a><span>|</span><a href=""myphoto.aspx?userid=" ) '8
    Response.Write ( userid ) '8
    Response.Write ( """>相册</a><a class=""on"" href=""haoyou.aspx?userid=" ) '8
    Response.Write ( userid ) '8
    Response.Write ( """>好友</a><a href=""myinfo.aspx?userid=" ) '8
    Response.Write ( userid ) '8
    Response.Write ( """>个人档案</a>" & Chr ( 13 ) ) '8
    Response.Write ( "" & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '9
    Response.Write ( "</div>" & Chr ( 13 ) ) '10

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("haoyouhead_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
    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 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 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
#End Region
End Class