3,245
社区成员
发帖
与我相关
我的任务
分享高分请教asp的com组件调用问题
昨天还是好的，今天总是返回“缺少对象424 ”的错误。
用vb写了一个com+组件，用asp调用，昨天还是好好的，今天一直不行，请大家帮帮忙。
程序如下：
vb中:引用com+ services type libary和ms active server pages object
libaryPublic Sub onStartPage()
Dim x As Response
Set x = GetObjectContext.Item("Response")
x.Write "hello"
End Sub
active dll工程名字为VBShare.vbp,类为ClsOpen
---------------------------------------------
asp程序如下：
<%@ LANGUAGE="VBSCRIPT"%>
<HTML><BODY>
<H2 align="center">Test<H2>
<%
On Error Resume Next
dim ProgID,req
ProgID ="VBShare.ClsOpen"
set req = Server.CreateObject(ProgID)
req.onStartPage
if Err.Number<>0 then
response.write "<b>网页脚本出错!<b><br>"
response.write "<b>VB错误描述如下</b>：" & Err.Description & err.number
End if
%>
</body></html>
用vb写了一个com+组件，用asp调用，昨天还是好好的，今天一直不行，请大家帮帮忙。
程序如下：
vb中:引用com+ services type libary和ms active server pages object
libaryPublic Sub onStartPage()
Dim x As Response
Set x = GetObjectContext.Item("Response")
x.Write "hello"
End Sub
active dll工程名字为VBShare.vbp,类为ClsOpen
---------------------------------------------
asp程序如下：
<%@ LANGUAGE="VBSCRIPT"%>
<HTML><BODY>
<H2 align="center">Test<H2>
<%
On Error Resume Next
dim ProgID,req
ProgID ="VBShare.ClsOpen"
set req = Server.CreateObject(ProgID)
req.onStartPage
if Err.Number<>0 then
response.write "<b>网页脚本出错!<b><br>"
response.write "<b>VB错误描述如下</b>：" & Err.Description & err.number
End if
%>
</body></html>
...全文
请发表友善的回复…
发表回复
