vbscript方法属性语句

VBScript 函数集
1.函数array()　
功能:创建一个数组变量　
格式:array(list)　
参数:list为数组变量中的每个数值列,中间用逗号间隔
<%　i　=　array　(“1″,”2″,”3”)　%>　
结果:　i　被赋予为数组
2.函数Cint()　
功能:将一表达式/其它类型的变量转换成整数类型(int)　
格式:Cint(expression)　
参数:expression　是任何有效的表达式/其它类型的变量　
<%　 f　=　”234″　
response.write　cINT(f)　+　2　 %>　
结果:　236　
函数Cint()将字符”234″转换　成整数234.如果表达式为空,　或者无效时,返回值为0;　
3.函数:Creatobject()　
功能:创建及返回一个ActiveX对象.　
格式:Creatobject(obname)　
参数bname　是对象的名称　
<%　 Set　con　=　Server.CreateObject(“ADODB.Connection”)　%>　
4.函数Cstr()　
功能:将一表达式/其它类型的变量转换成字符类型(string)　
格式:Cstr(expression)　
参数:expression是任何有效的表达式/其它类型的变量
<%　 s　=　3　+　2　
response.write　”The　result　is:　”　&　cStr(s)%>
结果:函数Cstr()将整数　5　转换　成字符”5″.　
CDate 函数
返回表达式，此表达式已被转换为 Date 子类型的 Variant。
MyDate = “October 19, 1962″‘ 定义日期。
MyShortDate = CDate(MyDate)’ 转换为日期数据类型。
MyTime = “4:35:47 PM” ‘ 定义时间。
MyShortTime = CDate(MyTime)’转换为日期数据类型。
CDbl 函数
返回表达式，此表达式已被转换为 Double 子类型的 Variant。
Dim MyCurr, MyDouble
MyCurr = CCur(234.456784) ‘ MyCurr 是 Currency 型 (234.4567)。
MyDouble = CDbl(MyCurr * 8.2 * 0.01) ‘ 把结果转换为 Double 型 (19.2254576)。
Chr 函数
返回与指定的 ANSI 字符代码相对应的字符。
MyChar = Chr(65) ‘返回 A
CLng 函数
返回表达式，此表达式已被转换为 Long 子类型的 Variant
MyVal1 = 25427.45: MyVal2 = 25427.55′ MyVal1, MyVal2 是双精度值。
MyLong1 = CLng(MyVal1)’ MyLong1 25427。
MyLong2 = CLng(MyVal2)’ MyLong2 包含 25428 。
Cos 函数 返回某个角的余弦值。
Dim MyAngle, MySecant
MyAngle = 1.3 ‘ 用弧度定义一个角。
MySecant = 1 / Cos(MyAngle) ‘ 计算正割。
CSng 函数
返回表达式，该表达式已被转换为 Single 子类型的 Variant
Dim MyDouble1, MyDouble2, MySingle1, MySingle2 ‘ MyDouble1, MyDouble2 是双精度值。
MyDouble1 = 75.3421115: MyDouble2 = 75.3421555
MySingle1=CSng(MyDouble1)’MySingle1包含 75.34211 。
MySingle2 = CSng(MyDouble2) ‘ MySingle2 包含 75.34216 。
5.函数Date()　
功能:返回当前系统(server端)的日期　
格式:　Date()　
参数:无　
例子<%　date　()　%>　
结果:05/10/00　
6.函数Dateadd()　
功能:计算某个指定的时间和　
格式:　dateadd(timeinterval,number,date)　
参数:timeinterval是时间单位(月,日..);　number是时间间隔值,date是时间始点.　
<%　 currentDate　=　#8/4/99#　
newDate　=　DateAdd(“m”,3,currentDate)　
response.write　newDate　
%>　<%　
currentDate　=　#12:34:45　PM#　
newDate　=　DateAdd(“h”,3,currentDate)　
response.write　newDate　%>　
结果:　
11/4/99　
3:34:45　PM　
其中　
“m”　=　”month”;　
“d”　=　”day”;　
如果是currentDate　格式,则,　
“h”　=　”hour”;　
“s”　=　”second”;　
7.函数Datediff()　
功能:计算某量个指定的时间差　 格式:　datediff(timeinterval,date1,date2[,firstdayofweek[,firstdayofyear]])　
参数:　timeinterval　是时间单位;　date1,date2是有效的日期表达式,firstdayofweek,firstdayofyear　是任意选项.　
<%　 fromDate　=　#8/4/99#　
toDate　=　#1/1/2000#　
response.write　”There　are　”　&　_　
DateDiff(“d”,fromDate,toDate)　&　_　
“　days　to　millenium　from　8/4/99.”　 %>　
结果:There　are　150　days　to　millenium　from　8/4/99.
DatePart 函数返回给定日期的指定部分。
DatePart(interval, date[, firstdayofweek[, firstweekofyear]])
interval必选项。字符串表达式表示要返回的时间间隔。
Date必选项。要计算的日期表达式。
firstdayof week可选项。指定星期中的第一天的常数。如果没有指定，则默认为星期日。
Firstweekofyear可选项。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。
interval 参数可以有以下值：
yyyy 年 q 季度 m 月 y 一年的日数 d 日
w 一周的日数 ww 周 h 小时 n 分钟 s 秒
firstdayofweek 参数可以有以下值：
常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbSunday 1 星期日（默认）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数可以有以下值：
常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbFirstJan1 1 由 1 月 1 日所在的星期开始（默认）。
vbFirstFourDays2由在新年中至少有四天的第一周开始。
vbFirstFullWeek 3 由在新的一年中第一个完整的周（不跨年度）开始。
Function GetQuarter(TheDate)
GetQuarter = DatePart(“q”, TheDate)
End Function
DateSerial 函数
对于指定的年、月、日，返回 Date 子类型的 Variant。
DateSerial(year, month, day)
Year从 100 到 9999 之间的数字或数值表达式。
Month任意数值表达式。Day任意数值表达式
Dim MyDate1, MyDate2
MyDate1=DateSerial(1970,1,1)’ Returns January 1, 1970.
MyDate2 = DateSerial(1990 – 10, 8 – 2, 1 – 1)’ Returns May 31, 1980.
DateValue 函数
返回 Date 子类型的 Variant。
Dim MyDate
MyDate = DateValue(“September 11, 1963”)’ 返回日期。　
8.函数day()　
功能:返回一个整数值,对应于某月的某日　
格式:　day(date)　
参数:　date是一个有效的日期表达式;　
例子<%　=date(#8/4/99#)　%>　
结果:4　
派生数学函数
下列是由固有数学函数派生的非固有数学函数：
函数 派生的等效公式
Secant（正割） Sec(X) = 1 / Cos(X)
Cosecant（余割） Cosec(X) = 1 / Sin(X)
Cotangent（余切） Cotan(X) = 1 / Tan(X)
Inverse Sine（反正弦）Arcsin(X)= Atn(X/Sqr(-X*X + 1))
Inverse Cosine（反余弦） Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Inverse Secant（反正割） Arcsec(X) = Atn(X / Sqr(X * X – 1)) + Sgn((X) -1) * (2 * Atn(1))
Inverse Cosecant（反余割） Arccosec(X) = Atn(X / Sqr(X * X – 1)) + (Sgn(X) – 1) * (2 * Atn(1))
InverseCotangent（反余切）Arccotan(X) = Atn(X)+2*Atn(1)
Hyperbolic Sine（双曲正弦） HSin(X) = (Exp(X) – Exp(-X)) / 2
Hyperbolic Cosine（双曲余弦） HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent（双曲正切） HTan(X) = (Exp(X) – Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant（双曲正割） HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant（双曲余割） HCosec(X) = 2 / (Exp(X) – Exp(-X))
Hyperbolic Cotangent（双曲余切） HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) – Exp(-X))
Inverse Hyperbolic Sine（反双曲正弦） HArcsin(X) = Log(X + Sqr(X * X + 1))
Inverse Hyperbolic Cosine（反双曲余弦） HArccos(X) = Log(X + Sqr(X * X – 1))
Inverse Hyperbolic Tangent（反双曲正切） HArctan(X) = Log((1 + X) / (1 – X)) / 2
Inverse Hyperbolic Secant（反双曲正割） HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
Inverse Hyperbolic Cosecant（反双曲余割） HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) +1) / X)
Inverse Hyperbolic Cotangent（反双曲余切） HArccotan(X) = Log((X + 1) / (X – 1)) / 2
以 N 为底的对数 LogN(X) = Log(X) / Log(N)
Eval 函数
计算一个表达式的值并返回结果。
[result = ]Eval(expression)
If Eval(“Guess = RndNum”) Then
Exp 函数
返回 e（自然对数的底）的幂次方。
Exp(number)
Dim MyAngle, MyHSin ‘ 用弧度定义角。
MyAngle = 1.3 ‘计算双曲线的正弦。
MyHSin = (Exp(MyAngle) – Exp(-1 * MyAngle)) / 2
Filter 函数
返回下标从零开始的 数组，其中包含以特定过滤条件为基础的字符串数组的子集。
Filter(InputStrings, Value[, Include[, Compare]])
InputStrings必选项。一维数组，要在其中搜索字符串。
Value必选项。要搜索的字符串。
Include可选项。Boolean 值，指定返回的子字符串是否包含 Value。如果 Include 为 True，Filter 将返回包含子字符串 Value 的数组子集
。如果 Include 为 False，Filter 将返回不包含子字符串 Value 的数组子集。
Compare可选项。数字值指出使用的比较字符串 类型.请参阅值设置部分.
Compare 参数可以有以下值：
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。
下面例子利用Filter函数返回包含搜索条件”Mon”的数组:
Dim MyIndex
Dim MyArray (3)
MyArray(0) = “Sunday”
MyArray(1) = “Monday”
MyArray(2) = “Tuesday”
MyIndex = Filter(MyArray, “Mon”) ‘MyIndex(0) 包含 “Monday”。
9.函数formatcurrency()　
功能:转换成货币格式　
格式:　formatcurrency(expression　[,digit[,leadingdigit[,paren[,groupdigit]]]])　
参数:expression是有效的数字表达式;digit表示小数点后的位数;leadingdigit,paren,groupdigit是任意选项.
例子<%=FormatCurrency(34.3456)%>　
结果34.35　
10.函数Formatdatetime()　
功能:格式化日期表达式/变量　
格式:　formatdatetime(date[,nameformat])　
参数:　date为有效的日期表达式/变量;nameformat是指定的日期格式常量名称.　
例子<%　=formatdatetime(“08/04/99”,vblongdate)%>
结果:Wednesday,August　04,1999　
返回表达式，此表达式已被格式化为日期或时间。　
FormatDateTime(Date[,　NamedFormat])
FormatDateTime　函数的语法有以下参数：
参数　描述　
Date　必选项。要被格式化的日期表达式。　
NamedFormat　可选项。指示所使用的日期/时间格式的数值，如果省略，则使用　vbGeneralDate。　
NamedFormat　参数可以有以下值：
常数　值　描述　
vbGeneralDate　0　显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式
。如果都存在，则显示所有部分。　
vbLongDate　1　使用计算机区域设置中指定的长日期格式显示日期。　
vbShortDate　2　使用计算机区域设置中指定的短日期格式显示日期。　
vbLongTime　3　使用计算机区域设置中指定的时间格式显示时间。　
vbShortTime　4　使用　24　小时格式　(hh:mm)　显示时间。　
下面例子利用　FormatDateTime　函数把表达式格式化为长日期型并且把它赋给　MyDateTime:　
Function　GetCurrentDate　
“FormatDateTime　把日期型格式化为长日期型。
GetCurrentDate　=　FormatDateTime(Date,　1)　
End　Function
FormatNumber 函数
返回表达式，此表达式已被格式化为数值。
FormatNumber(expression [,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]
)FormatNumberDemo = FormatNumber(MySecant,4) ‘ 把 MySecant 格式化为带四位小数点的数
FormatPercent 函数
返回表达式，此表达式已被格式化为尾随有 % 符号的百分比（乘以 100 ）。
MyPercent = FormatPercent(2/32) ‘MyPercent 包含 6.25%。
GetLocale 函数
返回当前区域设置 ID 值。GetLocale()
GetObject 函数
返回对文件中 Automation 对象的引用。
GetObject([pathname] [, class])
Set CADObject = GetObject(“C:\CAD\SCHEMA.CAD”)
GetRef 函数
返回一个指向一过程的引用，此过程可绑定某事件。
Set object.eventname = GetRef(procname)
Hex 函数
返回表示十六进制数字值的字符串。Hex(number)
Hour 函数
返回 0 到 23 之间的一个整数（包括 0 和 23），代表一天中的某一小时。
MyTime = Now MyHour = Hour(MyTime)
InputBox 函数
在对话框中显示提示，等待用户输入文本或单击按钮，并返回文本框内容。
InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])
Input = InputBox(“输入名字”)
InStr 函数
返回某字符串在另一字符串中第一次出现的位置。
InStr([start, ]string1, string2[, compare])
InStrRev 函数
返回某字符串在另一个字符串中出现的从结尾计起的位置。
InStrRev(string1, string2[, start[, compare]])
MyPos = InstrRev(SearchString, SearchChar, 10, 0)
Int、Fix 函数返回数字的整数部分。
Int(number)Fix(number)
Int 和 Fix 函数的区别在于如果 number 参数为负数时，Int 函数返回小于或等于 number 的第一个负整数，而 Fix 函数返回大于或等于
number 参数的第一个负整数。例如，Int 将 -8.4 转换为 -9，而 Fix 函数将 -8.4 转换为 -8。
Fix(number) 等同于：Sgn(number) * Int(Abs(number))
MyNumber = Int(99.8) ‘ 返回 99
IsArray 函数
返回 Boolean 值指明某变量是否为数组。
IsArray(varname)varname 参数可以是任意变量。
Dim MyArray(3)
MyArray(0) = “Sunday”
MyArray(1) = “Monday”
MyArray(2) = “Tuesday”
MyVariable = IsArray(MyArray) ‘ MyVariable 包含 “True”。
IsDate 函数
返回 Boolean 值指明某表达式是否可以转换为日期。
IsDate(expression)
MyDate = “October 19, 1962”: YourDate = #10/19/62#: NoDate = “Hello”
MyCheck = IsDate(MyDate) ‘ 返回 True。
MyCheck = IsDate(YourDate)’ 返回 True。
MyCheck = IsDate(NoDate)’ 返回 False。
IsEmpty 函数
返回 Boolean 值指明变量是否已初始化。
IsEmpty(expression)
Dim MyVar, MyCheck
MyCheck = IsEmpty(MyVar)’ 返回 True。
MyVar = Null ‘ 赋为 Null。
MyCheck = IsEmpty(MyVar)’ 返回 False。
IsNull 函数
返回 Boolean 值，指明表达式是否不包含任何有效数据 (Null)。
IsNull(expression)
Dim MyVar, MyCheck
MyCheck = IsNull(MyVar) ‘ 返回 False。
MyVar = Null ‘ 赋为 Null。
MyCheck = IsNull(MyVar) ‘ 返回 True。
11.函数Isnumeric()　
功能:返回一个布尔值,判断变量是否为数字变量,或者是可以转换成数字的其它变量.　
格式:isnumeric(expression)　
参数:expression　是任意的变量.　
<%　 i=”234″　
response.write　isnumeric(i)　 %>　
结果:　true.
12.函数Isobject()　
功能:返回一个布尔值,判断变量是否为对象的变量,　
格式:　isobject(expression)　
参数:　expression　是任意的变量.　
<% set con　=server.creatobject(“adodb.connection”)　
response.write　isobject(con)　 %>　
结果:　true
Join 函数
返回一个字符串，此字符串由包含在数组中的许多子字符串联接创建。
Join(list[，delimiter])
Dim MyString
Dim MyArray(3)
MyArray(0) = “Mr.”
MyArray(1) = “John ”
MyArray(2) = “Doe ”
MyArray(3) = “III”
MyString = Join(MyArray) ‘MyString 包含 “Mr. John Doe III”。　
13.函数:Lbound()　
功能:返回一个数组的下界.　
格式:Lbound(arrayname[,dimension])　
参数:arrayname　是数组变量,dimension　是任意项　
<%　 i　=　array(“1″,”2″,”3”)　
response.write　lbound(i)　 %>　
结果:0
14.函数Lcase()　
功能:将一字符类型变量的字符全部变换小写字符.　
格式:Lcase(string)　
参数:string是字符串变量　
<%　 str=”THIS　is　Lcase!”　
response.write　Lcase(str)　 %>　
结果:this　is　lcase!　
15.函数left()　
功能:截取一个字符串的前部分;　
格式:left(string,length)　
参数:string字符串,length截取的长度.　
例子:　<%　=left(“this　is　a　test!”,6)　%>　
结果:this　i　
16.函数len()　
功能:返回字符串长度或者变量的字节长度　
格式:len(string　*varname)　
参数:string字符串;varname任意的变量名称　
<%　 strtest=”this　is　a　test!”　
response.write　left(strtest)　 %>　
结果:15
LoadPicture 函数返回图片对象。
LoadPicture(picturename)
picturename 参数是字符串表达式，该表达式指明了要装入的图片文件的名称。
Log 函数返回数值的自然对数。
Log(number)
自然对数是以 e 为底的对数。常数 e 的值约为 2.718282。
用 n 的自然对数除 x 的自然对数，可以得到以 n 为底的 x 的对数。如下所示：
Logn(x) = Log(x) / Log(n)
以下示例为一个自定义的 Function 过程，该过程计算以 10 为底的对数：
Log10(X) 函数
Log10 = Log(X) / Log(10)
End Function
17.函数ltrim()　
功能:去掉字符串前的空格.　
格式:ltrim(string)　
参数:string　字符串.　
例子:　<%　=ltrim　(“　this　is　a　test!”)　
结果:this　is　a　test!　
LTrim、RTrim 和 Trim 函数
返回不带前导空格 (LTrim)、后续空格 (RTrim) 或前导与后续空格 (Trim) 的字符串副本。
数学函数
Abs 函数Atn 函数Cos 函数Exp 函数Fix 函数Int 函数Log 函数Rnd 函数Sgn 函数Sin 函数Sqr 函数Tan 函数
派生数学函数
18.函数Mid()　
功能:从字符串中截取字符串.　
格式:mid(string,start　[,length])　
参数:string字符串,start截取的起点,length要截取的长度.
<% strtest=”this　is　a　test,　Today　is　Monday!”　
response.write　mid(strtest,17,5)　 %>　
结果:Today　
19.函数minute()　
功能:返回一数值,　表示分钟　
格式:minute(time)　
参数:　time是时间变量　
例子lt;%　=minute(#12:23:34#)　%>　
结果:23　
20.函数month()　
功能:返回一数值,　表示月份　
格式:month(time)　
参数:time是日期变量　
例子<%　=month(#08/09/99)　%>　
结果:9　
21.函数monthname()　
功能:返回月份的字符串(名称).　
格式:Monthname(date　[,abb])　
参数:　date是日期变量,abb=true时　则月份的缩写,　
<%　=monthname(#4/5/99#)　%>　
结果:April　
MsgBox 函数
在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。
MsgBox(prompt[, buttons][, title][, helpfile, context])
MyVar = MsgBox (“Hello World!”, 65, “MsgBox Example”)
MsgBox 函数有以下返回值：
常数 值 按钮
vbOK 1 确定 vbCancel 2 取消 vbAbort 3 放弃 vbRetry 4 重试 vbIgnore 5忽略 vbYes 6是 vbNo 7 否
buttons 参数可以有以下值：
vbOKOnly 0 只显示确定按钮。
vbOKCancel 1 显示确定和取消按钮。
vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。
vbYesNoCancel 3 显示是、否和取消按钮。
vbYesNo 4 显示是和否按钮。
vbRetryCancel 5 显示重试和取消按钮。
vbCritical 16 显示临界信息图标。
vbQuestion 32 显示警告查询图标。
vbExclamation 48 显示警告消息图标。
vbInformation 64 显示信息消息图标。
vbDefaultButton1 0 第一个按钮为默认按钮。
vbDefaultButton2 256 第二个按钮为默认按钮。
vbDefaultButton3 512 第三个按钮为默认按钮。
vbDefaultButton4 768 第四个按钮为默认按钮。
vbApplicationModal 0 应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。
vbSystemModal 4096 系统模式：在用户响应消息框前，所有应用程序都被挂起。
22.函数Now()　
功能:返回系统的当前时间和日期.　
格式:now()　 参数:无　
<%　=now()　%>　
结果:　05/10/00　8:45:32　pm　
Oct　函数
返回表示数字八进制值的字符串。
Oct(number)
如果 number 参数不是整数，则在进行运算前，将其四舍五入到最接近的整数。
如果 number 是 Oct 返回
Null Null。 Empty 零 (0)。
任意其他数字 最大可到 11 位的八进制字符。
MyOct = Oct(459) ‘ 返回 713。
23.函数:replace()　
功能:在字符串中查找,替代指定的字符串.　
格式:replace(strtobesearched,strsearchfor,strreplacewith　[,start[,count[,compare]]])　
参数:strtobesearched是字符串;　strsearchfor是被查找的子字符串;strreplacewith　是用来替代的子字符串.start,count,compare　是任意选项.　
<%　 strtest=”this　is　an　apple.”　
response.write　replace(strtest,”apple”,”orange”)
%>　
结果:this　is　an　orange.　
RGB 函数
返回代表 RGB 颜色值的整数。
RGB(red, green, blue)
对于要求反转字节顺序的应用程序，下面函数在反转字节顺序下提供相同信息
Function RevRGB(red, green, blue)
RevRGB= CLng(blue + (green * 256) + (red * 65536)) End Function
RGB 函数中任一超过 255 的参数都假定为 255。
24.函数right()　
功能:截取一个字符串的后部分　
格式:right(string,length)　
参数:string字符串,length截取的长度.　
<%　 strtest=”this　is　a　test!”　
response.write　right(strtest,3)　 %>　
结果:st!　
25.函数rnd()　
功能:返回一个随机数值　
格式:rnd[(number)]　
参数:number是任意数值.　
<%　 randomize()　
response.write　rnd()　 %>　
结果:0/1数值之一,无randomize(),　则不能产生随机数.　
26.函数round()　
功能:完整数值　
格式:round(expression[,numright])　
参数:expression数字表达式;numright任意选项.　
<%　 i=12.33654　
response.write　round(i)　 %>　
结果:　12　
ScriptEngine 函数
返回一个代表当前使用的脚本程序语言的字符串。
字符串 描述
VBScript 表明当前使用的编写脚本引擎是 Microsoft(R) Visual Basic(R) Scripting Edition。
Visual Basic Scripting Edition 表明当前使用的编写脚本引擎是 Microsoft Visual Basic Scripting Edition(R)。
VBA 表明当前使用的编写脚本引擎是 Microsoft Visual Basic for Applications。
s = ScriptEngine & ” Version ”
Microsoft(R) Visual Basic(R) Scripting Edition
返回使用的编写脚本引擎的编译版本号。
ScriptEngineBuildVersion
Function GetScriptEngineInfo
Dim s
s = “” ‘用必要的信息形成字符串。
s = ScriptEngine & ” Version ”
s = s & ScriptEngineMajorVersion & “.”
s = s & ScriptEngineMinorVersion & “.”
s = s & ScriptEngineBuildVersion
GetScriptEngineInfo = s ‘返回结果。
End Function
ScriptEngineMajorVersion 函数
返回使用的编写脚本引擎的主版本号。
ScriptEngineMajorVersion
27.函数rtrim()　
功能:去掉字符串后的空格.　
格式:rtrim(string)　
参数:string　是字符串　
<% response.write　rtrim(“this　is　a　test!　”) %>　
结果:this　is　a　test!　
28.函数second()　
功能:返回一个整数值.　
格式:second(time)　
参数:time是一个有效的时间表达式;　
例子lt;%　=second(#　12:28:30#)　%>　
结果:30
SetLocale 函数
Sets the global locale and returns the previous locale.
SetLocale(lcid)
lcid 参数可以是任意一个合法的 32 位数值或短字符串，该值必须唯一标识一个地理区域。能被识别的值可以查阅 区域设置 ID 表。
Sgn 函数
返回表示数字符号的整数。Sgn(number)
如果 number 为 Sgn 返回
大于零 1
等于零 0
小于零 -1
Sin 函数
返回某个角的正弦值。Sin(number)
Dim MyAngle, MyCosecant
MyAngle = 1.3 ‘ 用弧度定义角度。
MyCosecant = 1 / Sin(MyAngle) ‘计算余割。
Space 函数
返回由指定数目的空格组成的字符串。Space(number)
Dim MyString
MyString = Space(10)’ 返回具有 10 个空格的字符串。
MyString = “Hello” & Space(10) & “World” ‘ 在两个字符串之间插入 10 个空格。
Split 函数
返回基于0的一维数组其中包含指定数目的子字符串
Split(expression[, delimiter[, count[, start]]])
MyArray = Split(MyString, “x”, -1, 1)
Sqr 函数
返回数值的平方根。Sqr(number)
MySqr = Sqr(4) ‘ 返回 2。
StrComp 函数
返回一个表明字符串比较结果的值。
StrComp(string1, string2[, compare])
compare 参数可以有以下值：
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。
StrComp 函数有以下返回值：
如果 StrComp 返回
string1 小于 string2 -1
string1 等于 string2 0
string1 大于 string2 1
string1 或 string2 为 Null Null
MyComp = StrComp(MyStr1, MyStr2, 1) ‘ 返回 0。
String 函数
返回具有指定长度的、重复字符组成的字符串。
String(number, character)
MyString = String(5, “*”) ‘ 返回”*****”。
29.函数strReverse()　
功能:返回与原字符串排列逆向的字符串.　
格式:strreverse(string)　
参数:string是字符串　
例子<%　=strreverse(“this　is　a　test!”)　
结果:!tset　a　si　siht
Tan 函数返回某个角的正切值。
Tan(number)
Dim MyAngle, MyCotangent
MyAngle = 1.3 ‘ 用弧度定义角度。
MyCotangent = 1 / Tan(MyAngle) ‘ 计算余切。
30.函数time()　
功能:返回当前系统的时间值.　
格式:time()　
参数:无　
结果:9:58:28　Am
Timer 函数
返回午夜 12 时以后已经过去的秒数。Timer
Function TimeIt(N)
Dim StartTime, EndTime
StartTime = Timer
For I = 1 To N
Next
EndTime = Timer
TimeIt = EndTime – StartTime
End Function
TimeSerial 函数
返回一个 Date 子类型的 Variant，含有指定时、分、秒的时间。
TimeSerial(hour,minute, second)
Dim MyTime1
MyTime1 = TimeSerial(12 – 6, -15, 0)’返回 5:45:00 AM.
TimeValue
返回包含时间的 Date 子类型的 Variant。
TimeValue(time)
Dim MyTime
MyTime = TimeValue(“4:35:17 PM”) ‘ MyTime 包含 “4:35:17 PM”。
TypeName 函数
返回一个字符串，提供有关变量的Variant子类型信息。
TypeName(varname)
必选项的 varname 参数，可以是任何变量
MyType = TypeName(4)’ 返回 “Integer”。
31.函数trim()　
功能:删去字符串前,后的空格.　
格式:trim(string)　
参数:string　字符串.　
<%　 strtest=”　this　is　a　test!　”　
response.write　trim(strtest)　 %>　
结果:this　is　a　test!
32.函数UBound()　
功能:返回一个数组的上界.　
格式:Ubound(expression　[,dimension])　
参数:expression　是数组表达式/数组变量,dimension　是任意项　
<%　 i　=　array(“1″,”2″,”3”)　
response.write　ubound(i)　 %>　
结果:　2　
33.函数:UCase()　
功能:将一字符类型变量的字符全部变换成大写字符.　
格式:Ucase(string)　
参数:string是字符串变量　
<%　 str=”THIS　is　Lcase!”　
response.write　Lcase(str)　 %>　
结果:THIS　IS　LCASE!　
34.函数Vartype()　
功能:返回变量的常量代码(整数)　
格式:Vartype(varname)　
参数:varname是任何类型的变量名称.　
<%　 i=5　
response.write　vartype(i)　 %>　
结果:2　(2表示整数,须要参考ASP常量代码.)　
35.函数Weekday()　
功能:返回一个整数,对应一周中的第几天.　
格式:Weekday(date　[,firstofweek])　
参数:　date为日期变量,firstofweek为任选项.　
例子:　
<%　 d=　#　5/9/00　#　
response.write　weekday(d)　%>　
结果:3(3　表示是星期二)　
36.函数weekdayname()　
功能:返回字符串,对应星期几.　
格式:weekdayname(weekday[,abb[,firstdayofweek]])　
参数:weekday为日期变量,abb,firstdayofweek为任选项.
<%　 d　=　#8/4/99#　
response.write　weekdayname(d)　 %>　
结果:　Wednesday　
37.函数year()　
功能:返回日期表达式所在的年份.　
格式:year(date)　
参数:　date是有效的日期表达式　
<%　=year(#8/9/99#)　%>　
结果:1999　
38.函数Mod()功能:取余数.
例子:3　Mod　2　
结果:1
Clear 方法
清除 Err 对象的所有属性设置。
object.Clear
object 应为 Err 对象的名称
Err.Raise 6 ‘发生溢出错误。
MsgBox (“Error # ” & CStr(Err.Number) & ” ” & Err.Description)
Err.Clear ‘ 清除错误。
Execute 方法
对指定的字符串执行正则表达式搜索。
object.Execute(string)
Raise 方法
生成运行时错误
object.Raise(number, source, description, helpfile, helpcontext)
Replace 方法
替换在正则表达式查找中找到的文本。
object.Replace(string1, string2)
Test 方法
对指定的字符串执行一个正则表达式搜索，并返回一个 Boolean 值指示是否找到匹配的模式。
object.Test(string)
Class 对象
使用 Class 语句创建的对象。提供了对类的各种事件的访问。
Dim X
Set X = New classname
Set X = New Scripting.FileSystemObject
Err
含有关于运行时错误的信息。接受用于生成和清除运行时错误的 Raise 和 Clear 方法
Match 对象
提供了对正则表达式匹配的只读属性的访问。
Match 对象只能通过 RegExp 对象的 Execute 方法来创建，该方法实际上返回了 Match 对象的集合。所有的 Match 对象属性都是只读的。
Matches 集合
正则表达式 Match 对象的集合。
Matches 集合中包含若干独立的Match对象，只能使用 RegExp对象的Execute方法来创建之。与独立的Match对象属性相同Matches集合的一个属性是只读
正则表达式(RegExp)对象
提供简单的正则表达式支持功能。
下面的代码说明了RegExp对象的用法：
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches’ 建立变量。
Set regEx = New RegExp ‘ 建立正则表达式。
运算符(+)计算两个数之和。
result = expression1 + expression2
And 运算符对两个表达式进行逻辑”与”运算。
result = expression1 And expression2
如果 expression1 为 且 expression2 为 则 result 为
True True True True False False True Null Null
False True False False False False False Null False
Null True Null Null False False Null Null Null
And 运算符还对两个数值表达式中位置相同的位执行逐位比较，并根据下表设置 result 中相应的位：
如 expression1 中的位是 且 expression2 中的位是 则 result 为
0 0 0 0 1 0 1 0 0 1 1 1
赋值运算符= 运算符
赋值给一个变量或。variable = value
比较运算符用于比较表达式。
result = expression1 comparisonoperator expression2
result = object1 Is object2
运算符 描述 True 如果 false 如果 Null 如果
< 小于 expression1 < expression2 expression1 >= expression2 expression1 or expression2 = Null
<= 小于或等于 expression1 <= expression2 expression1>expression2expression1orexpression2= Null
> 大于 expression1 > expression2 expression1 <= expression2 expression1 or expression2 = Null
>= 大于或等于 expression1 >= expression2 expression1<expression2expression1orexpression2= Null
= 等于 expression1 = expression2 expression1 <> expression2 expression1 or expression2 = Null
<> 不等于 expression1 <> expression2 expression1 = expression2 expression1 or expression2 = Null
如果 则
两个表达式都是数值 执行数值比较。
两个表达式都是字符串 执行字符串比较。
一个表达式是数值，加一个表达式是字符串 数值表达式小于字符串表达式。
一个表达式为 Empty 而另一个为数值 执行数值比较，0 作为 Empty 表达式的值。
一个表达式为Empty 而另一个表达式为字符串 执行字符串比较，零长度的字符串 (“”) 作为 Empty 表达式的值。
两个表达式都为 Empty 则两个表达式相等。
连接运算符 (&)
强制两个表达式进行字符串连接。
result = expression1 & expression2
除运算符 (/)
两个数值相除并返回以浮点数表示的结果。
result = number1/number2
Eqv 运算符
执行两个表达式的逻辑等价运算。
result = expression1 Eqv expression2
如果 expression1 为 且 expression2 为 result 为
True True True True False False
False True False False False True
Eqv 运算符执行两个数值表达式相应位的逐位比较，并按下表设置 result 相应位：
如 expression1 中的位是 且 expression2 中的位是 result 为
0 0 1 0 1 0 1 0 0 1 1 1
幂运算符 (^)计算数的指数次方。
result = number^exponent
Imp 运算符对两个表达式进行逻辑蕴涵运算。
result = expression1 Imp expression2
\ 运算符
两个数相除并返回以整数形式表示的结果。
result = number1\number2
Is 运算符比较两个对象引用变量。
result = object1 Is object2
Mod 运算符
两个数值相除并返回其余数。
result = number1 Mod number2
乘运算符 (*)两个数相乘。
result = number1*number2
Not 运算符对表达式执行逻辑非运算。
result = Not expression
如果 expression 为 则 result 为
True False False True Null Null
此外，Not 运算符将变量的位取反，并按下表设置 result 的相应位
expression 中的位 result 中的位
0 1 1 0
Or 运算符对两个表达式进行逻辑”或”运算。
result = expression1 Or expression2
当表达式有多种运算符时，先处理算术运算符，接着处理比较运算符，然后再处理逻辑运算符。
算术 比较 逻辑
指数运算 (^) 相等 (=) Not
负数 (-) 不等 (<>) And
乘法和除法 (*, /) 小于 (<) Or
整除 (\) 大于 (>) Xor
求余运算 (Mod) 小于或等于 (<=) Eqv
加法和减法 (+, -) 大于或等于 (>=) Imp
字符串连接 (&) Is &
减运算符 (-)
计算两个数值的差或表示数值表达式的负值
result = number1-number2
-number
Xor 运算符
对两个表达式进行逻辑”异或”运算。
result = expression1 Xor expression2
Description 属性
返回或设置与错误相关联的说明性字符串。
object.Description [= stringexpression]
FirstIndex 属性
返回在搜索字符串中匹配的位置。
object.FirstIndex
object 参数总是一个 Match 对象。
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ‘ 建立变量。
Set regEx = New RegExp ‘ 建立正则表达式。
regEx.Pattern = patrn ‘ 设置模式。
regEx.IgnoreCase = True ‘ 设置是否区分大小写。
regEx.Global = True ‘ 设置全局可用性。
Set Matches = regEx.Execute(strng) ‘ 执行搜索。
For Each Match in Matches ‘ 遍历 Matches 集合。
RetStr = RetStr & “匹配 ” & I & ” 位于 ”
RetStr= RetStr & Match.FirstIndex & “. Match Value is “‘
RetStr = RetStr & Match.Value & “‘.” & vbCRLF
Next
RegExpTest = RetStr
End Function
MsgBox(RegExpTest(“is.”, “IS1 is2 IS3 is4”))
Global 属性
设置或返回一个 Boolean 值，该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个。
object.Global [= True | False ]
HelpContext 属性
设置或返回帮助文件主题的上下文 ID。
object.HelpContext [= contextID]
HelpFile 属性
设置或返回帮助文件的完整有效路径。
object.HelpFile [= contextID]
IgnoreCase 属性
设置或返回一个Boolean值，指明模式搜索是否区分大小写。
object.IgnoreCase [= True | False ]
Length 属性
返回在字符串搜索中找到的匹配的长度。
object.Length
object 参数总是一个 Match 对象。
Number 属性
返回或设置数值指定错误。Number 是 Err 对象的默认属性。
object.Number [= errornumber]
Pattern 属性
设置或返回被搜索的正则表达式模式。
object.Pattern [= “searchstring”]
Source 属性
返回或设置最初生成错误的对象或应用程序的名称。
object.Source [= stringexpression]
Value 属性
返回在一个搜索字符串中找到的匹配的值或文本。
object.Value
object 参数总是一个 Match 对象。
Call 语句
将控制权传递给 Sub 或 Function 过程。
[Call] name [argumentlist]
Call MyFunction(“Hello World”)
Function MyFunction(text)
MsgBox text
End Function
Class 语句
声明一个类的名称，以及组成该类的变量、属性和方法的定义。
Class name
statements
End Class
Const 语句声明用于代替文字值的常数。
[Public | Private] Const constname = expression
Dim 语句声明变量并分配存储空间。
Dim varname[([subscripts])][, varname[([subscripts])]]
Do…Loop 语句
当条件为 True 时或条件变为 True 之前重复执行某语句块。
Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop
也可以使用下面的语法：
Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until} condition]
Erase 语句
重新初始化固定大小数组的元素，并释放动态数组的存储空间。
Erase array
array 参数是要清除的数组变量的名称。
Execute 语句执行一个或多个指定的语句。
Execute statements
ExecuteGlobal 语句
执行一个功多个在脚本全局名字空间中指定的语句。
ExecuteGlobal statement
Exit 语句
退出 Do…Loop、For…Next、Function 或 Sub 代码块。
Exit Do Exit For Exit Function Exit Property Exit Sub
For…Next 语句
以指定次数重复执行一组语句。
For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next
Function 语句
声明 Function 过程的名称、参数以及构成其主体的代码。
[Public [Default]| Private] Function name [(arglist)]
[statements]
[name = expression]
[Exit Function]
[statements]
[name = expression]
End Function
If…Then…Else 语句
根据表达式的值有条件地执行一组语句。
If condition Then statements [Else elsestatements ]
或者，使用块形式的语法：
If condition Then
[statements]
[ElseIf condition-n Then
[elseifstatements]] . . .
[Else
[elsestatements]]
End If
On Error 语句
启用或禁用错误处理程序。
On Error Resume Next
On Error GoTo 0
Option Explicit 语句
强制要求显式声明脚本中的所有变量。
Option Explicit
Private 语句
定义私有变量并分配存储空间。在 Class块中定义私有变量。
Private varname[([subscripts])][， varname[([subscripts])]]
Property Get 语句
在 Class 块中，声明构成用来取得（返回）的值的属性过程的主体的名称、参数和代码。
[Public [Default]| Private] Property Get name [(arglist)]
[statements]
[[Set] name = expression]
[Exit Property]
[statements]
[[Set] name = expression]
End Property
Property Let 语句
在 Class 块中，声明名称、参数和代码等，它们构成了赋值（设置）的 Property 过程的主体。
[Public | Private] Property Let name ([arglist,] value)
[statement]
[Exit Property]
[statement]
End Property
Property Set 语句
在 Class 块中，声明名称、参数和代码，这些构成了将引用设置到对象的 Property 过程的主体。
[Public | Private] Property Set name([arglist,] reference)
[statement]
[Exit Property]
[statement]
End Property
Public 语句
定义公有变量并分配存储空间。在 Class 块中定义私有变量。
Public varname[([subscripts])][, varname[([subscripts])]]
Randomize 语句
初始化随机数生成器。
Randomize [number]
number 参数可以是任何有效的数值表达式。
ReDim 语句
在过程级中声明动态数组变量并分配或重新分配存储空间。
ReDim [Preserve] varname(subscripts) [, varname(subscripts)]
Rem 语句
包含程序中的解释性注释。
Rem comment或’ comment
Select Case 语句根据表达式的值执行几组语句之一。
Select Case testexpression
[Case expressionlist-n
[statements-n]] . . .
[Case Else expressionlist-n
[elsestatements-n]]
End Select
Set 语句
将对象引用赋给一个variable或property，或者将对象引用与事件关联。
Set objectvar = {objectexpression | New classname | Nothing}
-或者-
Set object.eventname = GetRef(procname)
Sub 语句
声明 Sub 过程的名称、参数以及构成其主体的代码
[Public [Default]| Private] Sub name [(arglist)]
[statements]
[Exit Sub]
[statements]
End Sub
While…Wend 语句
当指定的条件为 True 时，执行一系列的语句。
While condition
&nbsp； Version [statements]
Wend
With 语句对一个对象执行一系列的语句。
With object
statements
End With