日韩av爽爽爽久久久久久,嫩草av久久伊人妇女超级a,久久精品a亚洲国产v高清不卡,久久成人国产精品一区二区

知識學堂
  • ·聯系電話:+86.023-75585550
  • ·聯系傳真:+86.023-75585550
  • ·24小時手機:13896886023
  • ·QQ 咨 詢:361652718 513960520
當前位置 > 首頁 > 知識學堂 > 網站建設知識
asp之轉換函數示例
更新時間:2012-03-12 | 發(fā)布人:本站 | 點擊率:364

asp之轉換函數示例

Variant變量一般會將其代表的數據子類型自動轉換成合適的數據類型,但有時候,自動轉換也會造成一些數據類型不匹配的錯誤.這時,可使用轉換函數來強制轉換數據的子類型.

函數
功能
Asc 函數
返回與字符串的第一個字母對應的 ANSI 字符代碼。
Chr 函數
返回與指定的 ANSI 字符代碼相對應的字符
Hex 函數
返回表示十六進制數字值的字符串。
Oct 函數
返回表示數字八進制值的字符串。
CStr 函數

返回表達式,該表達式已被轉換為 字符串 子類型。

CDate 函數
返回表達式,此表達式已被轉換為 日期 子類型。
CInt 函數
返回表達式,此表達式已被轉換為 整數 子類型。
CLng 函數
返回表達式,此表達式已被轉換為 長整數 子類型
CSng 函數
返回表達式,該表達式已被轉換為 Single 子類型
CDbl 函數
返回表達式,此表達式已被轉換為 Double 子類型
CBool 函數
返回表達式,此表達式已轉換為 布爾 子類型

1、Asc 函數示例

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

Dim MyNumberMyNumber = Asc("A")      '返回 65MyNumber = 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)  ' 返回 5MyHex = 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 。