ASP网站:如何实现从SQL数据库表中导出数据到Excel
我想做一个功能就是要隔一段时间把mysql数据表中的数据导出到一个Excel文件中.


要求:1.定时; 2.数据来自客户信息的数据表,经过处理后再保存到Excel文件中; 3.Excel文件必须是动态生成的,因为导出的数据是以周为分类的!
请同行不吝赐教~~不胜感激:) 有具体代码参考更好:)


------解决方案--------------------
你要的功能可不是一句两句代码能够搞定的，你这个是什么项目啊
------解决方案--------------------
1、定时需要是自己服务器，有管理权限，然后做几乎任务来执行一个程序，到处excel代码很简单的网上有例子的
------解决方案--------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conn.asp"-->
<%
dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("excel/服务满意度查询.xls")
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if

server_type=request("server_type")
dDate1=request("dDate1")
dDate2=request("dDate2")
Dq=request("Dq")
EmpName=request("EmpName")

select case server_type
case "1" 
server_name="安装单" 
end select 

set myfile = fs.CreateTextFile(filename,true) 
strLine0=""&Dq&""&server_name&"结果"


myfile.writeline strLine0 
strLine="服务单号"& chr(9)&"单位名称"& chr(9)&"服务日期"& chr(9)&"回访日期"& chr(9)&"服务地区"& chr(9)&"服务人员"& chr(9)&"服务满意状态"& chr(9)&"热线满意状态"& chr(9)&"意见和建议"
myfile.writeline strLine 
'''''''''''''''''''''''收费单据查询''''''''''''''''''''''''''
set rs=server.createobject("adodb.recordset")
sql="exec ht_approve_report 'query','"+server_type+"','"+dDate1+"','"+dDate2+"','"+Dq+"','"+EmpName+"'"

rs.open sql,conn,1,3
if not rs.eof then
Do while Not rs.EOF


doc_number = rs("doc_number")
qymc = rs("qymc")
install_date = rs("install_date")
visit_date = rs("visit_date")
address = rs("address")
emp_name = rs("emp_name")
call_approve = rs("call_approve")
line_approve = rs("line_approve")
explain_thing = rs("explain_thing")

strLine1=doc_number&chr(9)&qymc&chr(9)&install_date&chr(9)&visit_date&chr(9)&address&chr(9)&emp_name&chr(9)&call_approve&chr(9)&line_approve&chr(9)&explain_thing&chr(9)

myfile.writeline strLine1
rs.MoveNext
loop


Response.Write "生成EXCEL文件成功，点击<a href='excel/文件名称.xls' target='_blank'>下载</a>！"

end if
rs.close
set rs=nothing
%> 


------解决方案--------------------
ASP实例代码，直接将数据库中的数据导出到EXCEL电子表中。

<!--#include file="../conn.asp"-->
<%
 
dim s,sql,filename,fs,myfile,x
 
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("users.xls")
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
 
'Set rs = Server.CreateObject("ADODB.Recordset")