hta实现的笨狼XSLT练习器(加载文本框)

<HTML>
<HEAD>
<TITLE>笨狼XSLT练习器_本站</TITLE>
<style>
body
{
font-size:12;
BACKGROUND:#DADADA;
margin-left:20;
} #blockXML
{ font-family:Verdana;
font-size:12px;
overflow:scroll;
height:400;
top:40;
left:20; }
input
{
width:350;
}
#blockXSL
{
POSITION:absolute;
font-family:Verdana;
font-size:12px;
overflow:scroll;
height:400;
top:40;
}
#showMe
{
font-family:Verdana;
font-size:12px;
height:100;
overflow:visible;
top:300;
left:20;
} </style>
</HEAD> <BODY>
<INPUTtype="file"id="fileXML"onchange="showXML();"/> XML 
<INPUTtype="file"id="fileXSL"onchange="showXSL();"/> XSL  
<buttononclick="parseXML();">开始转换</button>
<buttononclick="browse();">预览结果</button>
<textAreaid="blockXML"></textArea>
<textAreaid="blockXSL"></textArea>
<textAreaid="showMe"></textArea>
<SCRIPTLANGUAGE="JavaScript">
window.resizeTo(window.screen.availWidth,window.screen.availHeight);
window.moveTo(0,0);
blockXML.style.width=parseInt(window.screen.availWidth*0.46);
blockXSL.style.width=blockXML.style.width; blockXSL.style.left=parseInt(window.screen.availWidth*0.46)+30; showMe.style.width=parseInt(window.screen.availWidth*0.92)+10; varfso
fso=newActiveXObject("Scripting.FileSystemObject"); varxmldoc,xsldoc;
xmldoc=newActiveXObject("MSXML2.DOMDocument");
xsldoc=newActiveXObject("MSXML2.DOMDocument");
xmldoc.async=false;
xsldoc.async=false; functionbrowse()
{
varwin=window.open();
win.document.write(showMe.value);
} functionshowXML()
{//在文本框内加载XML
if(Validator(fileXML.value,"XML"))
{
if(fso.FileExists(fileXML.value))
{
varf=fso.GetFile(fileXML.value);
varts=f.OpenAsTextStream(1,-2);
vars="";
if(!ts.AtEndOfStream)
{
s=ts.ReadAll();
}
ts.Close();
blockXML.value=s;
fileXML.value="";
}
}
else
{
alert("XML格式错误！");
}
} functionshowXSL()
{//在文本框内加载XSL
if(Validator(fileXSL.value,"XSL")||Validator(fileXSL.value,"XSLT"))
{
if(fso.FileExists(fileXSL.value))
{
varf=fso.GetFile(fileXSL.value);
varts=f.OpenAsTextStream(1,-2);
vars="";
if(!ts.AtEndOfStream)
{
s=ts.ReadAll();
}
ts.Close();
blockXSL.value=s;
fileXSL.value="";
}
}
else
{
alert("XSL/XSLT格式错误！");
}
} functionValidator(inStr,outStr)
{//检查文件格式
varlast=inStr.match(/^(.*)(\.)(.{1,8})$/)[3];
last=last.toUpperCase();
if(last==outStr)
{
returntrue;
}
else
{
returnfalse;
} } functionparseXML()
{//解析
if(!blockXML.value||!blockXSL.value)
{
return
} if(!xmldoc.loadXML(blockXML.value))
{
alert("XML未加载成功！")
} if(!xsldoc.loadXML(blockXSL.value))
{
alert("XSL未加载成功！")
} vars=xmldoc.transformNode(xsldoc);
showMe.value=s; } </SCRIPT>
</BODY>
</HTML>