lblog.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

    Response.Write ( "            <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""3"">" & Chr ( 13 ) ) '140
    Response.Write ( "              <tr> " & Chr ( 13 ) ) '141
    Response.Write ( "                <td class=""modbl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '142
    Response.Write ( "                <td class=""modbc"">&nbsp;</td>" & Chr ( 13 ) ) '143
    Response.Write ( "                <td class=""modbr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '144
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '145
    Response.Write ( "            </table>" & Chr ( 13 ) ) '146
    Response.Write ( "</div>" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '147
    Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '148
    Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modtl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '149
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap><div class=""modhead""><span class=""modtit"">其他</span></div></td>" & Chr ( 13 ) ) '150
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap align=""right""></td>" & Chr ( 13 ) ) '151
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '152
    Response.Write ( "" & Chr ( 9 ) & "</tr>" & Chr ( 13 ) ) '153
    Response.Write ( "</table>" & Chr ( 13 ) ) '154
    Response.Write ( "<div id=""comm_info"" class=""modbox"">" & Chr ( 13 ) ) '155
    Response.Write ( "<img src=""blogimages/rss.gif"" border=""0"" align=""absmiddle"" title=""订阅RSS"" alt=""订阅RSS"">&nbsp;&nbsp;<a href=""blogrss.aspx?userid=" ) '156
    Response.Write ( userid ) '156
    Response.Write ( """ target=""_blank"">RSS订阅</a>" & Chr ( 13 ) ) '156
    Response.Write ( "<div class=""line"">&nbsp;</div>" & Chr ( 13 ) ) '157
    Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '158
    Response.Write ( "<tr><td class=""modbl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '159
    Response.Write ( "<td class=""modbc"">&nbsp;</td>" & Chr ( 13 ) ) '160
    Response.Write ( "<td class=""modbr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '161
    Response.Write ( "</tr></table>" & Chr ( 13 ) ) '162

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