求excel导入sqlserver源码！asp的！

如题！

---

sqlserver管理器有导入功能吧

---

晕！难道要客户去操作数据库？！无语了！

---

怎么没人回答呢？！！！

---

客户将excel上传，上传到的是服务器，而不是在本地！ 

---

读数据，写数据，应该是这样

---

http://topic.csdn.net/t/20030404/11/1617960.html

---

用sql自带的导入就可以！估计是想要在后台直接实现上述效果吧！

---

VB code:

Response.Charset="GB2312"
excelpath=server.mappath(Request("excelpath")) '文件在服务器中的路径
dim uploadconn

set xlsConn=CreateObject("ADODB.Connection")
xlsConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="& excelpath


xlssql = "SELECT * from [Sheet1$]"
set rs = xlsConn.execute(xlssql)
while not rs.eof
sql = "insert into test values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"','"& fixsql(rs(4)) &"')"
response.Write sql&"<br>"
conn.execute(sql)
rs.movenext
wend

xlsConn.close
set xlsConn = nothing

function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"’","’’")
end if