asp 导出到excel 方法

asp 导出到excel 方法

<!-- #include file="conn.asp"-->
<%
Response.Buffer = true
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment; filename=member.csv"
Response.CharSet = "UTF-8"
%>

<%

set rs = conn.Execute("select * from gzdata")
'Response.Write rs.fields(0).name
'for i=1 to rs.fields.count-1
'Response.Write "," & rs.fields(i).name
'next
response.Write "工资,工人a,工人b"
Response.Flush()
do while not rs.eof
Response.Write vbCrLf & rs(0)
for i=1 to rs.fields.count-1
Response.Write "," & rs(i)
next
Response.Flush()
rs.Movenext
loop

%>