用vb-script 把页面复制过去就行,我经常用的 <script language=vb-script> function CopyMeWord() dim app set app = createobject ("Word.Application") set x = app.documents.add() parent.moonpiazza.document.execCommand ("selectall") parent.moonpiazza.document.execCommand ("copy") parent.moonpiazza.document.execCommand ("unselect") app.Selection.Paste app.Visible = true app.Application.Visible = True end function </script>
<script language=vb-script>
function CopyMeWord()
dim app
set app = createobject ("Word.Application")
set x = app.documents.add()
parent.moonpiazza.document.execCommand ("selectall")
parent.moonpiazza.document.execCommand ("copy")
parent.moonpiazza.document.execCommand ("unselect")
app.Selection.Paste
app.Visible = true
app.Application.Visible = True
end function
</script>
比如你将下面的代码存成.doc看看<table cellspacing="0" align="center">
<tr>
<td class="info" align="center">...</td>
<td class="info">
<table cellspacing="0" width="100%">
<tr>
<td class="data1"><span>Name</span></td>
<td class="data2">Sample</td>
</tr>
<tr>
<td class="data1"><span>Tel</span></td>
<td class="data2">1234-5678</td>
</tr>
</table>
</td>
</tr>
</table>
response.setHeader("Content-Disposition",";filename=\treport.doc");加上就可行
response.setContentType("application/msword;charset=GB2312");
response.setHeader("Content-Disposition",";filename=\treport.doc");
意思是点一个按钮就保存成.doc文档(弹出保存的提示框)
意思是点一个按钮就保存成.doc文档(弹出保存的提示框)
------------------
直接用html就可以了
<a href="1.doc">Word</a>