asp从access导出为csv文件

最新推荐文章于 2019-06-22 14:23:50 发布

iteye_20208

最新推荐文章于 2019-06-22 14:23:50 发布

阅读量649

点赞数

CC 4.0 BY-SA版权

分类专栏： asp 文章标签： ASP Access Office SQL Server SQL

本文链接：https://blog.youkuaiyun.com/iteye_20208/article/details/82047002

asp 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一种使用VBScript从数据库中提取数据并将其转换为CSV文件的方法。通过设置SQL查询语句来获取所需的数据字段，并将这些数据写入CSV文件中，最后提供下载链接。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >



<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>export</title>
</head>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" --> 
<body>

<%
'设置页面时间
Server.ScriptTimeOut=999999
dim s,sql,filename,fs,myfile,x,mFileName,ObjExcel,ObjSheet
Set fs = server.CreateObject("scripting.filesystemobject")
filename = Server.MapPath("contact.csv")

'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建csv文件
set myfile = fs.CreateTextFile(filename,true)

'--从数据库中把你想放到csv中的数据查出来
strSql = "select * from Ameav_Contact order by OrgName asc" 
'--显示执行的SQL语句
Response.Write "<div id='sql'><strong>SQL 语句:</strong><br />"&strSql&"</div>"
Set Rs =conn.execute(strSql)
if not Rs.EOF and not Rs.BOF then
dim trLine,responsestr
strLine=""
For each x in Rs.fields
strLine = "OrgName,DepName,StaffName,Office,SubPhone,DirecPhone,Telephone,PersonEmail,CompanyEmail,Password,Remark"'Public,Password,Remark"
Next

myfile.writeline strLine
Response.Write "<div id='data'>"
Do while Not Rs.EOF
strLine=""
strLine= Rs("OrgName")&"," & Rs("DepName")&"," & Rs("StaffName") & "," & Rs("Office") & "," & Rs("SubPhone") & "," & Rs("DirecPhone") & "," & Rs("Telephone") & "," & Rs("PersonEmail") & "," & Rs("CompanyEmail") & "," & Rs("Password") & "," & Rs("Remark")'& Rs("Public") & "," & Rs("Password") & "," & Rs("Remark")
if WriteDB=True then
Response.Write strLine & "<br /><hr />"
end if
myfile.writeline strLine
Rs.MoveNext
loop
Response.Write "</div>"
end if

Response.Write "<div id='down'><p><a href=""contact.csv"" target=""_blank"">生成文件成功，点击下载！</a></p></div>"
Rs.Close :set Rs = nothing
Conn.Close:Set Conn = nothing
%>


</body>
</html>