ASP生成Word文档的又一方法

在网上，利用Asp生成Word文档的方法实在不少，最常见到的方法就是利用Word生成.dot的文档，再用Asp向.dot文档中传递宏，这种方法虽好，但实现起来非常复杂，而且不能循环生成表格。

在实际应用中，我总结出来一种新的生成Word文件的方法，生成的Word文件有页眉、页角，现拿出一例与大家探讨。

实现：

我的解决办法，用Word XP(其他版本还没有试过)制作表格，将做好的Word表格转换为HTML文档，在用ASP控制转换后HTML文档。

页眉、页角的解决办法，在转换带Word页眉、页角的DOC文档后会在转换的HTML文件附加一个文件夹，内有页眉、页角文件及图片，只要在HTML文件的相应位置改变其路径为服务器路径即可。用户打开并ASP生成的Word文件后，Word会自动提示将这些文件保存。

看下面的Word转换后的HTML文，我用ASP加以简单控制：

<% Response.ContentType = "application/msword" %>

<%response.buffer=false

response.expires=0

call Check_Logout()

call check_state()

call Privilege(6)

call Log_Action("访问","销售编号打印","打印临时销售编号"&request("Temp_Id"),1)%>

<html xmlns:v="urn:schemas-microsoft-com:vml"

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>

<!--[if gte mso 9]><xml>

<o:DocumentProperties>

<o:Author>Administrator</o:Author>

<o:LastAuthor>Administrator</o:LastAuthor>

<o:Revision>34</o:Revision>

<o:TotalTime>26</o:TotalTime>

<o:LastPrinted>2002-11-06T05:54:00Z</o:LastPrinted>

<o:Created>2002-11-06T04:56:00Z</o:Created>

<o:LastSaved>2002-11-06T05:55:00Z</o:LastSaved>

<o:Pages>1</o:Pages>

<o:Words>98</o:Words>

<o:Characters>562</o:Characters>

<o:Company>shine</o:Company>

<o:Lines>4</o:Lines>

<o:Paragraphs>1</o:Paragraphs>

<o:CharactersWithSpaces>659</o:CharactersWithSpaces>

<o:Version>10.2625</o:Version>

</o:DocumentProperties>

</xml><![endif]--><!--[if gte mso 9]><xml>

<w:WordDocument>

<w:View>Print</w:View>

<w:SpellingState>Clean</w:SpellingState>

<w:GrammarState>Clean</w:GrammarState>

<w:Compatibility>

<w:UseFELayout/>

</w:Compatibility>

<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>

</w:WordDocument>

</xml><![endif]-->

<style>

<!--

/* Font Definitions */

@font-face

{font-family:宋体;

panose-1:2 1 6 0 3 1 1 1 1 1;

mso-font-alt:SimSun;

mso-font-charset:134;

mso-generic-font-family:auto;

mso-font-pitch:variable;

mso-font-signature:3 135135232 16 0 262145 0;}

@font-face

{font-family:"\@宋体";

panose-1:2 1 6 0 3 1 1 1 1 1;

mso-font-charset:134;

mso-generic-font-family:auto;

mso-font-pitch:variable;

mso-font-signature:3 135135232 16 0 262145 0;}

/* Style Definitions */

p.MsoNormal, li.MsoNormal, div.MsoNormal

{mso-style-parent:"";

margin:0cm;

margin-bottom:.0001pt;

mso-pagination:widow-orphan;

font-size:12.0pt;

font-family:宋体;

mso-bidi-font-family:宋体;}

p.MsoHeader, li.MsoHeader, div.MsoHeader

{margin:0cm;

margin-bottom:.0001pt;

text-align:center;

mso-pagination:widow-orphan;

tab-stops:center 207.65pt right 415.3pt;

layout-grid-mode:char;

border:none;

mso-border-bottom-alt:solid windowtext .75pt;

padding:0cm;

mso-padding-alt:0cm 0cm 1.0pt 0cm;

font-size:9.0pt;

font-family:宋体;

mso-bidi-font-family:宋体;}

p.MsoFooter, li.MsoFooter, div.MsoFooter

{margin:0cm;

margin-bottom:.0001pt;

mso-pagination:widow-orphan;

tab-stops:center 207.65pt right 415.3pt;

layout-grid-mode:char;

font-size:9.0pt;

font-family:宋体;

mso-bidi-font-family:宋体;}

