<!--#include file="ConnSql.asp"-->
<!--作者：谌忠辉 -->
<!--时间：2004-03-22 -->
<!--修改人：谌忠辉 -->
<!--修改时间：2004-03-22 --><html>
<head>
<title>信封报表打印</title>
</head>
<script language="javascript" src="js/Screen.js"></script>
</head>
<body>
<br>
<%
'等到文本缓冲完才显示
dim yb(6)
response.buffer = true
crmid=request("Crm_Id")
sql="select Crm_Id,Crm_Xm,Crm_Xxdz,Crm_GzDw,Crm_Yb from Crm_KhXx where Crm_Id="&crmid
set rs=Conn.DoExecute(sql)
If (Rs.RecordCount=0) Then
response.Write "<script language=javascript>alert('没有你所要的数据！');history.go(-1);</script>"
response.End
else
Crm_Yb=rs("Crm_Yb")
for i=0 to 5
yb(i)=mid(Crm_Yb,i+1,1)
next
'告诉浏览器用word来显示文档内容
Response.ContentType = "application/msword"
'文档设定
response.AddHeader "content-disposition", "inline; filepassword=KhXf.doc"
%>
<div align="center">
<table border="0" width="600" >邮政编码：350002 </font></p>
</td>
</tr>
</table>
</div>
</body>
</html><% '关闭记录集
rs.close
set rs=nothing
response.flush
response.end
end if %>