?call produce(argument1)

Dim bian1,biang2

const chang1,chang2

erase

erase array

exit

exit do

exit for

exit function

exit sub

option explicit 強制詳細定義變量

select case

VBscript常用函數：
1.數值型函數：
abs(num): 返回絕對值
sgn(num): num>0 1; num=0 0; num<0 -1;判斷數值正負
hex(num): 返回十六進制值 直接表示：&Hxx 最大8位
oct(num): 返回八進制值 直接表示：&Oxx 最大8位
sqr(num): 返回平方根 num>0
int(num): 取整 int(99.8)=99;int(13.2)=13;int(-13.9)=-14; int(-13.2)=-14;int(-99.2)=-100 ;
??????????? 當num為整數時，截尾取整，當num為負數時，加滿去整。
fix(num): 取整 fix(99.8)=99; fix(-99.2)=-99 fix為截尾取整。
round(num,n): 四舍五入（小于等于5舍，大于5入）取小數位 round(3.14159,3)=3.142 ；（須大于5才入）round(3.25,1)=3.2
????????????
log(num): 取以e為底的對數 num>0
exp(n): 取e的n次冪 通常用 num^n
sin(num): 三角函數，以弧度為值計算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num)
2.字符串函數：
len(str)：計算字符串長度 中文字符長度也計為一！
mid(str,起始字符,[讀取長度])：截取字符串中間子字符串 ，起始字符從1開始。
left(str,nlen)：從左邊起截取nlen長度子字符串
right(str,nlen)：從右邊起截取nlen長度子字符串
Lcase(str)：字符串轉成小寫
Ucase(str)：字符串轉成大寫
trim(str)：去除字符串兩端空格
Ltrim(str)：去除字符串左側空格
Rtrim(str)：去除字符串右側空格
replace(str,查找字符串,替代字符串,[起始字符,替代次數,比較方法])：替換字符串
注：默認值：起始字符 1；替代次數 不限；比較方法 區分大小寫（0）
InStr([起始字符,]str,查找字符串[,比較方法])：檢測是否包含子字符串 可選參數需同時選 返回起始位置
InStrRev(str,查找字符串[,起始字符][,比較方法])：反向檢測是否包含子字符串 返回起始位置
注：instrrev與instr的運行結果是一樣的。

space(n)：構造n個空格的字符串

string(n,str)：構造由n個str第一個字符組成的字符串
StrReverse(str)：反轉字符串
split(str,分割字符串[,次數][,比較方法])：以分割字符串為分割標志將字符串轉為字符數組 可選參數需同時選
3.數據類型轉換函數：
Cint(str)：轉換為數字。str不能為日期格式。
Cstr(str)：
Clng(str)：轉換為長整型。
Cbool(num)：num不為零 True；反之 False
Cdate(str)：str可以為后面幾種格式：1.Am 12:00:00；2.正數 距離1899/12/31天數的日期；3.1980年9月3日 AM 12:30:2;4.1980/09/23 PM 2:23:32
Cbyte(num)：num<255 轉換為字節
Csng(str)：轉換為單精度數值
Cdbl(str)：轉換為雙精度數值
Ccur(str)：轉換為現金格式
4.時間函數：
注意：參數date表示日期型數據，參數time表示時間型數據，參數datetime表示日期時間型數據。不同的參數不能隨便混用，有可能導致出錯。
date：取系統當前日期
time：取系統當前時間
now：取系統當前時間及日期值 Datetime類型
timer：取當前時間距離零點秒值，計時器，可計算時間差

DateAdd(間隔單位,間隔值,日期)：推算相鄰日期 。間隔單位為字符常量，"yyyy"表示年，"q"表示季，"m"表示月，"y","d","w"都表示日,"ww"表示周，"h","n","s"分別是時，分，秒。

