急需高手请教关于页面表格数据转换为WORD文档问题！

ccjh623 2010-05-24 01:02:58
下面是小弟编的页面表格数据转换为WORD文档的代码。
问题一表格上有图片格式JPG，为什么图片在页面上可以显示出来，转换为WORD就显示不出来，急需各位高手指教；
问题二小弟的页面表格数据是采用分页显示的，为什么转换为WORD文档时只转换第一页的页面表格数据而其他页的没转换，哪位高手能教下小弟怎样才能把页面数据全部转换为WORD，如果数据太多的话怎么才能使WORD分页显示。
<!--#include file="conn.asp"-->
<%
dim ljbh,ljmc,gxh
ljbh= Request.QueryString("ljbh")
ljmc=request.querystring("ljmc")
gxh=request.querystring("gxh")
%>
<%
Response.ContentType = "application/vnd.msword"
Response.AddHeader "Content-Disposition","attachment;filename="&gxh&".doc"
response.buffer=true
response.expires=0
%>
<%
' 注释：创建并初始化Recordset对象
Set rst = Server.CreateObject("ADODB.Recordset")
rst.ActiveConnection = Conn
rst.Source = "SELECT * FROM 过程卡1 where ljbh='" & ljbh & "' and ljmc='"&ljmc&"'"
rst.CursorType = 3 ' 指针类型为静态指针
rst.Open
if rst.EOF then
response.write("无纪录！")
else
rst.PageSize =1
If Request("DisplayPage") = "" then ' 没有DisplayPage参数
CurPage = 1 ' 定义要显示的页码
Else
CurPage = CInt(Request("DisplayPage"))
End if
For i = 1 to rst.PageSize
If rst.EOF then Exit For ' 没有记录时提前退出
%>

<table width="860" border="1" align="center">
<tr>
<td width="300" rowspan="2"><div align="center" class="STYLE1">工　序　卡　片</div></td>
<td height="20" colspan="2"><div align="center" class="STYLE5 STYLE5">共<% =rst.PageCount %>页</div></td>
<td colspan="2"><div align="center">第 页</div></td>
<%
sql="select * from gckxx where ljbh='" & ljbh & "' and ljmc='"&ljmc&"'"
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open sql,conn
%>
<td width="70"><div align="center" class="STYLE5 STYLE5">产品名称</div></td>
<td width="70"><div align="center" class="STYLE5 STYLE5"><%=RST("cpmc")%></div></td>
<td width="70"><div align="center" class="STYLE5 STYLE5">坯料牌号</div></td>
<td width="70"><div align="center" class="STYLE5 STYLE5"><%=RST("clmchph")%></div></td>
</tr>
<tr>
<%
dim sql1
sql1="select * from 过程卡1 where ljbh='" & ljbh & "' and ljmc='"&ljmc&"'and gxh='"&gxh&"'"
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open sql1,conn
%>
<td width="70" height="20"><div align="center" class="STYLE5 STYLE5">零件名称</div></td>
<td width="70"><div align="center" class="STYLE5 STYLE5"><%=RST("ljmc")%></div></td>
<td width="70"><div align="center" class="STYLE5 STYLE5">零件图号</div></td>
<td width="70"><div align="center" class="STYLE5 STYLE5"><%=RST("ljbh")%></div></td>
<td><div align="center" class="STYLE5 STYLE5">单　件</div></td>
<td><div align="center" class="STYLE5 STYLE5"><%=RST("djgsh")%></div></td>
<td><div align="center" class="STYLE5 STYLE5">辅　助</div></td>
<td><div align="center" class="STYLE5 STYLE5"><%=RST("zhjgsh")%></div></td>
</tr>
</table>
<table width="860" border="1" align="center">
<tr>
<td width="90" rowspan="2"><div align="center" class="STYLE3">第<%=RST("gxh")%>道工序</div></td>
<td width="50" rowspan="2"><div align="center" class="STYLE3">机床</div> <div align="center" class="STYLE3">设备</div></td>
<td width="50"><div align="center" class="STYLE3">名称</div></td>
<td width="110"><div align="center" class="STYLE3"><%=RST("jichuang")%></div></td>
<td width="50" rowspan="2"><div align="center" class="STYLE3">夹具</div> <div align="center" class="STYLE3">名称</div></td>
<td width="50"><div align="center" class="STYLE3">名称</div></td>
<td width="110"><div align="center" class="STYLE3"><%=RST("jiaju")%></div></td>
<td width="50"><div align="center" class="STYLE3">工序</div></td>
<td width="300" rowspan="2"><div align="center" class="STYLE3"><%=RST("jgneirong")%></div></td>
</tr>
<tr>
<td><div align="center" class="STYLE3">编号</div></td>
<td><div align="center" class="STYLE3"><%=RST("jichuangdaihao")%></div></td>
<td><div align="center" class="STYLE3">编号</div></td>
<td><div align="center" class="STYLE3"><%=RST("jiajudaihao")%></div></td>
<td><div align="center" class="STYLE3">内容</div></td>
</tr>
</table>

