asp生成word文档

今天在处理一个在线申请功能时候，需要生成word文档。在网上找了些资料学习，终于成功了。下面是个简单的例子。其中程序包括index.htm,createdoc.asp。在之前你需要做一个word模板，并另存为web页。然后则是处理web页的代码：

1、用“记事本”的方式打开你的web页，并复制所有的代码。

2、新建一个word，将上一步复制好的代码粘贴进来,然后按住ctrl+F，点“替换”标签，点“高级”，查找内容里填“特殊字符”的“段落标记”，替换为填“特殊字符”的“不间断空格”，全部替换即可。然后复制全部的字符（ctrl+a,ctrl+c即可）。

3、使用dreamweaver打开createdoc.asp，把东西复制在myString=""的两个引号之间。选择上刚你复制过来的所有字符,ctrl+F，查找范围选择为“所选文字”，查找内容填一个双引号"，替换为填两个双引号""，全部替换即可。(这样是因为需要输出双引号。在asp的输出中两个双引号等于输出一个双引号，起到了转义的效果。)

说明：网上查询的资料是在word中替换好了双引号，可我好几次都出现了错误未能成功，所以干脆到

dreamweaver中去替换）

注：打开生成的这个word文档，如果发现是以“web视图”的方式打开的，只要在你的myString里找<w:WordDocument>，在后面加上<w:View>Print</w:View>，那么就会以“页面视图”打开了。

附：

word文档模板：

index.htm:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"

"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>无标题文档</title>

</head>

<body>

<tr>

</tr>

<tr>

</tr>

</table>

</form>

</body>

</html>

createdoc.asp:

myname=request.Form("myname")

mycontent=request.Form("mycontent")

dim fso,myfile

set fso=Server.CreateObject("Scripting.FileSystemObject")

sfilename=myname&".doc"

set myfile=fso.CreateTextFile(Server.MapPath(".")&"\word"&sfilename,True)

mystring="<html xmlns:o=""urn:schemas-microsoft-com:office:office"" xmlns:w=""urn:schemas-microsoft-com:office:word"" xmlns=""http://www.w3.org/TR/REC-html40""> <head> <meta http-equiv=Content-Type content=""text/html; charset=gb2312""> <meta name=ProgId content=Word.Document> <meta name=Generator content=""Microsoft Word 10""> <meta name=Originator content=""Microsoft Word 10""> <link rel=File-List href=""temp.files/filelist.xml""> <title>姓名</title>  <style>  </style>  </head> <body style='tab-interval:28px;text-justify-trim:punctuation'> <div style='layout-grid:21px'> <table border=1 cellspacing=0 cellpadding=0 style='border-collapse:collapse;border:none;mso-border-alt:solid windowtext 1px; mso-yfti-tbllook:480;mso-padding-alt:0 7px 0 7px;mso-border-insideh: 1px solid windowtext;mso-border-insidev:1px solid windowtext'> <tr style='mso-yfti-irow:0'> <td width=103 valign=top style='width:103px;border:solid windowtext 1px; mso-border-alt:solid windowtext 1px;padding:0 7px 0 7px'> <p><span style='font-family:宋体;mso-ascii-font-family:""Times New Roman""; mso-hansi-font-family:""Times New Roman""'>姓名</span></p> </td> <td width=465 valign=top style='width:465px;border:solid windowtext 1px; border-left:none;mso-border-left-alt:solid windowtext 1px;mso-border-alt: solid windowtext 1px;padding:0 7px 0 7px'> <p><span>$name$</span></p> </td> </tr> <tr style='mso-yfti-irow:1;mso-yfti-lastrow:yes'> <td width=103 valign=top style='width:103px;border:solid windowtext 1px; border-top:none;mso-border-top-alt:solid windowtext 1px;mso-border-alt:solid windowtext 1px; padding:0 7px 0 7px'> <p><span style='font-family:宋体;mso-ascii-font-family:""Times New Roman""; mso-hansi-font-family:""Times New Roman""'>个人资料</span></p> </td> <td width=465 valign=top style='width:465px;border-top:none;border-left: none;border-bottom:solid windowtext 1px;border-right:solid windowtext 1px; mso-border-top-alt:solid windowtext 1px;mso-border-left-alt:solid windowtext 1px; mso-border-alt:solid windowtext 1px;padding:0 7px 0 7px'> <p><span>$content$</span></p> </td> </tr> </table> <p><span><o:p> </o:p></span></p> </div> </body> </html>" 'word文档模板另存为web页后经过处理了的所有字符

mystring=replace(mystring,"$name$",myname) '$name$为word文档模板中需要输入的内容之一

mystring=replace(mystring,"$content$",mycontent)'$content$为word文档模板中需要输入的内容之一

myfile.WriteLine(mystring)

myfile.close

set myfile=nothing

set fso=nothing

当前分类：IT互联网

asp生成word文档

相关文章：

热门文章