span.GramE

{mso-style-name:"";

mso-gram-e:yes;}

@page Section1

{size:595.3pt 841.9pt;

margin:44.95pt 90.0pt 72.0pt 90.0pt;

mso-header-margin:42.55pt;

mso-footer-margin:49.6pt;

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'***********************************************************************

'页眉页角的位置

'***********************************************************************

<%DocPath="

http://";&request.ServerVariables("Remote_Host")&"/bacmda/create_doc/"%>

mso-header:url("<%=DocPath%>header.htm") h1;

mso-footer:url("<%=DocPath%>header.htm") f1;

mso-paper-source:0;}

div.Section1

{page:Section1;}

-->

</style>

<!--[if gte mso 10]>

<style>

/* Style Definitions */

table.MsoNormalTable

{mso-style-name:普通表格;

mso-tstyle-rowband-size:0;

mso-tstyle-colband-size:0;

mso-style-noshow:yes;

mso-style-parent:"";

mso-padding-alt:0cm 5.4pt 0cm 5.4pt;

mso-para-margin:0cm;

mso-para-margin-bottom:.0001pt;

mso-pagination:widow-orphan;

font-size:10.0pt;

font-family:"Times New Roman";

mso-fareast-font-family:"Times New Roman";}

table.MsoTableGrid

{mso-style-name:网格型;

mso-tstyle-rowband-size:0;

mso-tstyle-colband-size:0;

border:solid windowtext 1.0pt;

mso-border-alt:solid windowtext .5pt;

mso-padding-alt:0cm 5.4pt 0cm 5.4pt;

mso-border-insideh:.5pt solid windowtext;

mso-border-insidev:.5pt solid windowtext;

mso-para-margin:0cm;

mso-para-margin-bottom:.0001pt;

mso-pagination:widow-orphan;

font-size:10.0pt;

font-family:"Times New Roman";}

</style>

<![endif]--><!--[if gte mso 9]><xml>

<o:shapedefaults v:ext="edit" spidmax="5122"/>

</xml><![endif]--><!--[if gte mso 9]><xml>

<o:shapelayout v:ext="edit">

<o:idmap v:ext="edit" data="1"/>

</o:shapelayout></xml><![endif]-->

</head>

<%set rs=server.createobject("ADODB.RecordSet")

sql="select * from T_Temp where Temp_ID="&request("Temp_Id")

rs.open sql,cstr(conn),1,1

SearchDate=rs("CreateTime")

rs.close

sql="select * from T_TempReadnews where R_Temp_Id="&request("Temp_Id")&" Order by TempReadnews_Id DESC"

rs.open sql,cstr(conn),1,1%>

<span lang=EN-US

style='font-size:10.5pt'><o:p> </o:p>

<span

style='font-size:16.0pt;mso-bidi-font-size:12.0pt;line-height:175%'>阅报栏媒体查询单<span

lang=EN-US style='font-size:9.0pt;line-height:175%'><o:p></o:p>

<span

lang=EN-US style='font-size:9.0pt;line-height:175%'><o:p> </o:p>

查询编号：<span

style='mso-spacerun:yes'> <span

style='mso-spacerun:yes'><%=request("Temp_Id")%> <span

style='mso-spacerun:yes'> <span

lang=EN-US> 查询日期：

<span

style='mso-spacerun:yes'><%=SearchDate%> _<o:p></o:p>

<table class=MsoTableGrid border=1 cellspacing=0 cellpadding=0

style='border-collapse:collapse;border:none;mso-border-alt:solid windowtext .5pt;

mso-yfti-tbllook:480;mso-padding-alt:0cm 5.4pt 0cm 5.4pt;mso-border-insideh:

.5pt solid windowtext;mso-border-insidev:.5pt solid windowtext'>

<td width=71 style='width:53.25pt;border:solid windowtext 1.0pt;mso-border-alt:

solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>

<b

style='mso-bidi-font-weight:normal'>日报编号<span

lang=EN-US><o:p></o:p>

</td>

<td width=56 style='width:42.15pt;border:solid windowtext 1.0pt;border-left:

none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;

padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>

<b

style='mso-bidi-font-weight:normal'>区域<span

lang=EN-US><o:p></o:p>

</td>

