userblog.aspx.vb

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

            Response.Write ( "  <tr> " & Chr ( 13 ) ) '107
            Response.Write ( "    <td height=""1"" colspan=""5"" background=""../blogimages/dotbg.gif""><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '108
            Response.Write ( "  </tr>" & Chr ( 13 ) ) '109
            rsblog.MoveNext ( ) '111
        Next '112
        rsblog.Close ( ) '113
        Response.Write ( vbCrLf )
        Response.Write ( "  <tr bgcolor=""#F8F8F8""> " & Chr ( 13 ) ) '115
        Response.Write ( "      <td height=""28"" colspan=""5""> <input name=""button"" type=""button"" onclick=""selectAll()"" value=""全选""> " & Chr ( 13 ) ) '116
        Response.Write ( "      <input name=""button"" type=""button"" onclick=""selectRev()"" value=""反选""> " & Chr ( 13 ) ) '117
        Response.Write ( "      <input name=""button"" type=""button"" onclick=""selectAll();selectRev()"" value=""全不选""> " & Chr ( 13 ) ) '118
        Response.Write ( "      <input name=""button"" type=""button"" onclick=""select_pl_submit('选择删除')"" value=""将所选删除"" " ) '119
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '119
            Response.Write ( "disabled" ) '119
        End If '119
        Response.Write ( "> " & Chr ( 13 ) ) '119
        Response.Write ( "      <input name=""button"" type=""button"" onclick=""select_pl_submit('选择置顶')"" value=""将所选置顶"" " ) '120
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '120
            Response.Write ( "disabled" ) '120
        End If '120
        Response.Write ( ">" & Chr ( 13 ) ) '120
        Response.Write ( "" & Chr ( 9 ) & "  <input name=""button"" type=""button"" onclick=""select_pl_submit('取消置顶')"" value=""将所选取消置顶"" " ) '121
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '121
            Response.Write ( "disabled" ) '121
        End If '121
        Response.Write ( ">" & Chr ( 13 ) ) '121
        Response.Write ( "" & Chr ( 9 ) & "  <input name=""button"" type=""button"" onclick=""select_pl_submit('选择推荐')"" value=""将所选推荐"" " ) '122
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '122
            Response.Write ( "disabled" ) '122
        End If '122
        Response.Write ( ">" & Chr ( 13 ) ) '122
        Response.Write ( "" & Chr ( 9 ) & "  <input name=""button"" type=""button"" onclick=""select_pl_submit('取消推荐')"" value=""将所选取消推荐"" " ) '123
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '123
            Response.Write ( "disabled" ) '123
        End If '123
        Response.Write ( ">" & Chr ( 13 ) ) '123
        Response.Write ( "" & Chr ( 9 ) & " </td>" & Chr ( 13 ) ) '124
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '125
        Response.Write ( "  </form>" & Chr ( 13 ) ) '126
        Response.Write ( "  <tr> " & Chr ( 13 ) ) '127
        Response.Write ( "    <td height=""1"" colspan=""5"" background=""../blogimages/dotbg.gif""><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '128
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '129
        Response.Write ( "  <tr class=""f12""> " & Chr ( 13 ) ) '130
        Response.Write ( "    <td colspan=""5"" height=""35""> " ) '131
        Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '131
        Response.Write ( "</td>" & Chr ( 13 ) ) '131
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '132
        Response.Write ( "  " ) '133
    Else '133
    Response.Write ( vbCrLf )
        Response.Write ( "  <tr class=""f12""> " & Chr ( 13 ) ) '134
        Response.Write ( "    <td colspan=""5"" height=""25"">你还没有任何文章</td>" & Chr ( 13 ) ) '135
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '136
        Response.Write ( "  " ) '137
    End If '137
    Response.Write ( vbCrLf )
    Response.Write ( "</table>" & Chr ( 13 ) ) '138
    Response.Write ( "</body>" & Chr ( 13 ) ) '139
    Response.Write ( "</html>" & Chr ( 13 ) ) '140
    closedb ( ) '141
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("userblog_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
    Public Property conn
        Get
            conn = ASPX_CONN.conn
        End Get
        Set(ByVal value)
            ASPX_CONN.conn = value
        End Set
    End Property
    Public Property qs
        Get
            qs = ASPX_CONN.qs
        End Get
        Set(ByVal value)
            ASPX_CONN.qs = value
        End Set
    End Property
    Public Property errc
        Get
            errc = ASPX_CONN.errc
        End Get
        Set(ByVal value)
            ASPX_CONN.errc = value
        End Set
    End Property
    Public Property iii
        Get
            iii = ASPX_CONN.iii
        End Get
        Set(ByVal value)
            ASPX_CONN.iii = value
        End Set
    End Property
    Public Property nothis
        Get
            nothis = ASPX_CONN.nothis
        End Get
        Set(ByVal value)
            ASPX_CONN.nothis = value
        End Set
    End Property
    Public Sub makeftbbstree(ByRef  ft )
        ASPX_CONN.makeftbbstree( ft )
    End Sub

    Public Sub CloseDb
        ASPX_CONN.CloseDb
    End Sub

    Public Sub SaveToFile( ByVal strBody,ByVal File )
        ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
    End Sub

    Public Function Checkstr(ByRef  AspToAspX_Str )
        Return ASPX_CONN.Checkstr( AspToAspX_Str )
    End Function

    Public Function CheckCharStr(ByRef  usernamepsw,ByRef flag )
        Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
    End Function

    Public Function ftbbs_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.ftbbs_msg( msg,reurl )
    End Function

    Public Function login_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.login_msg( msg,reurl )
    End Function

    Public Function FTBBS_HTML_MB(ByRef  ft )
        Return ASPX_CONN.FTBBS_HTML_MB( ft )
    End Function

    Public Function FTBBS_BZ_NAME(ByRef  BoardID_1,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
    End Function

    Public Function FTBBS_BZ_NAME2(ByRef  BoardID_1,ByRef BoardID_2,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
    End Function

    Public Function makefilename(ByRef  fname )
        Return ASPX_CONN.makefilename( fname )
    End Function

    Public Function GetExtendName(ByRef  FileName )
        Return ASPX_CONN.GetExtendName( FileName )
    End Function

    Public Function IsObjInstalled(ByRef  strClassString )
        Return ASPX_CONN.IsObjInstalled( strClassString )
    End Function

    Public Function ChkMapPath( ByVal strPath )
        Return ASPX_CONN.ChkMapPath( strPath )
    End Function

    Public Function userlogin(ByRef  ft )
        Return ASPX_CONN.userlogin( ft )
    End Function

    Public Function headhtml
        Return ASPX_CONN.headhtml
    End Function

    Public Function GetOpInfo(ByRef  AspToAspX_Str,ByRef Flag )
        Return ASPX_CONN.GetOpInfo( AspToAspX_Str,Flag )
    End Function

    Public Function getcode
        Return ASPX_CONN.getcode
    End Function

    Public Function codepass
        Return ASPX_CONN.codepass
    End Function

    Public Function Ftbbs_Time
        Return ASPX_CONN.Ftbbs_Time
    End Function

    Public Function ft_home(ByRef  defaulthome )
        Return ASPX_CONN.ft_home( defaulthome )
    End Function

    Public Function chkpost
        Return ASPX_CONN.chkpost
    End Function

    Public Function CodeCookie(ByRef  AspToAspX_Str )
        Return ASPX_CONN.CodeCookie( AspToAspX_Str )
    End Function

    Public Function DecodeCookie(ByRef  AspToAspX_Str )
        Return ASPX_CONN.DecodeCookie( AspToAspX_Str )
    End Function

    Public Function setcookie(ByRef  cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
        Return ASPX_CONN.setcookie( cookexpires,cookdomain,cookneme,cookvalue )
    End Function

    Public Function getcookie(ByRef  ckname )
        Return ASPX_CONN.getcookie( ckname )
    End Function

    Public Function clearcookie(ByRef  cookdomain,ByRef cookneme )
        Return ASPX_CONN.clearcookie( cookdomain,cookneme )
    End Function

    Public Function LoadFile( ByVal File )
        Return ASPX_CONN.ASPX_ADOSTREAM.LoadFile( File )
    End Function

    Public Function adminlogin(ByRef  ft )
        Return ASPX_ADMIN_CHECK_MASTER.adminlogin( ft )
    End Function

    Public Function pageclass(ByRef  totalpage,ByRef wzcount,ByRef wzrep,ByRef pagestr,ByRef root )
        Return ASPX_PAGEFUN.pageclass( totalpage,wzcount,wzrep,pagestr,root )
    End Function

#End Region
End Class