DateDiff(間隔單位,日期一,日期二)：計算時間差 日期二-日期一
Datepart(間隔單位,日期)：計算日期的間隔單位值
Dateserial(date)：輸出日期值（按序列計算）
Timeserial(time)：輸出時間值（按序列計算）
DateValue(datetime)：取出字符串中日期值
Timevalue(datetime)：取出字符串中時間值
weekday(date)：計算星期幾
MonthName(date)：輸出月分名
year(datetime)：截取年份
month(datetime)：截取月份
day(datetime)：截取日
hour(datetime)：截取小時
minute(datetime)：截取分鐘
second(datetime)：截取秒
5.其它函數：
Array(unit,..)：動態生成數組
Asc(str)：輸出字符串第一個字符的ASCII碼
Chr(asc)：轉換ASCII為字符 Enter：Chr(13)&Chr(10)
Filter(數組名稱,關鍵字符串,[,包含][,比較方法])：
將字符串數組中含有關鍵字符串的元素存成新的數組（默認） [包含]為false則取不包含的元素
Join(ArrayName)：將數組中元素連成字符串
Ubound(ArrayName[,維數])：取得數組相應維數的上界
Lbound(ArrayName[,維數])：取得數組相應維數的下界 一般為0
Randmize n：啟動隨機數種子
Rnd(n)：取得隨機數，n>0或為空，取序列下一隨機值，n<0，隨機值相同，n=0，生產與上一隨機值相同的數
取介于A和B之間的隨機正數C，公式：C=Int((B-A+1)*Rnd+A) 條件（B>A）
子程序和自定義函數
Sub StrSubName Function StrFunName(arg[1],..)
子程序體 函數體
Exit Sub 中途跳出 Exit Function 中途跳出
End Sub StrFunName＝Value 返回值
End Function
[call] StrSubName 引用子程序 Var=StrFunName(arg[1],..) 引用函數
子程序和自定義函數可以遞歸調用；
ASP六大對象常用語句示范：
Response：
Response.write StrVar/"String"：向網頁寫出參數值或字符串 等同于在Html標記中嵌入<%=StrVar/"String"%>
Response.End：停止頁面編譯，并將已經編譯內容輸出到瀏覽器
Response.Buffer=True＆＃124;False：頁面編譯時是否使用緩存的設置，一般在頁面頭部設置
Response.Flush：強制輸出頁面已編譯部分內容
Response.Clear：將緩沖區內的數據清除
Response.Redirect URL：停止頁面編譯或輸出，轉載指定所需頁面
Response.IsClientConnected：返回True＆＃124;False，檢測用戶是否還處于連接狀態
Response.Charset(CharsetName)：設置頁面編碼類型，即<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
Response.ContentType [= ContentType ]：設置頁面文件類型，同上
Response.Expires [= number]：設置頁面失效時間，單位分鐘
Response.ExpiresAbsolute [= [date] [time]]：設置頁面失效的絕對時間
Response.Status = StatusDescription：設置頁面狀態描述
Request：
Request("PassStrName")：讀取網頁傳遞值，包括表單及以？PassStrName＝value&PassStrName_n＝value_n形式
Request[.collection＆＃124;property＆＃124;method](variable)
Request.querystring("PassStrName")：讀取Get方法傳遞的表單值和？PassStrName＝value
Request.QueryString(Varible)[(Index).Count]
Request.form("PassStrName")：讀取Post方法傳遞的純表單域的值
Request.Form(Parameter)[(Index).Count]
Request.ServerVaribles(Server Environment Variable)：讀取客戶端系統環境變量，詳見參考
Request.BinaryRead(Count)：讀取指定字節數的傳送值
Request.TotalBytes：查詢體的長度，以字節為單位，只讀
注：同名表單如：CheckBox如有多項值，傳遞形式如右，StrName=value1,value2,...需要用Split函數分割各項值
Multiple的Select表單與CheckBox類似，TextArea的值可包含換行字符，用Replace轉為<br>，以滿足格式需要
Session：（用戶全局變量）
Session("SesName")＝value：存儲Session變量值，也可讀取該值
Session("SesName")＝Empty：判斷Session值是否存在的兩種方法
IsEmpty(Session("SesName"))=True＆＃124;False：判斷Session值是否存在的兩種方法
Session.TimeOut=num：設置Session變量的存在時效，單位分鐘
Session.Abandon：清除所有Session變量值
Session.SessionID：Session變量的ID序列號，只讀
Application：（應用程序全局變量）
Application("AppName")＝value：存儲Application變量值，也可讀取該值
Application("AppName")＝Empty：判斷Application值是否存在的兩種方法
IsEmpty(Application("AppName"))=True＆＃124;False：判斷Application值是否存在的兩種方法
Application.Lock：Application變量值鎖定，防止同時更改變量值
Application.UnLock：Application變量值解鎖，允許更改變量值
注：Session與Application變量都可以用來存儲數組和系統對象，引用方法是變量名相當于數組名而已，
但不能直接改變其值，需要借助臨時數組修改值后，再賦給Session與Application變量
Global.asa文件的結構：<% @language="VBscript"%>
<% Sub Application_OnStart ...End Sub
Sub Application_OnEnd ... End Sub
Sub Session_OnStart ...End Sub
Sub Session_OnEnd ... End Sub%>
Server:
Server.MapPath("FileUrl")：映射文件名的服務器站點絕對地址，Path=Server.MapPath(./)可以得到虛擬目錄根路徑
Server.HtmlEncode("string")：轉換為可以直接顯示帶Html格式的字符串，如：<,>等
Server.URLEncode( "string")：轉換為瀏覽器地址編碼
set Var＝Server.CreatObject("ObjName")：創建對象變量
Server.ScriptTimeout = NumSeconds：ASP程序頁面執行時限，以秒為單位
Cookies: 存儲在用戶本機的臨時變量，每個Cookie的最大字節4KB，最多可以有300個Cookie 1.2MB
Response.cookies("StrCookieName")＝value：存儲Cookie變量值，也可讀取該值
Response.cookies("StrCookieName")＝""：判斷是否為空
Response.cookies("StrCookieName").Expires=Date：變量有效期，以天為單位，小于當前時間立即失效
Response.Cookies(Cookie[(key).Attribute])：標準語法
ObjectContext 控制ASP的事務處理
ObjectContext.OnTransactionAbort：由放棄的事務處理事件激發，在腳本完成處理后發生
ObjectContext.OnTransactionCommit：由成功的事務處理事件激發，在腳本完成處理后發生
ObjectContext.SetAbort：顯式的放棄一次事務處理
ObjectContext.SetComplete：覆蓋前面任何調用ObjectContext.SetAbort方法的調用
Msgbox "string"/StrName：VBscript提示框
表單的Onsubmit事件：在同一頁面寫入 Function FormName_onsubmit()..FormName_onsubmit＝True/False..end Function，
頁面會在提交前先執行語句，并根據返回值判斷是否完成提交任務。
數據庫連接字符串舉例：
Access2000：
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbase/liuyan.mdb")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbase/liuyan.mdb")&";Password=admin"
Recordset.Open "數據表名", conn, 2, 2
SqlServer2000：
conn.Open "Provider=SQLOLEDB.1;User ID=sa;Password=admin;Initial Catalog=pubs;Data Source=server/garlmrm"
conn.Open "provider=SQLOLEDB;data source=hyserver;uid=sa;pwd=;database=pubs"
Recordset.Open StrSQL, conn, 2, 2
Dbase：(?)
conn Open "Driver={Microsoft dBase Driver};SourceType=DB;SourceDB=" & Server.MapPath( "目錄名" )
Recordset.Open StrSQL, conn, 2, 2
FoxBase：
conn Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & Server.MapPath( "目錄名" )
Recordset.Open DBF文件名或Select語句, conn, 2, 2
conn Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=" & Server.MapPath( "DBC數據庫文件名" )
Recordset.Open DBF文件名或Select語句, conn, 2, 2
Excel：
conn Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & Server.MapPath( "XLS文件名" )
Recordset.Open "Select * From ["&sheet&"$]",conn,2,2
注：使用DBF、DBC、Excel數據庫，下面幾點要注意：Excel數據庫只能讀取、增加記錄、修改記錄，但不能刪除記錄；
DBF、DBC可以讀取記錄、增加記錄、刪除記錄、修改記錄，但是在增加記錄時，任何一個字段值都不能為空，由此
可看出局限性很大，所以盡可能地用MDB或SQL數據庫。

