工作需要,asp和acc建的站。要把acc数据库中记录的图片路径和服务器指定目录下的图片导出到word文件中,服务器里这个路径下的图片文件也存在,导出的word文件这个图片不显示,怎么改呀。我是初学者,烦请指点。
点导出,出现错误:
���������� ���� '800a03f2'
ȱ�ٱ�ʶ��
/xxjf/admin/zrsDc.asp���� 46
printcode=printcode+"<P align=left><font face=���� size=3 color=#000080> �����ؽ�������������������(����)��</font><img src="./images/4cm.png"></p>"
导出代码如下:
<!--#include file="../conn/conn2.asp"-->
Response.Buffer = True
id = Cint(Request.QueryString("id"))
sql="select * from zrs where zrs_id="&request("Id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
special=trim(rs("special")) '年度
Zrsname=trim(rs("Zrs_name"))
Zrsqm=trim(rs("Zrs_qm")) '签名图片路径
'以下为具体内容
dim printcode
printcode="<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>责任书</title></head><body>"
printcode=printcode+"<p align=center><font face=黑体 size=5 color=#000080>"&special&"期末质量监测<br/></font></p>"
printcode=printcode+"<P align=left><font face=仿宋 size=3 color=#000080> 为认真做好"&special&"期末质量监测工作,确保监测工作万无一失,监测结果真实可信,云阳县教育质量评估与监测中心负责人与<b>测试场主任</b>签订本责任书。<br/> <b>一、责任内容</b><br/> (一)认真贯彻执行云阳县教育质量评估与监测中心制订的《"&special&"期末质量监测组织工作手册》,认真组织对监测工作相关人员的培训,切实做好学生信息核对、测试、答题卡封装等各环节工作,确保测试场纪律良好,秩序规范,监测结果公平公正、真实可信,圆满完成监测工作。<br/></p>"
printcode=printcode+"<P align=left><font face=仿宋 size=3 color=#000080>公章:<img src="images/4cm.png" width="50%" height="" style="vertical-align:middle"></font></p>"
'公章图片在images目录下,在导出的word文件中不显示。
printcode=printcode+"<P align=left><font face=仿宋 size=3 color=#000080>签名:</font>"&zrsqm&"</p>"
'这个签名图片路径在数据库中zrs_qm字段
printcode=printcode+"<P align=left><font face=仿宋 size=3 color=#000080> IP地址:"&ZrslfIP&" 签定时间:"&Zrstjtime&"</font></p>"
printcode=printcode+"</body></html>"
rs.close
set rs=nothing
fname="文件.doc"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(fname))
fout.WriteLine printcode
fout.close
'response.write printcode
response.redirect "文件.doc"
link="<A HREF="&fname&"><font color=red>导出文件</font></a>"
Response.write link
%>