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 >

 

你可能感兴趣的:(asp)