ASP.NET自定义控件 - 仅包括一次嵌入式CSS参考的最佳方法是什么？

Question

问题：我将CSS文件嵌入具有多个控件的自定义控件库中。我想为所有控件共享相同的CSS文件，无论给定表单上有多少个实例。当表单上有多个控件时，我想准确地提到ASP.NET页面HTML标题中的CSS文件。

这是我想到的（到目前为止）：

Public Sub IncludeStyles(ByVal Page As System.Web.UI.Page)
    'Don't include the reference if it already exists...
    If Page.Header.FindControl("MyID") Is Nothing Then
        Dim cssUrl As String = Page.ClientScript.GetWebResourceUrl(GetType(Common), StylePath)

        Dim css As New System.Web.UI.HtmlControls.HtmlGenericControl("link")
        With css
            .Attributes.Add("rel", "stylesheet")
            .Attributes.Add("type", "text/css")
            .Attributes.Add("href", cssUrl)
            .ID = "MyID"
        End With

        Page.Header.Controls.Add(css)
    End If
End Sub

好的，它有效...但是，这里明显的缺陷是使用findcontrol（）来查看控件是否存在于表单上。尽管我正在使用命名容器，但似乎仍然在起作用，但我敢肯定有某种方法可以打破它。在具有相同ID的表单上添加另一个控件肯定是一个...

问题：确保仅将标头控制仅添加到HTML标头的更好方法是什么？

注意：clientcript.registerclientscriptresource（）方法具有接受.NET类型的参数，并且可以使用此类型来确保代码仅输出一次。不幸的是，此方法仅适用于JavaScript文件参考。如果CSS参考有内置的等效词，那将是我的偏爱。

更新：

我发现了一种更优雅的方法来执行此操作在这里通过使用page.clientscript.registerclientscriptblock并告诉您您包括自己的脚本标签，但是正如里克指出的那样，这不会将脚本添加到HTML HEAD标签中，并且也不符合XHTML符合XHTML。

更新2：

我在此线程，但是通过控件集合循环并不是一个很好的解决方案，如果您在页面上有几个参考和几个控件，则会添加很多开销。

克里斯·莱弗利（Chris Lively）提出了一个更好的解决方案，需要更少的代码。这是我的功能随着新解决方案而更改：

Public Sub IncludeStyles(ByVal Page As System.Web.UI.Page)
    If Not Page.ClientScript.IsClientScriptBlockRegistered(StyleName) Then
        Dim cssUrl As String = Page.ClientScript.GetWebResourceUrl(GetType(Common), StylePath)

        Dim css As New System.Web.UI.HtmlControls.HtmlGenericControl("link")
        With css
            .Attributes.Add("href", cssUrl)
            .Attributes.Add("rel", "stylesheet")
            .Attributes.Add("type", "text/css")
        End With

        Page.Header.Controls.Add(css)
        Page.ClientScript.RegisterClientScriptBlock(GetType(Page), StyleName, "")
    End If
End Sub

有关此解决方案的几件事。在他的原始帖子中，克里斯使用了isclientscriptIncludereGistered（）方法，该方法不是registerclientscriptblock（）方法的相应方法。为了正确制定此功能，必须使用isclientscriptBlockregistered（）进行测试。

另外，请仔细注意将传递给registerClientscriptBlock（）的类型。我将自定义数据类型传递给了此方法（在我的所有控件中相同），但是它并未以isclientsblockreded（）测试的方式注册。为了使其功能，必须将当前页面对象作为类型参数传递。

尽管诚然，该解决方案感觉有点像一个黑客，但a）不需要大量代码或开销，b）b）在页面上完全产生所需的输出，c）c）符合XHTML兼容的代码。

Answer 1

为了防止从服务器控件发出 css 文件时出现重复，我们执行以下操作：

if (!Page.ClientScript.IsClientScriptBlockRegistered("SoPro." + id)) {
    HtmlLink cssLink = new HtmlLink();
    cssLink.Href = cssLink.Href = Page.ClientScript.GetWebResourceUrl(this.GetType(), styleSheet);
    cssLink.Attributes.Add("rel", "stylesheet");
    cssLink.Attributes.Add("type", "text/css");
    this.Page.Header.Controls.Add(cssLink);
    this.Page.ClientScript.RegisterClientScriptBlock(typeof(System.Web.UI.Page), "SoPro." + id, String.Empty);
}

首先，我们测试指定的脚本是否先前已注册。如果没有，我们将其添加进去。

Answer 2

我不知道为什么，但你的解决方案对我不起作用，ClientScript.IsClientScriptBlockRegistered 调用总是返回 false。但是约翰·布莱索对您已经提供的链接的建议（

public static void IncludeStylesheet(Page page, string href, string styleID)
{
    //Prevent the stylesheet being included more than once
     styleID = "_" + styleID;
    if (HttpContext.Current.Items[styleID] == null)
    {
        HtmlLink htmlLink = new HtmlLink();
        htmlLink.Href = href;
        htmlLink.Attributes.Add("rel", "stylesheet");
        htmlLink.Attributes.Add("type", "text/css");
        page.Header.Controls.Add(htmlLink);
        HttpContext.Current.Items[styleID] = true;
    }
}

Answer 3

为什么不在控件中创建一个私有布尔变量，在最初创建 CSS 时将其设置为 true。然后，您可以在调用该方法时检查此内容，以查看 css 是否已设置。下面的例子（我的VB很生锈，所以可能有点错误）

Private _hasCss As Boolean = False

Public Sub IncludeStyles(ByVal Page As System.Web.UI.Page)
    'Don't include the reference if it already exists...
    If Not _hasCss Then
        Dim cssUrl As String = Page.ClientScript.GetWebResourceUrl(GetType(Common), StylePath)

        Dim css As New System.Web.UI.HtmlControls.HtmlGenericControl("link")
        With css
            .Attributes.Add("rel", "stylesheet")
            .Attributes.Add("type", "text/css")
            .Attributes.Add("href", cssUrl)
            .ID = "MyID"
        End With

        Page.Header.Controls.Add(css)
        _hasCss = True

    End If
End Sub