230问答网 > 老师有没有asp页面上把电子表格数据导入到access库某个表的代码？

老师有没有asp页面上把电子表格数据导入到access库某个表的代码？

2024-12-13 20:32:19

推荐回答（4个）

回答1：

直接导入

回答2：

可以先去找一个上传组件，然后再将上传的excel读取到数据库

回答3：

access中有导入 excel的功能

回答4：

<%
set cnn=server.createObject("adodb.connection")
cnn.provider="Microsoft.jet.oledb.4.0"
cnn.connectionString="Data source=" & server.mappath("db.mdb")
cnn.open

dim sql
sql="select * from news order by indate desc"

set rs=server.createObject("adodb.recordset")
rs.open sql,cnn,1,1

rs.pageSize=4
dim pageNo
pageNo=cint(request.queryString("pageNo"))

if pageNo<1 or isnumeric(pageNo)=false then pageNO=1
if pageNo>rs.pageCount then pageNo=rs.pageCount

rs.absolutePage=pageNo
dim i
i=1

%>

编号	标题 <% do while not rs.eof and i<=rs.pageSize %>
<% =rs(0)%>	target="_blank"><% =rs(1)%> <% i=i+1 rs.moveNext loop %>

共<% =rs.recordCount%>条
当前页次:<% =pageNo%>/<% =rs.pageCount%>
共<% =rs.pageCount%>页

<% if pageno<=1 or rs.recordCount<=rs.pageSize then %>
首页|
<% else%>
首页|
<% end if%>

<% if pageno<=1 or rs.recordCount<=rs.pageSize then %>
上一页|
<% else%>
>上一页|
<% end if%>

<% if pageno>=rs.pageCount then %>
下一页|
<% else%>
>下一页|
<% end if%>

<% if pageno>=rs.pageCount then %>
尾页|
<% else%>
>尾页|
<% end if%>

<%
rs.close
set rs=nothing
cnn.close
set cnn=nothing
%>
这是我用的代码，你可以稍微改一下就能用了