ASP读取CSV文件 并添加到数据库

代码

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
dbpath=Server.MapPath("qipu.mdb")
conn.Open dbpath
strFileName = Request.QueryString("file1")
set rs = Server.CreateObject("ADODB.recordset")
Dim Fso
Dim myFile
Dim titleindex
Dim cateindex
Dim picindex
Dim detailindex
dim arr()
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set myFile = Fso.OpenTextFile(Server.MapPath("1111.csv"),1,True,-1)
'A.TXT和ASP程序在同个目录下，如果没在一个目录，可以用绝对路径，把上一行的a.txt改为：d:\a.txt
%>
<table border="1">
<%
myNum=0
While Not myFile.AtEndOfStream
If myNum = 0 Then
row=Split(myFile.ReadLine," ")
for i=0 to ubound(row)
MyVar=row(i)
Select Case MyVar
Case "宝贝名称" titleindex= i
Case "宝贝类目" cateindex=i
Case "新图片" picindex=i


End Select
next
End If

row=Split(myFile.ReadLine," ")
%>
<tr>
<%
'for i=0 to ubound(row)
'td=row(i)
title=row(titleindex)
pic=row(picindex)
cate=row(cateindex)
sql="insert into product(title,pic,cate) values('"&title&"','"&pic&"','"&cate&"')"
rs.Open sql, conn

%>
<td ><div style="overflow:hidden; width:200px; height:30px;" ><%=title%></div></td><td ><div style="overflow:hidden; width:200px; height:30px;" ><%=pic%></div></td><td ><div style="overflow:hidden; width:200px; height:30px;" ><%=cate%></div></td>
<%
'next
%>
</tr>
<%
myNum=myNum+1
Wend
myFile.Close
Set myFile = Nothing
Set Fso = Nothing
%>
</table>

 

转载于:https://www.cnblogs.com/daretodream/archive/2010/04/29/1723680.html