OBPS开发平台——导入功能导入功能整体过程：

首先我们来理清思路：web目录下有几个文件夹是我们要记住的

1、bin目录------下面大多是扯淡，就是dll就行了

bin 目录是 Web 应用程序的默认程序集缓存，bin 目录通常存放 DLL 文件。

bin 目录必须位于网站根目录或虚拟目录根目录之下，位于普通目录之下无效。

位于网站根目录下的 bin 对整个站点有效（网站下的虚拟目录除外）；

位于虚拟目录下的 bin 对整个目录有效（虚拟目录下的虚拟目录除外）。

ASP.NET 中添加、更新、删除 DLL 非常的方便，因为不锁定 DLL，并且 ASP.NET 会自动识别 DLL 是否已经添加、更新或删除。

在 ASP.NET 中，添加 DLL，只需要把 DLL 文件上传到相应的 bin 目录之下。

在 ASP 中，添加 DLL，需要上传 DLL 文件，再利用 regsvr32 注册。

在 ASP.NET 中，更新 DLL，只需要在相应 bin 目录下覆盖原有 DLL。

在 ASP 中，更新 DLL，需要利用 regsvr32 /u 注销，然后再重启 IIS，再覆盖原有 DLL，再利用 regsvr32 注册。

在 ASP.NET 中，删除 DLL，只需要删除相应 bin 目录下的 DLL 文件。

在 ASP 中，删除 DLL，需要利用 regsvr32 /u 注销，然后再重启 IIS，再删除 DLL

2、Operation目录--业务

在这个目录下可以建一个文件夹例如：RQ

里面我们的导入要有两个东西

1，Excel模板--由你自己编写一个模板

例如：

2，一个aspx文件

RQHand.aspx 前面是项目名称最好以这样的歌手书写

内容是这样的：

<%@ Page Language="vb" AutoEventWireup="false" Inherits="CMFly.Web.Operation.WanH.RQHandle" %>

只有这一句，主要要修改的就是 CMFly.Web.Operation.WanH.RQHandle

WanH ：

RQHandle：

3.bin目录下我们要写生成一个我们自己编写的dll文件替换里面的dll文件

这个文件名叫做：CMFly.Web.Operation.dll

现在还不清楚平台那些组件什么的以后再说。

现在就是要用vs生成一个CMFly.Web.Operation.dll 在里面控制导入

4.vbscript 按钮调用

'导入数据
Private Sub ImportData02()    
    Dim ls_ItemID,ls_SHID,ls_Sql
    Dim ls_File : ls_File = mo_PublicProc.FileUpload2(1, "xls|xlsx", 10, False)
    If ls_File = "" Then Exit Sub
    ls_File = Left(ls_File, InStr(1, ls_File, "[") - 1)
    Dim ls_Url : ls_Url = GetUrl(1)    
    Dim ls_Xml : ls_Xml = "<Root Handle=""ExcelInRQG0050""  ExcelFile="""& ls_File &""" ParentID="""& frmHtmlData.FormPara_ParentID.value &"""></Root>"
    ls_Xml = mo_PublicProc.Handle(ls_Url, ls_Xml, "", "", False)
    If ls_Xml = "" Then Exit Sub
    If Not IsNumeric(ls_Xml) Then
        Msgbox ls_Xml
    Else
        Call Report2(2,ls_Xml)
    End If
    Call RefreshWindow
End Sub
按钮调用这个vbs函数，主要是这一句，其他的照抄就好了

Dim ls_Xml : ls_Xml = "<Root Handle=""ExcelInRQG0050""  ExcelFile="""& ls_File &""" ParentID="""& frmHtmlData.FormPara_ParentID.value &"""></Root>"

1. ExcelInRQG0050  就是你要调用的在dll中的函数

2. ls_File  文件名

3. ParentID  传递的参数

来理清一下整个过程

函数调用

Dim ls_Url : ls_Url = GetUrl(1)  读取到了  RQHand.aspx

Dim ls_Xml : ls_Xml = "<Root Handle=""ExcelInRQG0050""  ExcelFile="""& ls_File &""" ParentID="""& frmHtmlData.FormPara_ParentID.value &"""></Root>"

读取到了ExcelInRQG0050 函数