ASPµ¼³öÊý¾Ýµ½excel

×î½ü×öÒ»¸öÓÃasp×öµÄÍøÕ¾ºǫ́µÄÊý¾Ýµ¼³ö¹¦ÄÜʱ,google,baiduÁ˺ܶà,µ«ÊǶàÊý¶¼ÊÇתÔØ,´úÂë´ó¸Å¶¼Ò»Ñù,µ«ÊǾÍÊDZ¨´í,×îºóÓÐÈË˵ͨ¹ýÉèÖÃMIMEÀàÐͺͽ¨Á¢Ä£°å,×îºóÕûÀí,²âÊÔÎÊÌâÖÕÓÚ½â¾ö.¹Ø¼üµÄµØ·½ÓÐÒÔϼ¸µã:
1):MIMEÀàÐÍÒªÉèÖÃÕýÈ·,ÈçÒª°ÑDBÖбí(»ò±íÖÐÖ¸¶¨×Ö¶Î)µÄÊý¾Ýµ¼³ö³Éexel¸ñʽʱ,Í·²¿µÄMEMIÀàÐ͵ÄÉèÖÃÊÇ:
<%
Response.Expires = 0
Response.ContentType="application/vnd.ms-excel"
Response.AddHeader "content-disposition","inline; filename=exportDataName.xls"
%>
β²¿µÄMIMEÀàÐ͵ÄÉèÖÃ:
<%
Response.ContentType="application/vnd.ms-excel"
Response.AddHeader "content-disposition","attachment filename=exportDataName.xls"
rs.close
set rs=nothing
%>
×¢::exportDataNameΪµ¼³öexelʱҪ±£´æµÄÎļþÃû,×Ô¼º¿ÉÒÔ×Ô¶¨Òå,±ÈÈçÒÔyyyy-MM-ddÐÎʽ±£´æ,ÒÔÉÏÍ·²¿ÐÅÏ¢µÄÉèÖÃ,¼´MIMEÀàÐ͵ÄÉèÖúÍJAVA´úÂëÖеÄÎļþÏÂÔØÉèÖÃÒ»Ñù,ÆäËüµÄÀàÐÍÈç·¨ÅÚÖÆ.
2)Ä£°åµÄ×Ö¶ÎÉèÖÃÒ»¶¨ÒªºÍ´Ó±íÖжÁ³öµÄÒªµü´úµÄÒ»ÖÂ.
xls.asp´úÂëÈçÏ£º
<!--#include file="../Inc/Conn.asp"-->
<!--#include file="../Inc/Function.asp"-->
<%
function times_gs(times)
dim years,months,days
years=year(times)
months=month(times)
if len(months)=1 then
months="0"&months
end if
days=day(times)
if len(days)=1 then
days="0"&days
end if
times_gs=years&"-"&months&"-"&days
end function
'ÓÃÓÚ²éѯ¼Ç¹ýµÄµ¼³ö£¬µ±È»¿ÉÒÔͨ¹ý¸÷ÖÖ·½Ê½´«µÝÖµµ½Õâ¸öÒ³Ã棬ÎÒÊÇͨ¹ýbuttonµÄonlick£º±íµ¥Ãû.action='xls.asp?action=srh<%=strpage%>£¬strpageÓÃÓÚËÑË÷ʱµÄÏî
Ô´ÂëÈçÏ£º
riqi = trim(request("riqi"))
riqi2 = trim(request("riqi2"))
danhao = trim(request("danhao"))
wuliu = trim(request("wuliu"))
kehu = trim(request("kehu"))
jbr = trim(request("jingbanren"))
if riqi<>"" and riqi2<>"" then
sql_riqi = "and riqi between #"&riqi&"# and #"&riqi2&"#"
end if
if danhao<>"" then
sql_danhao = " and danhao='"&danhao&"'"
end if
if wuliu<>"" then
sql_wuliu = " and wuliu like '%"&wuliu&"%'"
end if
if kehu<>"" then
sql_kehu = " and kehu like '%"&kehu&a