其他

Public Function XtoF(str As Currency, Optional fenm As Integer = 32) As String ' 只限於整除分數. Dim Cfm As Currency Dim cfmmod As Integer On Error GoTo Erroreof Cfm = 1 / fenm XtoF = "" If str = 0 Then XtoF = "": Exit Function Dim point As Integer

<%Dim objDC, objRSSet objDC = Server.CreateObject("ADODB.Connection")objDC.ConnectionTimeout = 15objDC.CommandTimeout = 30' 建立資料庫連接objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;

Sub DoDropDown(Arr(), strSelName, onchange, strSelected, strexclude)Dim i if strSelected <> "" then swap arr, strSelected end if response.write "<select NAME='" & strSelName & "' SIZE=1 ONCHANGE='" &

CreateObject 函數建立並返回對 Automation 對象的引用。CreateObject(servername.typename [, location])參數servername必選項。提供對象的應用程式名稱。typename必選項。要建立的物件類型或類。location可選項。對象所在的網路伺服器將被建立。說明Automation 伺服器至少提供一種物件類型。例如，文書處理應用程式可以提供應用程式物件、文檔對象和工具條對象。要建立 Automation 對象，將

VBScript 頁面的簡單範例一個簡單頁面使用 Microsoft(R) Internet Explorer 可以查看用以下 HTML 程式碼製作的頁面。如果單擊頁面上的按鈕，可看到 VBScript 的運行結果。 <HTML><HEAD><TITLE>一個簡單首頁</TITLE><SCRIPT LANGUAGE="VBScript"><!--Sub Button1_nClick MsgBox "Hello,

如何在ADSI中查詢使用者屬性？<%Dim x On error resume next'Set x = GetObject("WinNT://kenfilszwin2k/allen")strLDAP="LDAP://kenfilszwin2k/CN=Allen He,OU=kenfilsz,dc=kenfilsz,dc=com"set x=getobject(strLDAP)Response.Write "Object Name: " & x.Name &

VBScript 常數常數是具有一定含義的名稱，用於代替數字或字串，其值從不改變。VBScript 定義了許多內部常數。詳細資料，請參閱 VBScript 語言參考。建立常數您可以使用 Const 語句在 VBScript 中建立使用者自訂常數。使用 Const 語句可以建立名稱具有一定含義的字串型或數值型常數，並給它們賦原義值。例如： Const MyString = "這是一個字串。"Const MyAge = 49請注意字串文字包含在兩個引號 (" ")

DatePart 函數返回給定日期的指定部分。DatePart(interval, date[, firstdayofweek[, firstweekofyear]])Argumentsinterval必選項。字串運算式表示要返回的時間間隔。有關數值，請參閱“設定”部分。Date必選項。要計算的日期運算式。firstdayof

Filter 函數返回下標從零開始的 數組，其中包含以特定過濾條件為基礎的字串數組的子集。 Filter(InputStrings, Value[, Include[, Compare]])參數InputStrings必選項。一維數組，要在其中搜尋字串。Value必選項。要搜尋的字串。Include可選項。Boolean 值，指定返回的子字串是否包含 Value。如果 Include 為 True，Filter 將返回包含子字串 Value 的數組子集。如果 Include 為

IsNumeric 函數返回 Boolean 值指明運算式的值是否為數字。IsNumeric(expression)expression 參數可以是任意運算式。說明如果整個 expression 被識別為數字，IsNumeric 函數返回 True；否則函數返回 False。如果 expression 是日期運算式，IsNumeric 函數返回 False。下面的樣本利用 IsNumeric 函數決定變數是否可以作為數值：Dim MyVar, MyCheckMyVar = 53

Split 函數返回基於 0 的一維數組，其中包含指定數目的子字串。Split(expression[, delimiter[, count[, start]]])參數expression必選項。字串運算式，包含子字串和分隔字元。如果 expression 為零長度字串，Split 返回空數組，即不包含元素和資料的數組。delimiter可選項。用於標識子字串界限的字元。如果省略，使用空格 ("") 作為分隔字元。如果 delimiter 為零長度字串，則返回包含整個 expression

