求jsp中实现记事本中打开文件效果的程序

Question

a.jsp<%
String submit = request.getParameter("txt");
if(submit!=null&&!"".equals(submit.trim()))
{
out.println(submit);
}
%>
<form action="a.jsp" name="test">
<textarea name="txt" rows=2 cols=30></textarea>
<input type="button" onclick="window.open('new.jsp')" value="choose"><br>
<input type="submit" name="submit" value="submit">
</form>
-------------------------------------------------------------
new.jsp<script language="javascript">
function go()
{
window.opener.test.txt.value=select.demo.value;
window.close();
}
</script>
<form name="select">
<select name="demo">
    <option value="a">A</option>
    <option value="b">B</option>
    <option value="c">C</option>
</select>
<input type="button" value="save" onclick="go();">
</form>

Answer 1

打开Word文件拷贝内容到DIV层.<object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331" id="Microsoft_Licensed_Class_Manager_1_0">
<param name="LPKPath" value="/TemplateLib/ComDlg.lpk">
</object>
<object id=FileDialog style="left: 0px; TOP: 0px" classid="clsid:f9043c85-f6f2-101a-a3c9-08002b2f49fb">
<param name="_ExtentX" VALUE="847">
<param name="_ExtentY" VALUE="847">
<param name="_Version" VALUE="393216">
<param name="CancelError" VALUE="0">
<param name="Color" VALUE="0">
<param name="Copies" VALUE="1">
<param name="DefaultExt" VALUE="">
<param name="DialogTitle" VALUE="">
<param name="FileName" VALUE="">
<param name="Filter" VALUE="">
<param name="FilterIndex" VALUE="0">
<param name="Flags" VALUE="0">
<param name="FontBold" VALUE="0">
<param name="FontItalic" VALUE="0">
<param name="FontName" VALUE="">
<param name="FontSize" VALUE="8">
<param name="FontStrikeThru" VALUE="0">
<param name="FontUnderLine" VALUE="0">
<param name="FromPage" VALUE="0">
<param name="HelpCommand" VALUE="0">
<param name="HelpContext" VALUE="0">
<param name="HelpFile" VALUE="">
<param name="HelpKey" VALUE="">
<param name="InitDir" VALUE="">
<param name="Max" VALUE="0">
<param name="Min" VALUE="0">
<param name="MaxFileSize" VALUE="260">
<param name="PrinterDefault" VALUE="1">
<param name="ToPage" VALUE="0">
<param name="Orientation" VALUE="1"></object>
<script>
function OpenFile()
{
FileDialog.CancelError=true;
FileDialog.Filter="Word模板|*.doc|Word模板|*.dot";
FileDialog.ShowOpen();
var WordApp=new ActiveXObject("Word.Application");
WordApp.Application.Visible=false;
var Doc=WordApp.Documents.Open(FileDialog.filename);
Doc.Activate();
Doc.Parent.Options.InsertedTextColor=4;
Doc.Parent.Options.InsertedTextMark=2;
Doc.Parent.Options.DeletedTextColor=4;
Doc.Parent.Options.DeletedTextMark=1;
Doc.TrackRevisions=true;
Doc.PrintRevisions=true;
Doc.ShowRevisions=true;
Doc.Application.UserName="";
var Range=doc.Range();
Range.Select();
var Selection=WordApp.Selection;
Selection.Copy();
App.focus();
document.execCommand("Paste");
App.focus();
WordApp.DisplayAlerts=false;
Doc.Close();
WordApp.DisplayAlerts=true;
WordApp.Quit();
return false;
}
</script>
<div align=left id=App style="background-color:#FFFFFF;height:400px;overflow:auto;width:100%;z-index:2" contentEditable></div>
<input type=button value="打开文件" onclick="OpenFile()">
<input type=button value="保存文件" onclick="document.all.Body.value=App.innerHTML;">
<textarea id="Body">

Answer 2

如果单纯打开记事本可以用
function ExeRun(command)
{
window.oldOnError=window.onerror;
window._command=command;
window.onerror=function(err)
{
if(err.indexOf('utomation')!=-1)
{
alert("命令"+window._command+"已经被用户禁止!"); 
     return true;
}
else return false;
}
var wsh=new ActiveXObject("WScript.Shell");
if(wsh)
wsh.Run(command);
window.onerror=window.oldOnError;
}
执行ExeRun("Notepad")就可以了.

Answer 3

谢谢各位
to gjd111686(数字金刚):
  我把你的程序复制试了下，有问题啊
不能运行

Answer 4

<object id=FileDialog style="left: 0px; TOP: 0px" classid="clsid:f9043c85-f6f2-101a-a3c9-08002b2f49fb">
运行不成功:
1.IE级别设置
2.FileDialog组件是否存在[搜索Regedit]
3.ComDlg.lpk只要不在公网是不需要的.

Answer 5

还是没解决啊
请帮忙啊～～～～～～～～
还有，如果我导入一个表格进textarea中，那些表格的框线就都没了，那怎么办啊？