<table width="860" border="1" align="center">
<tr>
<td width="350" rowspan="19"><label><img src="images/<%=RST("tu")%>" width="330" height="400" alt="" /></label></td> 图片显示代码
<td width="30" rowspan="2"><div align="center" class="STYLE4">工</div>
<div align="center" class="STYLE4">步</div></td>
<td width="150" rowspan="2"><div align="center" class="STYLE4">工步内容</div></td>
<td width="110"><div align="center" class="STYLE4">刀　刃　具</div></td>
<td width="110"><div align="center" class="STYLE4">辅　　具</div></td>
<td width="110"><div align="center" class="STYLE4">量　　具</div></td>
</tr>
<tr>
<td><div align="center" class="STYLE4">名称及编号</div></td>
<td><div align="center" class="STYLE4">名称及编号</div></td>
<td><div align="center" class="STYLE4">名称及编号</div></td>
</tr>
<%
dim sql2
sql1="select * from 工序1 where ljbh='" & ljbh & "' and ljmc='"&ljmc&"'and gxh='"&gxh&"' and gb='1'"
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open sql1,conn
if rst.EOF then
%>
<tr>
<%
response.write("【该工序未编！】")
else
%>
<td height="30"><div align="center" class="STYLE4"><%=RST("gb")%></div></td>
<td height="30"><div align="center" class="STYLE4"><%=RST("gbneirong")%></div></td>
<td height="30"><div align="center" class="STYLE4"><%=RST("daoju")%><%=RST("daojudaihao")%></div></td>
<td height="30"><div align="center" class="STYLE4"><%=RST("jiaju")%><%=RST("jiajudaihao")%></div></td>
<td height="30"><div align="center" class="STYLE4"><%=RST("liangju")%><%=RST("liangjudaihao")%></div></td>
</tr>
<%
end if
%>
<%
dim sql3
sql1="select * from 工序1 where ljbh='" & ljbh & "' and ljmc='"&ljmc&"'and gxh='"&gxh&"' and gb='2'"
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open sql1,conn
if rst.EOF then
%>
<tr>
<td height="30"> </td>
<td height="30"> </td>
<td height="30"> </td>
<td height="30"> </td>
<td height="30"> </td>
</tr>
<%
else
%>
<tr>
<td height="30"><div align="center" class="STYLE4"><%=RST("gb")%></div></td>
<td height="30"><div align="center" class="STYLE4"><%=RST("gbneirong")%></div></td>
<td height="30"><div align="center" class="STYLE4"><%=RST("daoju")%><%=RST("daojudaihao")%></div></td>
<td height="30"><div align="center" class="STYLE4"><%=RST("jiaju")%><%=RST("jiajudaihao")%></div></td>
<td height="30"><div align="center" class="STYLE4"><%=RST("liangju")%><%=RST("liangjudaihao")%></div></td>
<%
end if
%>
</table>
<%
dim sql10
sql10="select * from gckxx where ljbh='" & ljbh & "' and ljmc='"&ljmc&"'"
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open sql10,conn
%>
<table width="860" border="1" align="center">
<tr>
<td width="460" rowspan="2"><div align="center" class="STYLE1">工艺设计管理系统</div></td>
<td width="200"><div align="center">编　　　　制</div></td>
<td width="200"><div align="center"><%=RST("shj")%></div></td>
</tr>
<tr>
<td><div align="center">审　　　　核</div></td>
<td width="200"><div align="center"><%=RST("shpy")%></div></td>
</tr>
</table>
<%
dim sql11
sql11="select * from 过程卡1 where ljbh='" & ljbh & "' and ljmc='"&ljmc&"' and gxh='"&gxh&"'"
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open sql11,conn
%>
<p align="center" class="STYLE1"> </p>
<label></label>
<%
rst.MoveNext
Next
end if
%>
<%
rst.Close ' 关闭记录集
Set rst = Nothing
Conn.Close ' 关闭数据库连接
Set Conn = Nothing
%>
</body>
</html>
...全文
135 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
碧海情天-赵亮 2010-05-24
至于数据太多，WORD分页显示的问题，无需操心，WORD自然自己会分页的。

