ASP实现Excel导入Access数据库

导入方式有很多，思路有两种：

1、用户直接打开本地Excel文件，通过程序直接导入Access数据库;

2、用户打开本地Excel文件，通过程序上传至固定文件夹，然后通过程序将数据导入Access数据库

两种方式相比较，方法2比方法1更为适用。

一开始，使用第一种方法，本机测试通过，但是通过网络访问则会出现错误提示：'80040e37'，并提示找不到指定的文件。后来才发现，要使用此方法实现数据导入，必须设定服务器的控制权限为完全控制，还需要将Excel文件所在的盘符设置默认共享~ 这样看来这种方法不是很可取，对服务器安全性有影响。

如果用第二种方式实现，没有上述的权限限制，只需要结合文件上传就能够避免'80040e37'错误产生。

先附上方式一所用函数：

'-------------------------------------------------------------------------------------
'Exce导入到SQL
'参数：FileExce excel表格路径； sheet: excel表格名，默认为sheet1
'
'-------------------------------------------------------------------------------------
Function ExceToSql(FilePath,sheet,pro_type)
Dim PatnNow
if sheet="" then sheet="sheet1"
PatnNow=FilePath
    'P