IsObject 函數返回 Boolean 值指明運算式是否引用了有效 Automation 對象。IsObject(expression)expression 參數可以是任意運算式。說明如果 expression 是 Object 子類型變數或使用者自訂的對象，則 IsObject 返回 True；否則函數返回 False。下面的樣本利用 IsObject 函數決定標識符是否代表物件變數：Dim MyInt, MyCheck, MyObjectSet MyObject = Me

ScriptEngineMajorVersion 函數返回使用的編寫指令碼引擎的主要版本號。ScriptEngineMajorVersion說明傳回值直接對應於所使用的指令碼程式語言中 DLL 檔案包含的版本資訊。下面的樣本利用 ScriptEngineMajorVersion 函數返回編寫指令碼引擎的版本號碼： Function GetScriptEngineInfo Dim s s = "" '用必要的資訊形成字串。 s = ScriptEngine &

StrComp 函數返回一個表明字串比較結果的值。StrComp(string1, string2[, compare])參數string1必選項。任意有效字串運算式。string2必選項。任意有效字串運算式。Compare可選項。指示在計算字串時使用的比較類型的數值。如果省略，則執行二進位比較。有關數值，請參閱“設定”部分。設定compare 參數可以有以下值：常數值描述vbBinaryCompare0執行二進位比較。vbTextCompare1執行文本比較。傳回值StrComp

ScriptEngineMinorVersion 函數返回使用的編寫引擎引擎的次版本號碼。ScriptEngineMinorVersion說明傳回值直接對應於所使用的指令碼程式語言中 DLL 檔案包含的版本資訊。下面的樣本利用 ScriptEngineMinorVersion 函數返回編寫引擎的副版本號碼：Function GetScriptEngineInfo Dim s s = "" '用必要的資訊形成字串。 s = ScriptEngine & " Version "

FormatPercent 函數返回運算式，此運算式已被格式化為尾隨有 % 符號的百分比（乘以 100 ）。 FormatPercent(expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])FormatPercent

LCase 函數返回字串的小寫形式。LCase(string)string 參數是任意有效字串運算式。如果 string 參數中包含 Null，則返回 Null。說明僅大寫字母轉換成小寫字母；所有小寫字母和非字母字元保持不變。下面的樣本利用 LCase 函數把大寫字母轉換為小寫字母：Dim MyStringDim LCaseStringMyString = "VBSCript"LCaseString = LCase(MyString) ' LCaseString 包含 "vbscript"。

IsArray 函數返回 Boolean 值指明某變數是否為數組。IsArray(varname)varname 參數可以是任意變數。說明如果變數是數組，IsArray 函數返回 True；否則，函數返回 False。當變數中包含有數組時，使用 IsArray 函數很有效。下面的樣本利用 IsArray 函數驗證 MyVariable 是否為一數組：Dim MyVariableDim MyArray(3)MyArray(0) = "Sunday"MyArray(1) =

Sgn 函數返回表示數字記號的整數。Sgn(number)number 參數可以是任意有效數值運算式。傳回值Sgn 函數有如下傳回值：如果 number 為Sgn 返回大於零1等於零0小於零-1說明number 參數的符號決定 Sgn 函數的傳回值。下面的樣本利用 Sgn 函數決定數值的符號：Dim MyVar1, MyVar2, MyVar3, MySignMyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0MySign = Sgn(MyVar1) ' 返回 1。

Len 函數返回字串內字元的數目，或是儲存一變數所需的位元組數。Len(string | varname)參數string任意有效字串運算式。如果 string 參數包含 Null，則返回 Null。Varname任意有效變數名。如果 varname 參數包含 Null，則返回 Null。說明下面的樣本利用 Len 函數返回字串中的字元數目：Dim MyStringMyString = Len("VBSCRIPT") 'MyString 包含 8。注意 LenB