如何将excel数据通过asp导入数据库

将excel数据通过asp导入数据库：

参考代码：

wenjian=request.Form("floor")

fileext=mid(wenjian,InStrRev(wenjian,".")+1)

if lcase(fileext)<>"xls" then

response.write "<script>alert ('文件格式不对，请上传Excel文件')window.location.href='updateFloor.asp'</script>"

response.end

end if

set conne=server.CreateObject("ADODB.Connection")

connStre="Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &Server.MapPath( ""&wenjian&"" )&"Extended Properties='Excel 8.0HDR=YESIMEX=1'"

conne.open connStre

Sqle="select * from [sheet1$] "

Set rse = Server.CreateObject("ADODB.Recordset")

rse.open sqle,conne,1,1

'验证

hang=2

do while not rse.eof

'名称不能为空

if trim(rse(0))<>"" then

else

mess="第"&hang &"行名称为空，请检查！"

response.Write"<script>alert('"&mess &"').window.location.href='updateFloor.asp'</script>"

response.End()

end if

rse.movenext

hang=hang+1

loop

rse.movefirst

do while not rse.eof

set rst=server.CreateObject("adodb.recordset")

sqlt="select * from Sellman"

rst.open sqlt,conn,1,3

rst.addnew()

rst("CompanyName")=c2(rse(0))

rst("CompanyInfo")=c2(rse(1))

rst("address")=c2(rse(2))

rst("tel")=c2(rse(3))&" "&c2(rse(7))

rst("Fax")=c2(rse(4))

rst("linkman")=c2(rse(5))

rst("Homepage")=c2(rse(8))

rst("Email")=c2(rse(6))

rst.update()

rst.close

set rst=nothing

rse.movenext

loop

rse.close

set rse=nothing

response.Write "<script>alert('导入成功!')location.href='updateFloor.asp'</script>"

做这个简单啊，首先用asp读取

xml文件

，判断标签类型，根据标签类型，将该标签下的数据写入数据库。

至于你说的先将xml文件上传，可以用网上的上传文件用的asp源码。在进行一下修改，上传成功后，用asp读取xml文件，并显示在网页上。

因为我是

在网吧上的，所以我得回家后把代码写出来，再发给你。大概2到3天吧，

但是

你的问题

快关闭了！。

步骤：

1.安装mysql

2.安装myodbc

3.启动mysql管理器，如果在my odbc框内有如下字样，就代表成功了一半

Quote:

Driver version 03.51

Driver **********

API Level *********

Setup **********

SQL Lever **********

这时候，并不是在Asp程序里设置好连接字符串，就能连上mysql数据库的，这一点要记住！！

还要执行如下 *** 作。。。

步骤：

1.打开控制面板 -->打开管理工具 -->打开数据源(ODBC) (注意到用户DSN里已经有mysql了)

2. 选择系统DSN -->添加 -->选择MySQL ODBC 3.51 Driver -->d出Mysql配置界面窗口 - ->data source name填好吧，database name填mysql（最好和用户DSN一样），user填“root”，密码 空，其它默认，OK。 (第二步比较重要，关系到能否顺利连接的问题)

好吧，大家为IIS建个站点或虚拟目录什么的。写个ASP文件试试看？？

以下是我写的个测试用的东西(数据库是mysql自带的)。。。

---------

<%

dim conn,connstr,sql

set conn=server.createobject("adodb.connection")

connstr="DSN=myodbc3-testDESC=MySQL ODBC 3.51 TEST DSNDATABASE=mysqlSERVER=localhostUID=rootPASSWORD=PORT=3306OPTION=3STMT="

conn.open connstr

’ sql="insert into db (host,db,user) values (’adsfa’,’asad’,’asd’)"

’ conn.execute sql

sql="select * from db"

set rs=conn.execute(sql)

do while not rs.eof

response.write rs("host")

rs.movenext

loop 网上摘录的 感觉挺靠谱的 希望能帮到你

---