asp vbscript 中自定义函数的默认参数实现代码

这篇文章主要介绍了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