execl資料匯入title>
type="text/css">
--body,td,th
-->
style>
head>
<%
session.codepage=936
server.scripttimeout=600000
set upload=new upload_5xsoft
set file=upload.file("file1")
if file.filesize>120000
then
%>
alert("您選擇的檔案過大!");
script>
<% end
ifif file.filesize>0
then
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
filename=filename+"."
filenameend=file.filename
filenameend=split(filenameend,".")
if filenameend(1)="xls"
then
filename=filename&filenameend(1)
else
response.write "資料格式不對！"
response.end()
endifset file=nothing
else
response.write "檔案不能為空！"
response.end()
endif
set upload=nothing
'上傳xls檔案結束，下面從上傳的xls檔案中讀取資料寫入到sql資料庫
set excelconn=server.createobject("adodb.connection")
excelconn.open "provider = microsoft.jet.oledb.4.0 ; data source = "+straddr+";extended properties='excel 8.0;hdr=no;imex=1'"
set conn=server.createobject("adodb.connection")
conn.open "provider=sqloledb.1;persist security info=true;user id='.';password='.'; initial catalog ='.'; data source='.';"
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sql="select distinct * from [insertuserlist$]"
rs.open sql,excelconn,1,1
ifnot(rs.bof and rs.eof) then
rs.movenext
dowhile
not rs.eof
set nrecordset=conn.execute("select email from [usera] where email='"& rs(0) &"'")
if nrecordset.recordcount>0
then
rs.movenext
else
ifisnull(rs(1)) then
dim name
name=split(rs(0),"@")
sql1="select * from [usera] where userid is null"
rs1.open sql1,conn,1,3
rs1.addnew
rs1("email")=rs(0)
rs1("username")=name(0)
rs1("typea")=rs(2)
rs1("password")="123456"
rs1("sitefor")="cta"
rs1("***")=rs(3)
rs1("phone")=rs(4)
rs1("nationality")=rs(5)
rs1.update
rs1.close
rs.movenext
else
sql1="select * from [usera] where userid is null"
rs1.open sql1,conn,1,3
rs1.addnew
rs1("email")=rs(0)
rs1("username")=rs(1)
rs1("typea")=rs(2)
rs1("password")="123456"
rs1("sitefor")="cta"
rs1("***")=rs(3)
rs1("phone")=rs(4)
rs1("nationality")=rs(5)
rs1.update
rs1.close
rs.movenext
endifend
ifloop
endif
rs.close()
set rs=nothing
set rs1=nothing
excelconn.close()
set excelconn=nothing
conn.close()
set conn=nothing
%>
alert("資料匯入成功！");
history.back();
script>
body>
html>ps：必須引用的乙個類 命名upload_5xsoft.inc.bak
Exel檔案的匯入和匯出
com.alibaba groupid easyexcel artifactid 1.1.2 beat1 version dependency 在resource包下，新增乙個excel檔案，然後在controller中定義檔名字串，如下 匯入excel模板檔名 private static fin...
asp匯入xls後到access
upload.asp 上傳並且寫入庫 response.write 資料格式不對！response.write 返回 response.end end if set file nothing else response.write 檔案不能為空！response.write 返回 response....
匯入 ASP常用函式 FormatDate
function formatdate sdatetime,sreallydo dim sjorkin sjorkin getlocale if not isdate sdatetime then sdatetime now sdatetime cdate sdatetime select case...