请问下哪里有这个函数啊？loaderFile(path)
我在javascript中用的，加载Flash时用的，但是必须要用alert()输出后才能加载得起这个Flash，不然就加载不起，报错说：对象不支持此属性或方法！
我百度了   都收不到这个方法！

代码发出来。不需要什么ALERT（），没有这种说法的，只要有对应的插件即可！

<%
function loadFile(xmlfile,xslfile)
Dim xmlDoc,xslDoc

'加载 XML 文件
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load(xmlfile)

'加载 XSL 文件
set xslDoc = Server.CreateObject("Microsoft.XMLDOM")
xslDoc.async = false
xslDoc.load(xslfile)

'转换文件
Response.Write(xmlDoc.transformNode(xslDoc))
end function

function updateFile(xmlfile)
Dim xmlDoc,rootEl,f
Dim i

'加载 XML 文件
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load(xmlfile)

'设置 rootEl 变量为根元素
Set rootEl = xmlDoc.documentElement

'循环遍历 form 集
for i = 1 To Request.Form.Count
   '除去表单中的按钮元素
   if instr(1,Request.Form.Key(i),"btn_")=0 then
   'selectSingleNode 方法可查询匹配某个查询的 XML 文件中的某个单一节点。
   '此查询会请求 value 元素，此 value 元素是 field 元素的子元素，
   '而此 field 元素拥有可匹配表单集中当前 key 值的 id 属性。
   '如果存在匹配，则设置 text 属性为表单集中当前域的值。
   set f = rootEl.selectSingleNode("field[@id='" & _
   Request.Form.Key(i) & "']/value")
   f.Text = Request.Form(i)
   end if
next

'保存已修改的 XML 文件
xmlDoc.save xmlfile

'释放所有的对象引用
set xmlDoc=nothing
set rootEl=nothing
set f=nothing

'通过一个样式表加载已修改的 XML 文件，这样客户端就可以看到所编辑的信息
loadFile xmlfile,server.MapPath("tool_updated.xsl")
end function

'如果表单已被提交，则更新XML文件并显示结果，如果没有被提交，则转换此 XML 文件以供编辑
if Request.Form("btn_sub")="" then
loadFile server.MapPath("tool.xml"),server.MapPath("tool.xsl")
else
updateFile server.MapPath("tool.xml")
end if
%>

参考一下这里