图片的问题，是因为你使用的路径。看看“相对路径”“绝对路径”这种基础知识点就知道了。
你可以尝试一下，把IMAGES图片目录拷贝到WORD文档所在目录里看看行不行。
 回复 赞
碧海情天-赵亮 2010-05-24
你使用分页的话，HTML里本身就只包含数据第一页的内容，当然转换成的WORD也只包含第一页了……

解决方法：
1.直接取消分页，在HTML里返回全部数据并自动转换成WORD。
2.仍要显示第一分页数据给用户看。那就在“转换为WORD”按钮的事件里调用另一个ASP返回数据库全部数据再转换为WORD。此法两下兼得。
 回复 赞
相关推荐
WEB开发文档2 总结 http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载...显示数据下载中文名文件时保存文件名乱码问题关于用ASP.net绘图的问题...
CSDN回帖得分大全（近两年） √vs2005调用dll的时候Initialize()函数返回错误 [VC/MFC 基础类] 40 ylongwu 05-21 20:486 ylongwu06-28 13:42管理√为什么我创建登陆框之后，然后获取登陆框的数据时候总是出现非法操作！ [VC/MFC 界面] 40 ...
excel 问题，vba Excel问题集合
我在CSDN参与的3000个帖子 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
EXCEL难题一网打尽 无意间看到的 转过来 自己看看 引用问题我在excel中想实现这么一个功能，如单元格D12有一个数据是4，现在我想引用A4的数据，但4是由D12提供的，即如何实现A4=A(D12)。也就是，在Excel中，A7单元，能否实现把后面的数字用算式来代替，如A(3+4)，...
如何做职业规划并进行求职准备（持续更新） 有些公司的招聘由公司网站提供模板，有的是Word，有的是Excel，出现了表格空间不够的问题怎样处理好？ 9. 排版是不是必须按照常用模板做？ 10.实习中作为一个小角色，如何从该经历中挖掘出闪光点？ 11.自己的经历从...
seo相关文章 当必要时，应为当前任务提供数据对比功能（例如：商品比较） 任务顺序应当与用户日常工作顺序一致 网站可以保证用户的工作比不使用它时更轻松快捷 最重要的或经常使用的主题、特征或功能应放在页面...
打印机维修资料大全 问：我有一台HP5L打印机，打印普通的文稿没有问题，在打印一些小的文字的时候，比如说是报税用的文件，用 EXCEL 编辑的表格，文字比较小，打印出现这样的问题：在整页中有几个标点符号，字体打的比较大，而且不在...
壹佰智慧门店V2_1.1.41支持全终端的万能门店小程序 壹佰智慧门店V2_1.1.41支持全终端的万能门店小程序
festival-speechtools-devel-1.2.96-28.el7.i686.rpm 离线安装包，亲测可用
零花钱公约作文.pdf 零花钱公约作文.pdf
零售店如何搞好宣传赢得商机.pdf 零售店如何搞好宣传赢得商机.pdf
gnome-online-accounts-devel-3.28.0-1.el7.x86_64.rpm 离线安装包，亲测可用
libreoffice-langpack-ga-5.3.6.1-19.el7.x86_64.rpm 离线安装包，亲测可用
利用MRGT监控DNS服务器的负载.pdf 利用MRGT监控DNS服务器的负载.pdf
Qt-Pdf预览示例-采用QPrintPreviewWidget Qt程序内预览PDF文件，不采用外部第三方库。仅使用Qt内置的QPrinter,QPrintPreviewWidget，QPainter 实现pdf文件预览功能。同时支持放大，缩小功能
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2010-05-24 01:02
社区公告
暂无公告