将asp页面导出到WORD

来源:互联网 发布:手机探鱼器软件 编辑:程序博客网 时间:2024/06/05 16:08

js代码

<script language="javascript"> 

function OpenWord()

Layer1.style.border
=0 

ExcelSheet 
= new ActiveXObject('word.Application'); 

ExcelSheet.Application.Visible 
= true

var mydoc=ExcelSheet.Documents.Add('',0,1); 

myRange 
=mydoc.Range(0,1

var sel=Layer1.document.body.createTextRange() 

sel.select() 

Layer1.document.execCommand(
'Copy'

sel.moveEnd(
'character'

myRange.Paste(); 

location.reload() 

ExcelSheet.ActiveWindow.ActivePane.View.Type
=9 

}
 

</script> 

html代码

 

<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 

<title>网页上内容导出到word</title> 

</head> 

<body> 

<div id="Layer1" > 

<input type=button name='button_export' title='导出到word' onclick=OpenWord() value=下载到word></div> 

</div> 

<table align="center" width="300" border="1" bordercolor="#2baeff" cellpadding="0" cellspacing="0" bgcolor="lightblue"> 

<Tr><Td>1</td><Td>2</td><Td>3</td></tr> 

<Tr><Td>4</td><Td>5</td><Td>6</td></tr> 

<Tr><Td>7</td><Td>8</td><Td>9</td></tr> 

</table> 

</body> 

</html> 
原创粉丝点击