Vbscript 典型ASP错误'；800a01ad&x27；ActiveX组件可以'；不创建对象

我们有一个不是由我们设计的系统，该系统的一部分是一个经典的ASP门户。门户当前正在运行，其中一台服务器上没有问题

我们想在门户上做一些开发工作，所以我们想把它放在TFS上，而不是在本地工作。问题是无论我怎么做，我们都无法在本地运行。这就是我们所尝试的：

从工作服务器导入IIS设置

注册我们能想到的任何dll

池正在使用系统网络凭据运行

池已启用32位

使用VS2012运行它

日志文件似乎没有任何有用的东西

错误：

凸轮定位错误“800a01ad”

ActiveX组件无法创建对象

/StudentTest/inc/TRSSession.asp，第17行

我怎样才能发现我们遗漏了什么？我假设它是一个dll。 我们知道这不是代码问题，因为网站在服务器上运行正常

导致错误的行：

TRSSession.Acquire GUID, RemoteIP 

在：

Dim TRSSession
暗淡的GUID
Dim远程IP
GUID=CStr（Request.Cookies（“TRSSession”））
RemoteIP=Request.ServerVariables（“远程地址”）
如果不是IsObject（会话（“TRSSession”）），则
设置TRSSession=Server.CreateObject（“camsession.TRSSession”）
调用TRSSession.Constructor（Application.Value（“strSvrName”）、Application.Value（“strDBName”））
TRSSession.PortalServiceURI=Application.Value（“PortalService”）
TRSSession.IP=RemoteIP
TRSSession.AllowBatchMode=True
设置会话（“TRSSession”）=TRSSession
TRSSession.Acquire GUID，RemoteIP
其他的
设置TRSSession=会话（“TRSSession”）
如果结束
如果GUID=”“，则
如果LCase（Request.ServerVariables（“HTTPS”））=“on”，则
Response.AddHeader“Set Cookie”、“TRSSession=“&CStr（TRSSession.GUID）”和“secure；HttpOnly”
其他的
Response.AddHeader“Set Cookie”、“TRSSession=“&CStr（TRSSession.GUID）”和“HttpOnly”
如果结束
如果结束
暗淡的旅行
如果Request.QueryString（“GUID”）“”则
设置TRSSessionF=Server.CreateObject（“camsession.TRSSession”）
调用TRSSessionF.Constructor（Application.Value（“strSvrName”）、Application.Value（“strDBName”））
TRSSessionF.PortalServiceURI=Application.Value（“PortalService”）
TRSSessionF.IP=远程IP
TRSSessionF.Acquire-Request.QueryString（“GUID”），RemoteIP，True
TRSSESION（“TermID”）=TRSSESIONF（“TermID”）
TRSSession（“TextTerm”）=TRSSessionF（“TextTerm”）
TRSSESION（“SROfferID”）=TRSSESIONF（“SROfferID”）
TRSSession（“CourseName”）=TRSSessionF（“CourseName”）
TRSSESION（“课程”）=TRSSESIONF（“课程”）
TRSSession（“FacultyID”）=TRSSessionF（“FacultyID”）
TRSSession（“FPM”）=“真”
TRSSession（“StudentName”）=“教员预览模式”
如果结束
%>

第17行有什么内容？？？是的，它是一个DLL。plz显示/StudentTest/inc/TRSSession.aspHey的源代码，我在帖子中添加了TRSSession.asp代码，谢谢！我们仍然不知道错误指向哪一行。错误指向：TRSSession.Acquire GUID，RemoteIP

    Dim TRSSession
    Dim GUID
    Dim RemoteIP

GUID = CStr(Request.Cookies("TRSSession"))
RemoteIP = Request.ServerVariables("REMOTE_ADDR")

If Not IsObject(Session("TRSSession")) Then
    Set TRSSession = Server.CreateObject("CAMSSession.TRSSession")
    Call TRSSession.Constructor(Application.Value("strSvrName"), Application.Value("strDBName"))
    TRSSession.PortalServiceURI = Application.Value("PortalService")
    TRSSession.IP = RemoteIP
    TRSSession.AllowBatchMode = True
    Set Session("TRSSession") = TRSSession
    TRSSession.Acquire GUID, RemoteIP
Else
    Set TRSSession = Session("TRSSession")
End If

If GUID = "" Then
    If LCase(Request.ServerVariables("HTTPS")) = "on" Then
        Response.AddHeader "Set-Cookie", "TRSSession=" & CStr(TRSSession.GUID) & "; secure; HttpOnly"
    Else
        Response.AddHeader "Set-Cookie", "TRSSession=" & CStr(TRSSession.GUID) & "; HttpOnly"
    End If
End If

Dim TRSSessionF

If Request.QueryString("GUID") <> "" Then
    Set TRSSessionF = Server.CreateObject("CAMSSession.TRSSession")
    Call TRSSessionF.Constructor(Application.Value("strSvrName"), Application.Value("strDBName"))
    TRSSessionF.PortalServiceURI = Application.Value("PortalService")
    TRSSessionF.IP = RemoteIP
    TRSSessionF.Acquire Request.QueryString("GUID"), RemoteIP, True
    TRSSession("TermID") = TRSSessionF("TermID")
    TRSSession("TextTerm") = TRSSessionF("TextTerm")
    TRSSession("SROfferID") = TRSSessionF("SROfferID")
    TRSSession("CourseName") = TRSSessionF("CourseName")
    TRSSession("Course") = TRSSessionF("Course")
    TRSSession("FacultyID") = TRSSessionF("FacultyID")
    TRSSession("FPM") = "True"
    TRSSession("StudentName")= "<span style=""color:Red"">Faculty Preview Mode</span>"
End If

%>