asp数据转换函数示例

Variant变量一般会将其代表的数据子类型自动转换成合适的数据类型,但有时候,自动转换也会造成一些数据类型不匹配的错误.这时,可使用转换函数来强制转换数据的子类型.

1、Asc 函数示例

下面例子中, Asc 返回每一个字符串首字母的 ANSI 字符代码:

Dim MyNumberMyNumber = Asc("A") '返回 65。
MyNumber = Asc("a") '返回 97。
MyNumber = Asc("Apple") '返回 65

2、Chr 函数示例

下面例子利用 Chr 函数返回与指定的字符代码相对应的字符:

Dim MyCharMyChar = Chr(65) '返回 A。
MyChar = Chr(97) '返回 a。
MyChar = Chr(62) '返回 >。
MyChar = Chr(37) '返回 ％。

3、Hex 函数示例

下面的示例利用 Hex 函数返回数字的十六进制数：

Dim MyHexMyHex = Hex(5) ' 返回 5。
MyHex = Hex(10) ' 返回A。
MyHex = Hex(459) ' 返回 1CB。

4、Oct 函数示例下面的示例利用

Oct 函数返回数值的八进制数：

Dim MyOctMyOct = Oct(4) ' 返回 4。
MyOct = Oct(8) ' 返回 10。
MyOct = Oct(459) ' 返回 713。 

5、 CStr 函数示例

<％
num1=666
StrWelcome="欢迎第"&CStr(num1)&"个来访者"
％>

CStr将变量num1由整数子类型强制转换为字符串子类型

6、CDate 函数示例

MyDate = "October 19, 1962"   ' 定义日期。 
MyShortDate = CDate(MyDate)   ' 转换为日期数据类型。 
MyTime = "4:35:47 PM"         ' 定义时间。 
MyShortTime = CDate(MyTime)   ' 转换为日期数据类型。

7、CInt 函数示例

Dim MyDouble, MyInt
MyDouble = 2345.5678         ' MyDouble 是 Double。
MyInt = CInt(MyDouble)        ' MyInt 包含 2346。

8、CLng 函数示例

Dim MyVal1, MyVal2, MyLong1, MyLong2
MyVal1 = 25427.45: MyVal2 = 25427.55         ' MyVal1, MyVal2 是双精度值。
MyLong1 = CLng(MyVal1)                                  ' MyLong1 25427。
MyLong2 = CLng(MyVal2)                                  ' MyLong2 包含 25428 。

9、CBool 函数示例

Dim A, B, Check
A = 5: B = 5                          ' 初始化变量。
Check = CBool(A = B)        '复选框设为 True 。
A = 0                                     '定义变量。 
Check = CBool(A)               '复选框设为 False 。