代码如下
<script language="vb" runat="server">
class class1
  Implements IDisposable
  sub hh
    HttpContext.Current.response.write ("hh")
  end sub
  Public Sub Dispose() Implements IDisposable.Dispose
    HttpContext.Current.response.write ("end")
  End Sub
end class
</script>
<%@ Page Language="vb" Debug="true" %>
<%
dim nn
nn=new class1
nn.hh
nn=nothing
%>目前的问题是,nn=nothing的时候,Dispose不起作用,请问如何修改代码达到Dispose自动执行