如何用asp实现excel数据导入到sql2000中，把具体代码写下

答案：
 - -! 心得的东西给你.分都没有.
<%

'列出所選擇的Excel文件中的所有工作表
Dim ExeclFile,objExcelApp,objExcelBook
'获取文件名 怎么获取你自己看着办 用上传功能吧
ExeclFile=Mid(Trim(Request("File")),3)
ExeclFile = Server.mapPath(ExeclFile)
End If

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

sql = "SELECT * FROM [Sheet1$]" 
set rs = conn2.execute(sql)

If Rs.Eof And Rs.Bof Then
  Response.write "no data!!<br/>"
Else
Do While Not Rs.Eof
'request("tablename")将获取上传要到导入的表 这里是2个，book，music，我自己要导入的图书音乐。
If request("tablename")="book" then
set rs2=server.createobject("adodb.recordset")
rs2.open "select id from bookapplyin  where name='"&Rs(1)&"' and publish='"&Rs(3)&"' and  author='"&Rs(2)&"'",conn,1,1
if rs2.recordcount>0 Then
SqlInsert="update bookapplyin set proname='"&Rs(0)&"',name='"&Rs(1)&"',author='"&Rs(2)&"',publish='"&Rs(3)&"',kind='"&Rs(4)&"',paper='"&Rs(5)&"',inpage='"&Rs(6)&"',price='"&Rs(7)&"',promation='"&Rs(8)&"',inprice='"&Rs(9)&"' where id="&rs2("id")
conn.execute(SqlInsert) 
Else
SqlInsert = "Insert Into bookapplyin (proname,name,author,publish,kind,paper,inpage,price,promation,inprice) values('"&Rs(0)&"','"&Rs(1)&"','"&Rs(2)&"','"&Rs(3)&"','"&Rs(4)&"','"&Rs(5)&"','"&Rs(6)&"','"&Rs(7)&"','"&Rs(8)&"','"&Rs(9)&"')"
conn.execute(SqlInsert) 
End If
rs2.close
Set rs2=nohting
elseIf request("tablename")="music" then
set rs2=server.createobject("adodb.recordset")
rs2.open "select id from musicapplyin  where name='"&Rs(2)&"' and proname='"&Rs(0)&"'",conn,1,1
if rs2.recordcount>0 Then
SqlInsert="update musicapplyin set proname='"&rs(0)&"',proid='"&rs(1)&"',name='"&rs(2)&"',publish='"&rs(3)&"',kind='"&rs(4)&"',type='"&rs(5)&"',paper='"&rs(6)&"',number='"&rs(7)&"',price='"&rs(8)&"',allprice='"&rs(9)&"' where id="&rs2("id")
conn.execute(SqlInsert) 
Else
SqlInsert = "Insert Into musicapplyin (proname,proid,name,publish,kind,type,paper,number,price,allprice) values('"&Rs(0)&"','"&Rs(1)&"','"&Rs(2)&"','"&Rs(3)&"','"&Rs(4)&"','"&Rs(5)&"','"&Rs(6)&"','"&Rs(7)&"','"&Rs(8)&"','"&Rs(9)&"')"
conn.execute(SqlInsert) 
End If
rs2.close
Set rs2=nohting

End If
 Loop
End If

%>

上一个：求ASP连接数据库（SQL,ACCESS）的详细代码！不要建立数据源的那种！
下一个：asp.net中如何把一个字符串中的所有html代码去掉成为文本模式