News Contents
信息中心

ASP读取xls,CSV

发表日期:2018/1/9      浏览次数:

<%
'导入csv数据
i=0
Dim cn,oConn,connstr 
'打csv. 
Set cn = Server.CreateObject("ADODB.Connection") 
cn.Provider = "Microsoft.Jet.OLEDB.4.0 " 
cn.ConnectionString = "Data Source=" & Server.MapPath("2.xls") & ";" & _ 
"Extended Properties=Excel 8.0;" 
cn.Open 
'打开MDB. 
'connstr="DBQ="+server.MapPath("pic.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
'set oConn=server.CreateObject("ADODB.CONNECTION") 
'oConn.open connstr
'读取数据. 
set rsRead=server.CreateObject("ADODB.Recordset") 
rsRead.Open "select * from [pic$]",cn,1,1 
do until rsRead.EOF 
'写入数据库. 
proname= rsRead.Fields("宝贝名称")
projiage= rsRead.Fields("宝贝价格")
procontent= rsRead.Fields("宝贝描述")
protupian= rsRead.Fields("新图片")

'oConn.Execute("Insert into iepic(pic)Values('"& rsRead.Fields("pic") & "')" ) 
rsRead.MoveNext 
i=i+1 
loop
response.write("<p align=center>成功导入"&i&"条数据</p><br>")
response.Write("<p align=center><a href=javascript:window.close()>关闭窗口</a></p>")
%>

盛大建站承接个人、公司、企业的网站建设、网页设计、网店制作、独立商城制作、外贸网站制作,也承接同行介绍的业务,欢迎联系!
本站承接主要业务如下:
1、提供免备案虚拟主机(网站空间),有独立国内服务器、高速美国服务器、香港服务器、韩国服务器、日本服务器,>> http://www.fuanxx.com
2、网站建设:个人网店制作、企业建站、公司网站、新闻、下载等;论坛、博客网站搭建,承接外贸英文站制作
3、承接阿里巴巴、京东、淘宝、天猫等的商品数据采集
4、网站防钓鱼,可以过360、QQ、搜狗、金山、微信拦截
5、要就发IP网站限制访问系统,防止同行抄袭并保障海外客户访问不受影响,>> http://www.198ip.com
  下一篇:asp分页
十年如一日,我们专注于提供高品质 定制网站建设服务!
您的信任,我们的责任,期待与您的合作!