set Response = nothing
與失敗,錯誤現在
"Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'Response' "
,我能想到的任何數量的原因,發動機可能不希望的讓我做這樣一個看似愚蠢的事情,但我不確定缺少一種方法可以阻止我。
編輯:這是我想用這個做的一個例子。
class ResponseBufferEphemeron
private real_response_
private buffer_
private sub class_initialize
set real_response_ = Response
end sub
private sub class_terminate
set Response = real_response_
end sub
public function init (buf)
set buffer_ = buf
set init = me
end function
public function write (str)
buffer_.add str
end function
end class
function output_to (buf)
set output_to = (new ResponseBufferEphemeron).init(buf)
end function
dim buf: set buf = Str("Block output: ") ' My string class '
with output_to(buf)
Response.Write "Hello, World!"
end with
Response.Write buf ' => Block output: Hello, World! '
你想做什麼? – 2010-07-21 20:38:42