asp读取taobao助理导出的csv文件

功能：asp读取taobao助理导出的csv文件
来源：www.K88.NET。
<
%
Set conn = server.CreateObject("
adodb.Connection"
)
connstr = "
Driver=
{Microsoft Text Driver (*.txt
*.csv)}
Dbq="
&
Server.mappath("
./"
)&
"

Extensions=csv
Persist Security Info=False"

conn.Open connstr
SET rs = server.CreateObject("
ADODB.RecordSet"
)
rs.Open "
Select * From cvs文件名.csv"
, Conn
if not rs.eof then
Do While Not(rs.Eof)
 
 
 
 
 
 
 
response.write rs(0)&
"
<
br>
"

 
 
 
 
 
rs.MoveNext
Loop
end if
rs.Close:set rs=nothing
conn.close:set conn = nothing
%>