?

SQL函數
SQL函數
????? 使用SQL函數，您可以在一個SELECT語句的查詢當中，直接計算數據庫資料的平
均值、總數、最小值、最大值、總和、標準差、變異數等統計。使用Recordset對象
時，也可使用這些SQL函數。
SQL函數包括如下：

Avg函數：計算查詢中某一特定字段資料的算術平均值。
Count函數：計算符合查詢條件的記錄數。
Min, Max函數：傳回指定字段之中符合查詢條件的第一條、最末條記錄的資料。
First, Last函數：傳回指定字段之中符合查詢條件的最小值、最大值。
StDev函數：計算指定字段之中符合查詢條件的標準差。
Sum函數：計算指定字段之中符合查詢條件的資料總和。
Var,函數：計算指定字段之中符合查詢條件的變異數估計值。

ADO如何使用SQL函數呢？
譬如ASP程式碼rs21.asp，在用戶端使用瀏覽器，瀏覽執行的結果，顯示執行SQL函數
的結果。
ASP程式碼rs21.asp如下：
<%
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DBQ=" & Server.MapPath("ntopsamp.mdb") & ";Driver=
{Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Set rs2 = Server.CreateObject("ADODB.Recordset")
SqlStr = "SELECT Avg(價格) As 平均 From 產品"
rs2.Open SqlStr,conn1,1,1
Response.Write "<BR>Avg: " & rs2("平均")
rs2.Close
SqlStr = "SELECT Count(價格) From 產品"
rs2.Open SqlStr,conn1,1,1
Response.Write "<BR>Count(價格): " & rs2(0)
rs2.Close
SqlStr = "SELECT Count(*) From 產品"
rs2.Open SqlStr,conn1,1,1
Response.Write "<BR>Count(*): " & rs2(0)
rs2.Close
SqlStr = "SELECT Sum(價格) From 產品"
rs2.Open SqlStr,conn1,1,1
Response.Write "<BR>Sum: " & rs2(0)
rs2.Close
SqlStr = "SELECT Min(價格) From 產品"
rs2.Open SqlStr,conn1,1,1
Response.Write "<BR>Min: " & rs2(0)
rs2.Close
SqlStr = "SELECT Max(價格) From 產品"
rs2.Open SqlStr,conn1,1,1
Response.Write "<BR>Max: " & rs2(0)
rs2.Close
SqlStr = "SELECT First(價格) From 產品"
rs2.Open SqlStr,conn1,1,1
Response.Write "<BR>First(價格): " & rs2(0)
rs2.Close
SqlStr = "SELECT Last(價格) From 產品"
rs2.Open SqlStr,conn1,1,1
Response.Write "<BR>Last(價格): " & rs2(0)
rs2.Close
SqlStr = "SELECT First(代號) From 產品"
rs2.Open SqlStr,conn1,1,1
Response.Write "<BR>First(代號): " & rs2(0)
rs2.Close
SqlStr = "SELECT Last(代號) From 產品"
rs2.Open SqlStr,conn1,1,1
Response.Write "<BR>Last(代號): " & rs2(0)
rs2.Close
SqlStr = "SELECT StDev(價格) From 產品"
rs2.Open SqlStr,conn1,1,1
Response.Write "<BR>StDev: " & rs2(0)
rs2.Close
SqlStr = "SELECT Var(價格) From 產品"
rs2.Open SqlStr,conn1,1,1
Response.Write "<BR>Var: " & rs2(0)
rs2.Close
conn1.Close
%>
SQL函數，詳細描述如下：
Avg函數
Avg函數，計算查詢中某一特定字段資料的算術平均值。
????? 語法為Avg(運算式)。運算式，可為字段名稱、運算式、或一個函數，此函數可
以是一個內部或使用者定義的，但不能為其它的SQL函數。
Avg函數在計算時，不包含任何值為 Null 的資料。
Count函數
Count函數，計算符合查詢條件的記錄條數。
????? 語法為Count (運算式)。運算式，可為字段名稱、*、多個字段名稱、運算式、
或一個函數，此函數可以是一個內部或使用者定義的，但不能為其它的SQL函數。
Count 函數於計算時，不包含任何值為 Null 的資料。
但是，Count(*) 則計算所有符合查詢條件的記錄條數，包含那些Null的資料。
????? 如果Count(字段名稱) 的字段名稱為多個字段，將字段名稱之間使用 & 分隔。
多個字段當中，至少有一個字段的值不為Null的情況下，Count函數才會計算為一條
記錄。如果多個字段都為Null，則不算是一條記錄。譬如：
SELECT Count(價格 & 代號) From 產品
First/Last函數
????? First函數、Last函數，傳回指定字段之中符合查詢條件的第一條、最末條記錄
的資料。
????? 語法為First(運算式) 和 Last(運算式)。運算式，可為字段名稱、運算式、或
一個函數，此函數可以是一個內部或使用者定義的，但不能為其它的SQL函數。
Min/Max函數
????? Min函數、Max函數，傳回指定字段之中符合查詢條件的最小值、最大值。
ado如何使用sql函數?
????? 語法為Min(運算式) 和 Max(運算式)。運算式，可為字段名稱、運算式、或一個
函數，此函數可以是一個內部或使用者定義的，但不能為其它的SQL函數。
StDev函數
StDev函數，計算指定字段之中符合查詢條件的標準差。
????? 語法為StDev(運算式)。運算式，可為字段名稱、運算式、或一個函數，此函數
可以是一個內部或使用者定義的，但不能為其它的SQL函數。
????? 如果符合查詢條件的記錄為兩個以下時，StDev函數將傳回一個Null 值，該表示
不能計算標準差。
Sum函數
Sum函數，計算指定字段之中符合查詢條件的資料總和。
????? 語法為Sum(運算式)。運算式，可為字段名稱、運算式、或一個函數，此函數可
以是一個內部或使用者定義的，但不能為其它的SQL函數。
Sum函數可使用兩個字段資料運算式，譬如計算產品的單價及數量字段的合計：
SELECT Sum(單價 * 數量) FROM 產品
Var函數
Var函數，計算指定字段之中符合查詢條件的變異數估計值。
????? 語法為Var(運算式)。運算式，可為字段名稱、運算式、或一個函數，此函數可
以是一個內部或使用者定義的，但不能為其它的SQL函數。
????? 如果符合查詢條件的記錄為兩個以下時，Var函數將傳回一個Null 值，該表示不
能計算變異數。

?

?

總結

以上是生活随笔為你收集整理的vbs 基本语法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。