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

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>"
ExcelInRQG0050 就是你要调用的在dll中的函数

ls_File 文件名

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