<script  language="vbscript" runat="server">
    Sub WriteNameA(name)
        Response.Write("My name is " + name + ".")
    End Sub
    
    Function WriteNameB(name)
        WriteNameB = "My name is " + name + "."
    End Function
</script>
<script  language="javascript" runat="server">
    function WriteNameC(name)
    {
        Response.Write("My name is " + name + ".")
    }
    
    function WriteNameD(name)
    {
        return "My name is " + name + "."
    }
</script>
<%
'调用VBScript子过程
Call WriteNameA("NameA")
WriteNameA "NameA"

'调用VBScript函数
Response.Write(WriteNameB("NameB"))

'调用JavaScript函数
WriteNameC("NameC")
Response.Write(WriteNameD("NameD"))
%>