如何在传统ASP/VB脚本中调用ASP.NET MVC应用的ComVisible功能

1. 是否需要新建独立项目？ #

是，不建议直接在现有的MyNewNetMVCASP.NET MVC项目中配置ComVisible，原因如下：

• MVC项目的输出为Web部署包/可执行文件，不符合COM互操作所需的类库输出规范
• 避免给主MVC项目引入不必要的COM依赖，降低后续迭代维护的耦合度
• 独立的互操作层可以单独做权限、参数校验，不会影响主MVC业务逻辑

2. 复用现有ASPService类的方案 #

根据你的项目可接受的改造成本，二选一即可：

方案一（推荐，耦合度最低） #

将ASPService中的核心业务逻辑抽离到独立的公共类库项目（和现有MVC项目使用相同的.NET Framework版本），主MVC项目和新建的COM互操作类库项目同时引用这个公共类库，两边的逻辑天然一致，无需重复开发。

方案二（改造成本最低） #

直接在新建的COM互操作类库项目中添加对现有MyNewNetMVC项目的引用，注意保证ASPService类的访问修饰符为public，且ASPService中没有依赖HttpContext等仅ASP.NET MVC运行时才存在的对象；如果有这类依赖，在COM包装层做适配，将所需参数从经典ASP端显式传入即可。

3. 具体实现步骤 #

步骤1：新建COM互操作类库项目 #

新建.NET Framework类库项目（注意必须为.NET Framework，.NET Core/.NET 5+不支持经典ASP COM互操作），命名可自定义，比如MyNewNetMVC.ComInterop。

步骤2：项目基础配置 #

• 右键项目→属性→「生成」选项卡，勾选为COM互操作注册
• 右键项目→属性→「应用程序」选项卡→点击「程序集信息」，勾选使程序集COM可见
• 右键项目→属性→「签名」选项卡，勾选为程序集签名，新建一个强名称密钥文件（无需设置密码）

步骤3：编写COM包装类 #

using System.Runtime.InteropServices;
// 引入你现有MVC项目中ASPService的命名空间
using MyNewNetMVC.Services;

namespace MyNewNetMVC.ComInterop
{
    [ComVisible(true)]
    // 这里用Visual Studio的工具→创建GUID功能生成一个唯一的GUID，替换下方占位符
    [Guid("XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX")]
    // 该ProgId即为经典ASP中CreateObject的参数，和你需求完全匹配
    [ProgId("MyNewNetMVC.ASPService")]
    public class AspServiceComWrapper
    {
        // 实例化你原有MVC项目的ASPService
        private readonly ASPService _aspService = new ASPService();

        // 按需求暴露方法，所有方法参数和返回值用基本类型（int/string/bool等），复杂结构可以转JSON字符串传递
        public string GetUserData(int userId)
        {
            return _aspService.GetUserData(userId);
        }

        public bool UpdateUserStatus(int userId, int status)
        {
            return _aspService.UpdateUserStatus(userId, status);
        }
    }
}

步骤4：服务器部署注册 #

• 编译项目后，拿到输出的MyNewNetMVC.ComInterop.dll和MyNewNetMVC.ComInterop.tlb文件
• 服务器上以管理员权限打开命令提示符，根据你的经典ASP应用池位数选择对应regasm工具执行注册：
  • 32位应用池：C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm /codebase /tlb:MyNewNetMVC.ComInterop.tlb MyNewNetMVC.ComInterop.dll
  • 64位应用池：C:\Windows\Microsoft.NET\Framework64\v4.0.30319\regasm /codebase /tlb:MyNewNetMVC.ComInterop.tlb MyNewNetMVC.ComInterop.dll
• 确认服务器已安装对应版本的.NET Framework运行环境

4. 经典ASP调用示例 #

完全符合你的预期，直接使用以下代码调用即可：

Set aspService = Server.CreateObject("MyNewNetMVC.ASPService")
' 调用暴露的方法
userData = aspService.GetUserData(123)

内容的提问来源于stack exchange，提问作者user1595465