函數|樣本|轉換 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=666StrWelcome="歡迎第"&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 。
