vbscript 天啊。这太可怕了。但有时需要在旧版本中由于控件将其删除而无法删除jQuery。老实说，

Posted 2021-05-21

'Jquery reference code
Dim js = From file In Javascript.Files 
Where file.Key = "jquery"

if js.count > 0 then
Javascript.Files.Remove(js.First())
end if

Javascript.Files.Insert(0, New CMS_API.Utilities.Javascript.UrlJavascriptFileReference("/SiteElements/Scripts/jquery.js"))

'Note. If you're unlucky enough to be using the FontSizeSelector control, the above code won't work. You need to use the following in Custom Code;

Protected Sub Page_PreRenderComplete(ByVal sender As Object, ByVal e As System.EventArgs)

    Dim js = From file In Javascript.Files 
    Where file.Key = "jquery"
    
    if js.count > 0 then
        Javascript.Files.Remove(js.First())
    end if

    Javascript.Files.Insert(0, New CMS_API.Utilities.Javascript.UrlJavascriptFileReference("//ajax.googleapis.com/ajax/libs/jquery/1.7.2/jquery.min.js"))

End sub