求助:用asp将excel导入到数据库中
<%set upload=new upload_5xsoftset file=upload.file("file1")response.write upload.form("submit")&"<br>"if file.filesize>0 then file.s**eas server.mappath("upload.txt") response.write "<br>上传文件:"&file.filename&" ok!上传完毕" response.write "<br>文件大小:"&file.filesizeend ifset file=nothingset upload=nothing%><%set fs= createobject("scripting.filesystemobject")path="f:\inetpub\1\upload\upload.txt"set fs = createobject("scripting.filesystemobject")%><%set textinstance=fs.opentextfile(path,1,false)while textinstance.atendofstream<> truev**itornum=textinstance.readlinej=0cd=len(v**itornum)for i=1 to cdif mid(v**itornum,i,1)="," thenj=j+1elseselect case jcase 0me1=me1+mid(v**itornum,i,1)case 1 me2=me2+mid(v**itornum,i,1)case 2 me3=me3+mid(v**itornum,i,1)case 3me4=me4+mid(v**itornum,i,1)case 4me5=me5+mid(v**itornum,i,1)case 5me6=me6+mid(v**itornum,i,1)case 6me7=me7+mid(v**itornum,i,1)case 7me8=me8+mid(v**itornum,i,1)case 8me9=me9+mid(v**itornum,i,1)end selectend ifnextresponse.write me1 & " " & me2 & " " & me3 & " " & me4 & " " & me5 & " " & me6 & " " & me7 & " " & me8& " " & me9& " " & "<br>"'set con=server.createobject("adodb.connection")'conn.open "dsn=sqlserver;uid=sa;pwd=sa;database=library"sql="insert into book(bno,category,title,press,year,author,price,total,stock) values('"sql=sql&me1&"','"sql=sql&me2&"','"sql=sql&me3&"','"sql=sql&me4&"','"sql=sql&me5&"','"sql=sql&me6&"','"sql=sql&me7&"','"sql=sql&me8&"','"sql=sql&me9&"')"conn.execute(sql)me1=""me2=""me3=""me4=""me5=""me6=""me7=""me8=""me9=""wend %><%conn.closeset conn=nothing%>帮你找了个txt导入sql的,你看看吧。 20210311