ASP生成WORD文档的又一方式-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

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>
<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="create_doc/filelist.xml">
<link rel=Edit-Time-Data href="create_doc/editdata.mso">
<link rel=OLE-Object-Data href="create_doc/oledata.mso">

<style>

</style>

</head>

<body lang=ZH-CN style=\\\'tab-interval:21.0pt\\\'>

<div class=Section1>
<%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%>
<o:p> </o:p>

阅报栏媒体查询单<o:p></o:p>

<o:p> </o:p>

查询编号： <%=request("Temp_Id")%> 查询日期：
 <%=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\\\'>
<tr style=\\\'mso-yfti-irow:0;height:17.25pt\\\'>
<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\\\'>
日报编号<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\\\'>
区域<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\\\'>
路段名<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\\\'>
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\\\'>
形式<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\\\'>
级别<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\\\'>
具体位置<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%>
<tr style=\\\'mso-yfti-irow:1;mso-yfti-lastrow:yes;height:15.0pt\\\'>
<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\\\'>
<%=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\\\'>
<%=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\\\'>
<%=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\\\'>
<%=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\\\'>
<%=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\\\'>
<%=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\\\'>
<%=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>

销售人：<%=UserName%>　　制表时间：<%=Now%> <o:p></o:p>
</div>

</body>

</html>

返回类别: 教程
上一教程: GOOGLE PR值查询程序
下一教程: 利用ASP存取各种常用类型数据库(3)

您可以阅读与"ASP生成WORD文档的又一方式"相关的教程:
· 利用ASP生成EXECL文档
· 用XSL.ASP编辑XML文档(1)
· 避免表单的重复提交又一方式（js）
· ASP无组件BMP汉字生成类+汉字点阵库
· 用ASP怎样编写文档搜索页面(4)


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接