'vbEmpty 0 Empty（未初始化）
'vbNull 1 Null（无有效数据）
'vbInteger 2 整数
'vbLong 3 长整数
'vbSingle 4 单精度浮点数
'vbDouble 5 双精度浮点数
'vbCurrency6 货币
'vbDate 7日期
'vbString 8字符串
'vbObject 9 Automation 对象
'vbError 10 错误
'vbBoolean 11Boolean
'vbVariant 12 Variant（只和变量数组一起使用）
'vbDataObject13 数据访问对象
'vbByte 17 字节
'vbArray 8192数组
Dim c
Response.Write(VarType(c) & span)