-
您的位置：首页 → 网页设计 → ASP实例 → ASP生成Word文档的又一方法
ASP生成Word文档的又一方法
时间：2004/11/7 3:02:00来源：本站整理作者：蓝点我要评论(0)
-
在网上，利用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)%>
%>
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40";>
<%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%>
style='font-size:10.5pt'>
style='font-size:16.0pt;mso-bidi-font-size:12.0pt;line-height:175%'>阅报栏媒体查询单
lang=EN-US style='font-size:9.0pt;line-height:175%'>
lang=EN-US style='font-size:9.0pt;line-height:175%'>
查询编号：
style='mso-spacerun:yes'>
style='mso-spacerun:yes'><%=request("Temp_Id")%>
style='mso-spacerun:yes'>
lang=EN-US> 查询日期：
style='mso-spacerun:yes'><%=SearchDate%> _
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'>
solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>
style='mso-bidi-font-weight:normal'>日报编号
lang=EN-US>
none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;
padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>
style='mso-bidi-font-weight:normal'>区域
lang=EN-US>
none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;
padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>
style='mso-bidi-font-weight:normal'>路段名
lang=EN-US>
none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;
padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>
style='mso-bidi-font-weight:normal'>L/R
none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;
padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>
style='mso-bidi-font-weight:normal'>形式
lang=EN-US>
none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;
padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>
style='mso-bidi-font-weight:normal'>级别
lang=EN-US>
none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;
padding:0cm 5.4pt 0cm 5.4pt;height:17.25pt'>
style='mso-bidi-font-weight:normal'>详细位置
lang=EN-US>
<%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%>
none;mso-border-top-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt;
padding:0cm 5.4pt 0cm 5.4pt;height:15.0pt'>
style='font-size:9.0pt'><%=rs1("DailyNumber")%>071
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'>
style='font-size:9.0pt'><%=Area(rs1("Area"))%>
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'>
style='font-size:9.0pt'><%=rs1("RoadName")%>
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'>
style='font-size:9.0pt'><%=LeftRight1(rs1("LeftRight"))%>
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'>
style='font-size:9.0pt'><%=rs1("Form")%>
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'>
style='font-size:9.0pt'><%=rs1("PlaceLevel")%>
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'>
style='font-size:9.0pt'><%=rs1("PAddress")%>
<%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%>
style='font-size:9.0pt'>销售人：
lang=EN-US><%=UserName%> 制表时间：<%=Now%>
lang=EN-US style='font-size:9.0pt'>