usercalog.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 _USERCALOG

    Public AspToAspX_Host_Class_Object As Object

Dim _aspx_userid
#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 ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '1
    Response.Write ( "<div id=""mod_links"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '2
    Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '3
    Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modtl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '4
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap><div class=""modhead""><span class=""modtit"">日记文集</span></div></td>" & Chr ( 13 ) ) '5
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap align=""right""></td>" & Chr ( 13 ) ) '6
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '7
    Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '8
    Response.Write ( "  <div id=""m_links"" class=""modbox"">" & Chr ( 13 ) ) '9
    Response.Write ( "  " & Chr ( 13 ) ) '10
    Response.Write ( "  <div class=""item""><span style=""margin-left:3px""></span><span id=""linkArea""><a href=""blogcenter_add.aspx""><b>发布日志</b></a></span>" & Chr ( 13 ) ) '11
    Response.Write ( "  </div>" & Chr ( 13 ) ) '12
    Response.Write ( "  <div class=""line"">&nbsp;</div>" & Chr ( 13 ) ) '13
    Response.Write ( "    <div class=""item""><span style=""margin-left:3px""></span><span id=""linkArea""><a href=""blog_group.aspx?nav=b""><b>添加日志分类</b></a></span> " & Chr ( 13 ) ) '14
    Response.Write ( "    </div>" & Chr ( 13 ) ) '15
    Response.Write ( "  <div class=""line"">&nbsp;</div>" & Chr ( 13 ) ) '16
    Response.Write ( "  <div class=""item""><span style=""margin-left:3px""></span><span id=""linkArea""><a href=""blogcenter.aspx""><b>日志管理</b></a></span>" & Chr ( 13 ) ) '17
    Response.Write ( "  </div>" & Chr ( 13 ) ) '18
    Response.Write ( "  <div class=""line"">&nbsp;</div>" & Chr ( 13 ) ) '19
    Response.Write ( "<div class=""item""><span style=""margin-left:3px""></span><span id=""linkArea""><a href=""blogcenter_pl.aspx?pltype=0""><b>日志评论管理</b></a></span>" & Chr ( 13 ) ) '20
    Response.Write ( "  </div>" & Chr ( 13 ) ) '21
    Response.Write ( "  <div class=""line"">&nbsp;</div>" & Chr ( 13 ) ) '22
    Response.Write ( "</div>" & Chr ( 13 ) ) '23
    Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '24
    Response.Write ( "<tr><td class=""modbl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '25
    Response.Write ( "<td class=""modbc"">&nbsp;</td>" & Chr ( 13 ) ) '26
    Response.Write ( "<td class=""modbr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '27
    Response.Write ( "</tr></table>" & Chr ( 13 ) ) '28
    Response.Write ( "</div>" & Chr ( 13 ) ) '29
    Response.Write ( "<div id=""mod_links"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '30
    Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '31
    Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modtl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '32
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap><div class=""modhead""><span class=""modtit"">我的相册</span></div></td>" & Chr ( 13 ) ) '33
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap align=""right""></td>" & Chr ( 13 ) ) '34
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '35
    Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '36
    Response.Write ( "  <div id=""m_links"" class=""modbox"">" & Chr ( 13 ) ) '37
    Response.Write ( "  " & Chr ( 13 ) ) '38
    Response.Write ( "    <div class=""item""><span style=""margin-left:3px""></span><span id=""linkArea""><a href=""up_photo.aspx""><b>上传相片</b></a></span> " & Chr ( 13 ) ) '39
    Response.Write ( "    </div>" & Chr ( 13 ) ) '40
    Response.Write ( "  <div class=""line"">&nbsp;</div>  " & Chr ( 13 ) ) '41
    Response.Write ( "    <div class=""item""><span style=""margin-left:3px""></span><span id=""linkArea""><a href=""blog_group.aspx?nav=a""><b>添加相册分类</b></a></span> " & Chr ( 13 ) ) '42
    Response.Write ( "    </div>" & Chr ( 13 ) ) '43
    Response.Write ( "  <div class=""line"">&nbsp;</div>  <div class=""item""><span style=""margin-left:3px""></span><span id=""linkArea""><a href=""photomanage.aspx""><b>相册管理</b></a></span>" & Chr ( 13 ) ) '44
    Response.Write ( "  </div>" & Chr ( 13 ) ) '45
    Response.Write ( "  <div class=""line"">&nbsp;</div>" & Chr ( 13 ) ) '46
    Response.Write ( "  <div class=""item""><span style=""margin-left:3px""></span><span id=""linkArea""><a href=""blogcenter_pl.aspx?pltype=1""><b>相册评论管理</b></a></span>" & Chr ( 13 ) ) '47
    Response.Write ( "  </div>" & Chr ( 13 ) ) '48
    Response.Write ( "  <div class=""line"">&nbsp;</div>" & Chr ( 13 ) ) '49
    Response.Write ( "  " & Chr ( 13 ) ) '50
    Response.Write ( "</div>" & Chr ( 13 ) ) '51
    Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '52
    Response.Write ( "<tr><td class=""modbl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '53
    Response.Write ( "<td class=""modbc"">&nbsp;</td>" & Chr ( 13 ) ) '54
    Response.Write ( "<td class=""modbr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '55
    Response.Write ( "</tr></table>" & Chr ( 13 ) ) '56
    Response.Write ( "</div>" & Chr ( 13 ) ) '57
    Response.Write ( "<div id=""mod_links"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '58
    Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '59
    Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modtl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '60
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap><div class=""modhead""><span class=""modtit"">我的好友</span></div></td>" & Chr ( 13 ) ) '61
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap align=""right""></td>" & Chr ( 13 ) ) '62
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '63
    Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '64
    Response.Write ( "  <div id=""m_links"" class=""modbox"">" & Chr ( 13 ) ) '65
    Response.Write ( "    <div class=""item""><span style=""margin-left:3px""></span><span id=""linkArea""><a href=""friend_add.aspx?userid=" ) '66
    Response.Write ( userid ) '66
    Response.Write ( """><strong>添加好友</strong></a></span> " & Chr ( 13 ) ) '66
    Response.Write ( "    </div>" & Chr ( 13 ) ) '67
    Response.Write ( "  <div class=""line"">&nbsp;</div>" & Chr ( 13 ) ) '68
    Response.Write ( "  <div class=""item""><span style=""margin-left:3px""></span><span id=""linkArea""><a href=""friend_admin.aspx""><b>好友管理</b></a></span></div>" & Chr ( 13 ) ) '69
    Response.Write ( "  <div class=""line"">&nbsp;</div>" & Chr ( 13 ) ) '70
    Response.Write ( "</div>" & Chr ( 13 ) ) '71
    Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '72
    Response.Write ( "<tr><td class=""modbl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '73
    Response.Write ( "<td class=""modbc"">&nbsp;</td>" & Chr ( 13 ) ) '74
    Response.Write ( "<td class=""modbr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '75
    Response.Write ( "</tr></table>" & Chr ( 13 ) ) '76
    Response.Write ( "</div>" & Chr ( 13 ) ) '77
    Response.Write ( "<div id=""mod_links"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '78
    Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '79
    Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modtl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '80
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap><div class=""modhead""><span class=""modtit"">个人档案</span></div></td>" & Chr ( 13 ) ) '81
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap align=""right""></td>" & Chr ( 13 ) ) '82
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '83
    Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '84
    Response.Write ( "  <div id=""m_links"" class=""modbox"">" & Chr ( 13 ) ) '85
    Response.Write ( "    <div class=""item""><span style=""margin-left:3px""></span><span id=""linkArea""><a href=""modmyinfo.aspx""><strong>修改个人资料</strong></a></span> " & Chr ( 13 ) ) '86
    Response.Write ( "    </div>" & Chr ( 13 ) ) '87
    Response.Write ( "  <div class=""line"">&nbsp;</div>" & Chr ( 13 ) ) '88
    Response.Write ( "    <div class=""item""><span style=""margin-left:3px""></span><span id=""linkArea""><a href=""modpwd.aspx""><b>修改用户密码</b></a></span></div>" & Chr ( 13 ) ) '89
    Response.Write ( "  <div class=""line"">&nbsp;</div>" & Chr ( 13 ) ) '90
    Response.Write ( "</div>" & Chr ( 13 ) ) '91
    Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '92
    Response.Write ( "<tr><td class=""modbl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '93
    Response.Write ( "<td class=""modbc"">&nbsp;</td>" & Chr ( 13 ) ) '94
    Response.Write ( "<td class=""modbr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '95
    Response.Write ( "</tr></table>" & Chr ( 13 ) ) '96
    Response.Write ( "</div>" & Chr ( 13 ) ) '97

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("usercalog_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
#End Region
End Class