| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3332 人关注过本帖, 1 人收藏
标题:请ASP高手帮忙,我用ASP将EXCEL中的数据批量导入到ACCESS数据库中,在服务器端 ...
只看楼主 加入收藏
zhangliwei1
Rank: 1
等 级:禁止访问
帖 子:129
专家分:0
注 册:2009-8-9
结帖率:87.5%
收藏(1)
已结贴  问题点数:20 回复次数:5 
请ASP高手帮忙,我用ASP将EXCEL中的数据批量导入到ACCESS数据库中,在服务器端运行时没有问题,可是在客户端为什么不行?
请ASP高手帮忙,我用ASP将EXCEL中的数据批量导入到ACCESS数据库中,在服务器端运行时没有问题,可是在客户端为什么不行?
总是提示:找不到EXCEL表格中的工作表名字,我在网上看到一个实例,人家的可以实现在客户端下载下来要导入的EXCEL文件摸版,然后存放到任何目录下,都能导入成功,可是我的即使是在服务器端时,EXCEL表也必须保存到../admin目录下才能找到工作表,为什么?请知道的帮我解决一下,谢谢
搜索更多相关主题的帖子: 数据库 服务器 EXCEL 客户端 ACCESS 
2009-09-05 22:18
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:14 
有可能的问题路径问题,权限问题。
代码怎么写的?
2009-09-05 23:04
zhangliwei1
Rank: 1
等 级:禁止访问
帖 子:129
专家分:0
注 册:2009-8-9
收藏
得分:0 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<html>
<head>
<title>临朐县农村信用社计算机培训档案管理系统--批量导入员工基本信息Excel记录</title>
<meta http-equiv="Content-Type"  content="text/html; charset=gb2312">
<link rel="stylesheet" href="">
<!--
body,td,th {
    font-size: 16px;
}
.STYLE1 {
    color: #FF6600;
    font-weight: bold;
}
.mycolor:link {
    text-decoration: none;
}
.mycolor:visited {
    text-decoration: none;
    color: #E85C00;
}
.mycolor:hover {
    text-decoration: underline;
    color: #339900;
}
.mycolor:active {
    text-decoration: none;
    color: #339900;
}
.STYLE19 {color: #E85C00; font-size: 12px; }
.STYLE20 {
    font-size: 14px;
    color: #FF0000;
}
.STYLE23 {font-size: 13px}
a:link {
    color: #FF6600;
}
a:visited {
    color: #FF6600;
}
a:hover {
    color: #009900;
}
a:active {
    color: #009900;
}
.STYLE24 {
    color: #000000;
    font-size: 15px;
}

-->
</style></head>
<body bgcolor="#CCFFCC">
 

         
<p align="center" class="STYLE19"> <strong class="STYLE23 STYLE24">员工基本信息批量导入</strong></p>
          <table width="500" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#FF9900">
          <tr>
            <td align="center" bgcolor="#FFFFFF""><form name="form"  method="post" action="../admin/admin_jbxxpldr.asp" >
        <p align="center" class="STYLE1">您必须选择由模板录入的excel文件,否则不能成功导入!</p>
        <p>
          <input type="hidden" name="filepath" value="导入的Excel文件/基本信息">
          <input type="hidden"  name="act" value="upload">
          <input type="file" name="file1"  size="45">
        </p>
        <p align="center">
          <input  type="submit" name="Submit" value="导入Excel记录" class="tl">
          <br>
          <br>
        </p>
        <p class="STYLE20">        要求:Excel必须按模板一样的排版,</p>
        <p class="STYLE20"align="left"><font color="#CC0000">Excel文件名可以不与模版名一致,但是工作表名、工作表中的数据格
          式都必须与模版中的一致,否则不能成功导入! </font> </p>
            </form> </td>
          </tr>
</table>
<p align="center"><a href="../admin/临朐农信员工基本信息表.xls">点击此处下载<span class="STYLE1">Excel</span>模板录入数据</a></p>
<p align="center">&nbsp;</p>
</body>
</html>

上面是批量导入的表单部分
下面是批量导入的程序处理部分
<!-- #include file="../include/conn.asp" -->
<%
'连接excel数据库
Dim xlsconn,xlsstr,xlsrs,sql,i
        
Set xlsconn = server.CreateObject("adodb.connection")
xlsstr="Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&server.mappath("临朐农信员工基本信息表.xls")&";Extended Properties=Excel 8.0"
xlsconn.open xlsstr

Set xlsrs = Server.CreateObject("Adodb.RecordSet")
sql = "Select * from [临朐农信员工基本信息表$]"
xlsrs.open sql,xlsconn,1,3

If xlsrs.eof Then
else
    i=1
       response.write"<div align='center'>"
    response.write "<TABLE border=1>"
    Do While not xlsrs.eof
    ygh=xlsrs("员工号")
    dw=xlsrs("单位")
    xm=xlsrs("姓名")
       xb=xlsrs("性别")
       csny=xlsrs("出生年月")
       cjgzsj=xlsrs("参加工作时间")
       jszc=xlsrs("技术职称")
       byyx=xlsrs("毕业院校")
       ks=xlsrs("科室")
    %>
        <TR>
        <TD>&nbsp;<%=ygh%></TD>
        <TD>&nbsp;<%=dw%></TD>        
        <TD>&nbsp;<%=xm%></TD>
              <TD>&nbsp;<%=xb%></TD>
              <TD>&nbsp;<%=csny%></TD>   
              <TD>&nbsp;<%=cjgzsj%></TD>   
              <TD>&nbsp;<%=jszc%></TD>
              <TD>&nbsp;<%=byyx%></TD>
              <TD>&nbsp;<%=ks%></TD>               
    </TR>
    <%   
     sql="insert into info(员工号,单位,姓名,性别,出生年月,参加工作时间,技术职称,毕业院校,科室) values('"&ygh&"','"&dw&"','"&xm&"','"&xb&"','"&csny&"','"&cjgzsj&"','"&jszc&"','"&byyx&"','"&ks&"')"
     conn.execute(sql)
     i=i+1
     xlsrs.movenext
        Loop  
    response.write "</table>"
End If

xlsrs.close
xlsconn.close
Response.write "共导入<font color='red'>" & i-1 & "</font>条记录.<br>" & vbCrLf
response.write"</div>"
set xlsrs=nothing
set xlsconn=nothing
%>
2009-09-07 09:15
zhangliwei1
Rank: 1
等 级:禁止访问
帖 子:129
专家分:0
注 册:2009-8-9
收藏
得分:0 
请yms123版主给看看?谢谢
2009-09-07 09:16
zhangliwei1
Rank: 1
等 级:禁止访问
帖 子:129
专家分:0
注 册:2009-8-9
收藏
得分:0 
我现在关键是将客户端得文件上传到服务器端,不知道,应该如何上传?
2009-09-07 09:16
chenlnpg
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2009-12-21
收藏
得分:0 
回复 5楼 zhangliwei1
我也碰到你这问题了,期待你的答案..
2010-01-22 12:40
快速回复:请ASP高手帮忙,我用ASP将EXCEL中的数据批量导入到ACCESS数据库中,在服 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016946 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved