asp测试变量的类型　函数

'****************************************************
'过程名：strtype
'作  用：测试时显示变量的类型,(主要使用到的是vartype)
'参  数：str
'****************************************************
Function strtype(str)
 str1=vartype(str)
  Select  Case str1
 Case 0 
  Response.Write str&" 是0 vbEmpty 未初始化（默认）"
 Case 1 
  Response.Write str&" 是1 vbNull 不包含任何有效数据"
 Case 2 
  Response.Write str&" 是2 vbInteger 整型子类型"
 Case 3 
  Response.Write str&" 是3 vbLong 长整型子类型"
 Case 4 
  Response.Write str&" 是4 vbSingle 单精度子类型"
 Case 5 
  Response.Write str&" 是5 vbDouble 双精度子类型"
 Case 6 
  Response.Write str&" 是6 vbCurrency 货币子类型"
 Case 7 
  Response.Write str&" 是7 vbDate 日期子类型"
 Case 8 
  Response.Write str&" 是8 vbString 字符串子类型"
 Case 9 
  Response.Write str&" 是9 vbObject 对象"
 Case 10 
  Response.Write str&" 是0 vbError 错误子类型"
 Case 11 
  Response.Write str&" 是11 vbBoolean Boolean "
 Case 12 
  Response.Write str&" 是12 vbVariantVariant （仅用于变量数组）"
 Case 13 
  Response.Write str&" 是13 vbDataObject 数据访问对象"
 Case 14 
  Response.Write str&" 是14 vbDecimal 十进制子类型"
 Case 17 
  Response.Write str&" 是17 vbByte 字节子类型"
 Case 8192 
  Response.Write str&"819 是2 vbArray 数组"
  End  Select
End Function
 

后来有人给我指出，没必要这么麻烦的，直接使用typename就可以了，一试，原来真是这样，郁闷死了，本以为发明了个东西，没想到发明了个"轮子"