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模板--由你自己编写一个模板

            例如:wKioL1YD0XqhjqroAAQvf71cYak940.jpg


             2,一个aspx文件


             wKiom1YD0fuBHqQhAAEAXVaXOKA948.jpg

        
              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 函数