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 。