Сообщение от :
<script language="vbscript">
sub LoadX_L(xml, filename)
on error resume next
xml.async = false
xml.load filename
end sub
sub LoadXSL(xsl)
LoadX_L xsl, "C:\DOCUME~1\9335~1\LOCALS~1\Temp\{D7482EE3-84A8-494E-9CBB-725DE49C2E45}.xsl"
end sub
sub LoadXML(xml)
LoadX_L xml, "C:\DOCUME~1\9335~1\LOCALS~1\Temp\{31F3C823-B72A-4C23-888A-9A779B03B167}.xml"
end sub
sub SetUrl(xsl, no, url)
Dim node
Set node = xsl.selectSingleNode("//xsl:variable[@name='ScoreLookup']/c[@score=" & no & "]")
node.setAttribute("url") = "res://C:\Program Files\WebMoney\WMClient.dll/" & url
end sub
</script>
Сообщение от dn2k4:
Что возвращает XCreateObject("MSXML2.DOMDocument") ?
Сообщение от dn2k4:
Да, и еще - vbscript работает только в IE
Сообщение от xxx-men:
окошко "Watch 1",
Сообщение от :
<html>
<body>
<script type="text/vbscript" language="vbscript">
sub LoadX_L(xml, filename)
on error resume next
xml.async = false
xml.load filename
msgbox("Here!")
end sub
sub LoadXSL(xsl)
LoadX_L xsl, "C:\1.xsl"
end sub
sub LoadXML(xml)
LoadX_L xml, "C:\1.xml"
end sub
</script>
<script language="javascript">
function XCreateObject(str) {
return document;
}
</script>
<script type="text/javascript" language="javascript">
var xml = XCreateObject("MSXML2.DOMDocument");
LoadXML(xml);
</script>
</body>
</html>
Сообщение от dn2k4:
настройки безопасности зоны еще посмотри
Сообщение от dn2k4:
"Элементы ActiveX и модули подключения" по моему... И еще "Разрешать запуск активного содержимого файлов" в "Дополнительно"