Sub是过程无返回值,而Function是函数有返回值 如 <% Class TestCls Public Sub TestSub(TestVar) TestVar="这是过程的内容" End Sub Public Function TestFunction() TestFunction="这是函数的内容" End Function End Class Dim ObjtCls,TestVar Set ObjtCls=New TestCls ObjtCls.TestSub TestVar Response.Write TestVar Response.Write ObjtCls.TestFunction() %>