ASP导出Excel代码,ASP代码库,德仔网

代码语言
代码分类
【ASP】 ASP导出Excel
作者:Dezai.CN / 发布于2013/7/16/ 1391

	From.htm

	<script language="javascript">
	function ExportExcel()
	{
	document.forms[0].action="Excel.asp";
	document.forms[0].submit();
	}
	</script>

	<a href="ExportExcel.asp">导出Excel</a>

	Excel.asp:

	<html>
	<head>
	<title></title>
	<!--#include file="yanwu_conn.asp"-->
	<%response.ContentType ="application/vnd.ms-excel"%>
	</head>
	<body>
	<!--whb开始-->
	<%
	dl_cun=trim(request("dl_cun"))
	dl_big=trim(request("dl_big"))
	dl_small=trim(request("dl_small"))
	dl_year=trim(request("dl_year"))
	dl_month=trim(request("dl_month"))
	set rs=server.CreateObject("adodb.recordset")
	sqlstr="select s.keyname as sitename,p.keyname as productname,a.come,a.store,a.sale,a.regperson,a.regtime from yanwu_recordinfor a, yanwu_siteinfor s,yanwu_productinfor p where a.site_id=s.id and a.product_id=p.id "
	if trim(request("dl_month"))<>"-1" then
	datestr=" and convert(varchar(6),a.regtime,112) ='" & trim(request("dl_year")) & trim(request("dl_month")) &"' "
	else
	datestr=" and convert(varchar(4),a.regtime,112) ='" & trim(request("dl_year")) &"' "
	end if
	sqlstr=sqlstr & datestr

	if trim(request("dl_site"))<>"-1" then
	sqlstr= sqlstr & " and site_id='" & trim(request("dl_site")) & "' "
	end if

	if trim(request("dl_site"))="-1" and trim(request("dl_cun"))<>"-1" then
	sqlstr= sqlstr & " and site_id in(select id from yanwu_siteinfor where parentid='" & trim(request("dl_cun")) & "') "
	end if

	if trim(request("dl_cun"))="-1" and trim(request("dl_zhen"))<>"-1" then
	sqlstr= sqlstr & " and site_id in(select id from yanwu_siteinfor where parentid in(select id from yanwu_siteinfor where parentid in(select id from yanwu_siteinfor where id='" & trim(request("dl_zhen")) & "'))) "
	end if

	if trim(request("dl_small"))<>"-1" then
	sqlstr= sqlstr & " and product_id='" & trim(request("dl_small")) & "' "
	end if

	if trim(request("dl_small"))="-1" and trim(request("dl_big"))<>"-1" then
	sqlstr= sqlstr & " and product_id in(select id from yanwu_productinfor where parentid='" & trim(request("dl_big")) & "') "
	end if

	'response.Write(sqlstr)
	'response.End()
	
	rs.open sqlstr,conn,1,1
	if rs.eof then
	%>
	<table width="95%" border="1" cellpadding="4" cellspacing="1">
	<tr>
	 <td>Sorry,系统没有查询到任何信息。</td>
	</tr>
	</table>
	<%else%>
	<table width="95%" border="1" cellpadding="4" cellspacing="1" id="data">
	<tr>
	 <td width="10%" ><strong>编号</strong></td>
	 <td width="12%" ><strong>网点名称</strong></td>
	 <td width="12%" ><strong>物品类别</strong></td>
	 <td width="12%" ><strong>进货量</strong></td>
	 <td width="12%" ><strong>库存量</strong></td>
	 <td width="12%" ><strong>销售量</strong></td>
	 <td width="12%" ><strong>操作人员</strong></td>
	 <td width="18%" ><strong>操作时间</strong></td>
	</tr>
	<%
	i=0
	sum_come=0
	sum_store=0
	sum_sale=0
	do while not rs.eof
	i=i+1
	sum_come=sum_come+rs("come")
	sum_store=sum_store+rs("store")
	sum_sale=sum_sale+rs("sale")
	%>
	<tr>
	 <td ><%=i%></td>
	 <td ><%=rs("sitename")%></td>
	 <td ><%=rs("productname")%></td>
	 <td ><%=rs("come")%></td>
	 <td ><%=rs("store")%></td>
	 <td ><%=rs("sale")%></td>
	 <td ><%=rs("regperson")%></td>
	 <td ><%=rs("regtime")%></td>
	</tr>
	<%
	rs.movenext
	loop
	%>
	<tr>
	 <td width="10%" ><strong>合计</strong></td>
	 <td width="10%" ><strong></strong></td>
	 <td width="10%" ><strong></strong></td>
	 <td width="10%" ><strong><%=sum_come%></strong></td>
	 <td width="10%" ><strong><%=sum_store%></strong></td>
	 <td width="10%" ><strong><%=sum_sale%></strong></td>
	 <td width="10%" ><strong></strong></td>
	 <td width="30%" ><strong></strong></td>
	</tr>
	</table>
	<%
	end if
	rs.close
	set rs=nothing
	%>
	<!--whb结束-->
	</body>
	</html>
试试其它关键字
　导出Excel　
同语言下
可能有用的
Dezai.CN贡献的其它代码(4037)