| 发表于：2007-04-06 17:17:11 楼主 |
我的调试环境是：winxp pro sp2 + vb6
vb代码为：
implements objectcontrol
private objcontext as objectcontext
option explicit
private sub objectcontrol_activate（)
' get a reference to the object 's context here,
' so it can be used by any method that may be
' called during this activation of the object.
set objcontext = getobjectcontext（)
end sub
private function objectcontrol_canbepooled（) as boolean
' this object should not be recycled,
' so return false.
objectcontrol_canbepooled = false
end function
private sub objectcontrol_deactivate（)
' perform any necessary cleanup here.
set objcontext = nothing
end sub
public sub testmethodobjectctxt（)
dim objresponse as response
dim objrequest as request
set objresponse = objcontext（ "response ") ' obtain asp response object
set objrequest = objcontext（ "request ") ' obtain asp request object
if instr（objrequest.servervariables（ "http_user_agent "), "msie ") > 0 then
objresponse.write "you are using a very powerful browser. "
else
objresponse.write "try internet explorer today! "
end if
end sub
'然后asp文件：
<%
set obj = server.createobject（ "objectctxtproject.objectctxtclass ")
obj.testmethodobjectctxt
set obj = nothing
%>
'结果应该是返回
objresponse.write "you are using a very powerful browser. "
或objresponse.write "try internet explorer today! "
但反复调试发现objectcontrol_activate 没有被执行，这是为什么？
是xp不能作asp的com＋调试吗？有补丁吗？
文章：http://support.microsoft.com/kb/238274/zh-tw
|
|
|
|
|
