asp之转换函数示例
Variant变量一般会将其代表的数据子类型自动转换成合适的数据类型,但有时候,自动转换也会造成一些数据类型不匹配的错误.这时,可使用转换函数来强制转换数据的子类型.
|
函数 |
功能 |
|
Asc 函数 |
返回与字符串的第一个字母对应的 ANSI 字符代码。 |
|
Chr 函数 |
返回与指定的 ANSI 字符代码相对应的字符 |
|
Hex 函数 |
返回表示十六进制数字值的字符串。 |
|
Oct 函数 |
返回表示数字八进制值的字符串。 |
|
CStr 函数 |
返回表达式，该表达式已被转换为 字符串 子类型。 |
|
CDate 函数 |
返回表达式，此表达式已被转换为 日期 子类型。 |
|
CInt 函数 |
返回表达式，此表达式已被转换为 整数 子类型。 |
|
CLng 函数 |
返回表达式，此表达式已被转换为 长整数 子类型 |
|
CSng 函数 |
返回表达式，该表达式已被转换为 Single 子类型 |
|
CDbl 函数 |
返回表达式，此表达式已被转换为 Double 子类型 |
|
CBool 函数 |
返回表达式，此表达式已转换为 布尔 子类型 |
1、Asc 函数示例
下面例子中, Asc 返回每一个字符串首字母的 ANSI 字符代码:
Dim MyNumber
MyNumber = Asc("A") '返回 65。
MyNumber = Asc("a") '返回 97。
MyNumber = Asc("Apple") '返回 65。
2、Chr 函数示例
下面例子利用 Chr 函数返回与指定的字符代码相对应的字符:
Dim MyChar
MyChar = Chr(65) '返回 A。
MyChar = Chr(97) '返回 a。
MyChar = Chr(62) '返回 >。
MyChar = Chr(37) '返回 %。
3、Hex 函数示例
下面的示例利用 Hex 函数返回数字的十六进制数：
Dim MyHex
MyHex = Hex(5) ' 返回 5。
MyHex = Hex(10) ' 返回A。
MyHex = Hex(459) ' 返回 1CB。
4、Oct 函数示例
下面的示例利用 Oct 函数返回数值的八进制数：
Dim MyOct
MyOct = 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 。
