asp(vbscript)のカスタム関数とデフォルトのパラメータコード

最近の言語にはデフォルトの引数を持つ関数があり、vbscriptに組み込まれた関数はオプションの値を持つことができますが（よく使われるsplit()など）、独自に定義した関数はこの機能を持つことができません。

ここでは、オプション引数を実装する方法を紹介します。

functin foo(dtype, dsize, value)
   dim a, b
   if TypeName(dtype) <> "Error" Then
       a = dtype
   else
       a = "default value"
   end if
   If TypeName(dsize) <> "Error" Then
       b = dsize
   else
       b = -1
   end if
   .
end function

サンプルコードにあるように、foo関数dtypeとdsizeはオプション関数で、引数ありでも引数なしでも呼び出すことができます。引数を渡さない場合は、カンマのプレースホルダーをなくさないように、つまり、foo(,, "myvalue")という形式を使用するようにする必要があります。