<td width=72 style='width:54.0pt;border:solid windowtext 1.0pt;border-left:

none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;

padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>

<b

style='mso-bidi-font-weight:normal'>路段名<span

lang=EN-US><o:p></o:p>

</td>

<td width=36 style='width:27.0pt;border:solid windowtext 1.0pt;border-left:

none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;

padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>

<b

style='mso-bidi-font-weight:normal'>L/R<o:p></o:p>

</td>

<td width=48 style='width:36.0pt;border:solid windowtext 1.0pt;border-left:

none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;

padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>

<b

style='mso-bidi-font-weight:normal'>形式<span

lang=EN-US><o:p></o:p>

</td>

<td width=48 style='width:36.0pt;border:solid windowtext 1.0pt;border-left:

none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;

padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>

<b

style='mso-bidi-font-weight:normal'>级别<span

lang=EN-US><o:p></o:p>

</td>

<td width=189 style='width:141.7pt;border:solid windowtext 1.0pt;border-left:

none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;

padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>

<b

style='mso-bidi-font-weight:normal'>详细位置<span

lang=EN-US><o:p></o:p>

</td>

</tr>

<%set rs1=server.createobject("ADODB.RecordSet")

do while not rs.eof

sql1="select * from T_Readnews where Readnews_Id="&rs("R_Readnews_Id")

rs1.open sql1,cstr(conn),1,1%>

<td width=71 style='width:53.25pt;border:solid windowtext 1.0pt;border-top:

none;mso-border-top-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;

padding:0cm 5.4pt 0cm 5.4pt;height:15.0pt'>

<span lang=EN-US

style='font-size:9.0pt'><%=rs1("DailyNumber")%>071<o:p></o:p>

</td>

<td width=56 style='width:42.15pt;border-top:none;border-left:none;

border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;

mso-border-top-alt:solid windowtext .5pt;mso-border-left-alt:solid windowtext .5pt;

mso-border-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:15.0pt'>

<span

style='font-size:9.0pt'><%=Area(rs1("Area"))%><o:p></o:p>

</td>

<td width=72 style='width:54.0pt;border-top:none;border-left:none;border-bottom:

solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;mso-border-top-alt:

solid windowtext .5pt;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:

solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:15.0pt'>

<span

style='font-size:9.0pt'><%=rs1("RoadName")%><o:p></o:p>

</td>

<td width=36 style='width:27.0pt;border-top:none;border-left:none;border-bottom:

solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;mso-border-top-alt:

solid windowtext .5pt;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:

solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:15.0pt'>

<span lang=EN-US

style='font-size:9.0pt'><%=LeftRight1(rs1("LeftRight"))%><o:p></o:p>

</td>

<td width=48 style='width:36.0pt;border-top:none;border-left:none;border-bottom:

solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;mso-border-top-alt:

solid windowtext .5pt;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:

solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:15.0pt'>

<span lang=EN-US

style='font-size:9.0pt'><%=rs1("Form")%><o:p></o:p>

</td>

<td width=48 style='width:36.0pt;border-top:none;border-left:none;border-bottom:

solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;mso-border-top-alt:

solid windowtext .5pt;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:

solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:15.0pt'>

<span lang=EN-US

style='font-size:9.0pt'><%=rs1("PlaceLevel")%><o:p></o:p>

</td>

<td width=189 style='width:141.7pt;border-top:none;border-left:none;

border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;

mso-border-top-alt:solid windowtext .5pt;mso-border-left-alt:solid windowtext .5pt;

mso-border-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:15.0pt'>

<span

style='font-size:9.0pt'><%=rs1("PAddress")%>

</td>

</tr>

<%rs1.close

rs.movenext

loop

rs.close

sql="select * from T_Temp where Temp_Id="&request("Temp_Id")

rs.open sql,cstr(conn),1,1

User_Id=rs("R_User_Id")

rs.close

sql="select * from T_User where User_Id="&User_Id

rs.open sql,cstr(conn),1,1

UserName=rs("TrueName")

rs.close

set rs=nothing

set rs1=nothing%>

</table>

<span

style='font-size:9.0pt'>销售人：<span

lang=EN-US><%=UserName%>制表时间：<%=Now%> <span

lang=EN-US style='font-size:9.0pt'><o:p></o:p>

</div>

</body>

</html>