Set fs = Server.CreateObject("Scripting.FileSystemObject")
filename = "D:\yc511\sale_sys\xls\货物流向统计报表.xls"
if fs.FileExists(filename) then
fs.DeleteFile(filename)
else
Response.Write ("找不到文件D:\yc511\sale_sys\xls\货物流向统计报表.xls")&"<br>"
end if
set myfile = fs.CreateTextFile(filename,TRUE)
Set rs = Server.CreateObject("ADODB.Recordset")
'--从数据库中把你想放到EXCEL中的数据查出来
sql0="select r_id,yd_bianma from sale_manage_xsxx_ydjxc where dy_bianma like '"&m_dy_bianma&"%' and pinzhong like '"&m_cp_bianma&"%' and jhrq between '"&m_begin_time&"' and '"&m_end_time&"'"
set rs_bm=conn.Execute(sql0)
if rs_bm.EOF and rs_bm.BOF then
'先写入该表的表名
dim strLine1,strLine2,strLine3,strLine4,strLine5
strLine1=""
strLine1= strLine1 & "" & chr(9) & "" & chr(9) & "" & chr(9) & "" & chr(9) & "货物流向统计报表" & chr(9)
myfile.writeline strLine1
sql="select b.dy_mingcheng,c.yd_mingcheng,e.khb_shuoming,a.jhrq,f.mc,a.jhsl,f.hyj,a.otc_daibiao,a.ghsy,a.fjbh,a.tbrq"&_
" from sale_manage_xsxx_ydjxc as a join "&_
"sale_base_diqu as b on b.dy_bianma=a.dy_bianma join "&_
"sale_compact_yd_dangan as c on c.yd_bianma=a.yd_bianma join "&_
"sale_base_khlx as e on e.khb_bianma=c.khb_bianma join "&_
"sale_base_chanpin as f on f.cp_bianma=a.pinzhong "&_
" where a.r_id='"&r_id&"'"
set rs=conn.Execute(sql)
if rs.EOF then
Response.Write "药店数据出现错误,请联系系统管理员:010-68435666-8199!"
Response.End
end if
sql="select a.yd_mingcheng,b.khb_shuoming from sale_compact_yd_dangan as a join sale_base_khlx as b on a.khb_bianma=b.khb_bianma where a.yd_bianma='"&yd_bianma&"'"
set rs_yd=conn.Execute(sql)
if not rs_yd.eof then
ydmc=rs_yd("yd_mingcheng")
khbsm=rs_yd("khb_shuoming")
end if
rs_yd.close
sql="select a.khb_shuoming from sale_base_khlx as a join sale_compact_kehu as b on b.khb_bianma=a.khb_bianma where b.kh_mingcheng='"&rs("ghsy")&"'"
set rs_kb=conn.Execute(sql)
if not rs_kb.eof then
syxz=rs_kb("khb_shuoming")
else
end if
rs_kb.close