陌小夕-经典ASP全套详解教程第5章 内置函数.docx

内蒙古人才网主讲：李炎恢第1页共10页北风网ASP 视频教程第5 章内置函数1. 日期时间函数2. 数值数组函数3. 判断函数4. 字符串函数5. 其他函数主讲教师：李炎恢官方网站：5.1 VBScript 内置函数在前面，我们介绍了函数的使用与建立方法，其实有很多函数是不用自己动手来建立的，VBScript 早就准备好了许多常用的函数来供您调用，下面就一一来说明一些常用的函数。5.2 日期与时间函数VBScript 提供了许多显示日期与时间的函数，如表:函数用途Now 显示今天的日期与现在的时间Date 显示今天（计算机系统）的日期Time 显示现在(计算机系统)的时间Year 显示本年的年份Month 显示本月的月份Day 显示今天的日期Hour 显示现在的时间几点钟Minute 显示现在的时间几点钟Second 显示现在的时间几秒钟主讲：李炎恢第2页共10页北风网ASP 视频教程这个例子中， now(),date(),time() 这三个内置函数不需要传入参数， 而year(),month(),day(),hour(),minute()，second()是需要传入参数的。程序一开始会执行到SetTimeOut “Clock”,1000 ,这段程序代码的意思1秒之后执行子程序”Clock”,”SetTimeOut”这个语法可以让计算机上在隔一段时间后去执行某个子程序，它的格式如下：SetTimeOut “子程序名称”,时间其中的时间是以千分之一秒为单位，也就是1秒钟，在1秒之后执行子程序“Clock”,所以写成SetTimeOut “Clock”,”1000”;执行子程序“Clock”时就会使用到时间函数将现在的时间分别存放在变量H，M，S中，接着再用NowT.InnerHtml方法将现在的时间写如网页里， InnerHtml也是浏览器提供的一种方法，她的用途将文字写到指定的HTML标记，前面的“NowT”就是指定要写入的HTML标记。5.3 sqr()函数sqr()函数可以返回参数的平方根!msgbox 现在是 & Now()msgbox 今天的日期& Date()msgbox 现在的时间& Time()msgbox 今天的日期是 & Year(Date) & 年 & month(Date) & 月 &_Day(Date)& Day(Date)& 日msgbox 现在的时间是 & Hour(Now) & 时 & Minute(Now) & 分 &_Second(Now) & 秒SetTimeOut Clock,1000sub Clock()H=Hour(Now)M=Minute(Now)S=Second(Now)NowTime=现在时间是& H& 点& M& 分 & S& 秒NowT.InnerHtml=NowTimeSetTimeOut Clock,1000end suba=inputbox(请输入一个整数)msgbox a & 的平方根为 & sqr(A)主讲：李炎恢第3页共10页北风网ASP 视频教程5.4 abs()函数abs()函数可以返回一个数的绝对值5.5 IsNumeric() 函数IsNumeric 函数可以侦测传入的参数是否为数字，如果是数字，那么就会返回True，如果不是数字，则返回False5.6 MsgBox() 函数弹出一个信息框格式： msgbox (“显示内容”,图标名称)名称值说明VbCritical 16 显示“重要信息”图标VbQuestion 32 显示“询问符号”图标VbExclamation 48 显示“警告符号”图标VbInformation 64 显示“信息符号”图标5.7 msgbox (“显示内容”，按钮名称)a=inputbox(请输入一个整数)msgbox a & 的绝对值为 & abs(a)a=inputbox(请输入一个整数)do while not IsNumeric(a)a=inputbox(您输入的不是整数，请重新输入！)loopmsgbox a & 的绝对值为 & abs(a)msgbox 重要信息,vbcritical 16msgbox 询问符号,vbquestion 32msgbox 警告符号,vbexclamation 48msgbox 信息符号,vbinformation 64msgbox 发现系统漏洞,请确定修补漏洞！,16,金山毒霸提醒您主讲：李炎恢第4页共10页北风网ASP 视频教程名称值说明VbOKOnly 0 只显示“确定”按钮VbOKCancel 1 只显示“确定”及“取消”按钮VbAbortRetryIgnore 2 显示“终止”，“重试”及“忽略VbYesNoCancel 3 显示“是”，“否”及“取消”VbYesNo 4 显示“是”及“否”按钮VbRetryCancel 5 显示“重试”及“取消”按钮5.8 判断用户所按下的按钮按钮值常数值按钮VbOk 1 确定VbCancel 2 取消VbAbort 3 终止VbRetry 4 重试VbIgonre 5 略过VbYes 6 是VbNo 7 否5.9 UBound()函数与LBound()函数msgbox 按钮范例,0msgbox 按钮范例,1msgbox 按钮范例,2msgbox 按钮范例,3msgbox 按钮范例,4msgbox 按钮范例,5msgbox 图标按钮,3+32dodoa=inputbox(请输入一个数字,计算绝对值)loop until IsNumeric(a)msgbox a & 的绝对值 & abs(a)loop until 2=msgbox (是否要继续,1+32)主讲：李炎恢第5页共10页北风网ASP 视频教程格式：UBound(数组名)将数组名传入这两个个函数可以得到数组的上限和下限，在使用动态数组的时候经常会用到，因为使用动态数组通常都是根据当时的情况来配置大小，所以无法实现得知数组的大小，这时就必须使用到这个函数。5.10 Int() 函数这个函数必须传入一个参数，并将这个参数的整数部分返回。5.11 Fix()函数这个函数和Int() 函数相同，也必须要传入一个参数，并将这个参数的整数部分返回来。它和Int()函数的不同点是：如果传入的参数为负值时，那么Int()函数返回的值小于负值的第一个值，而Fix()函数会返回大于负数的第一个值。dim a(3)msgbox a 的数组的最低值为 & LBound(a)msgbox a 的数组的最高值为 & UBound(a)dim a(3)msgbox a 的数组的最低值为 & LBound(a)msgbox a 的数组的最高值为 & UBound(a)dim a(10)for i=Lbound(a) to Ubound(a)total=total+inextmsgbox total= & totala=3.9359459msgbox a 的整数为& int(a)a=-3.9359459msgbox Int(a)= & int(a)msgbox Fix(a)=& Fix(a)主讲：李炎恢第6页共10页北风网ASP 视频教程5.12 Rnd()函数这个函数可以产生介于01之间的随机数，使用加上Randomize 来声明要使用随机数。由于Rnd()所产生的随机数时介于01之间的数，所以您必须用一些小技巧才可以使用，若要产生一个介于NM之间的随机数，可以套用下面的公式：RandomizeR=Int(Rnd()*M-N+1)+N5.13 Instr()函数这个函数用来搜索字符串。格式：Instr(“被搜索的字符串”,”欲搜索的字符串”)第一个参数是被搜索的字符串，第二个是想要在第一个参数中找到的字符串，如果搜索到想要的字符串，就会返回字符串在被搜索的字符串中由左边算起的第几个字符。有时候搜索并不想从第一个字符开始搜索Instr(“开始搜索的文字”，“被搜索的字符串”，“欲搜索的字符串”)5.14 Len()函数获取字符串的长度格式：Len(字符串)randomizemsgbox int(rnd()*5-0+1)+0a=inputbox(请输入一个英文字母)letter=ABCDEFGHIJKLMNOPQRSTUVWXYZb=instr(letter,ucase(a)Msgbox a & 是英文字母的第& b & 个字母a=HAPPYHAPPYBOOKb=instr(a,PY)c=instr(5,A,PY)msgbox b= & b& c=& ca=inputbox(HAPPY)b=len(a)msgbox 您输入的字符串长度为：:& b主讲：李炎恢第7页共10页北风网ASP 视频教程5.15 InstrRev()函数InstrRev(“被搜索的字符串”，“欲搜索的字符串”，开始位的置)它和Instr 的区别就是一个是从头开始搜索，一个从后开始5.16 Hex(),Oct()函数十进制转换成十六进制和八进制5.17 TRIM()函数去掉字符串两边的空格do while len(A)1a=inputbox(请输入一个英文字母)loopletter=ABCDEFGHIJKLMNOPQRSTUVWXYZb=instr(letter,ucase(a)msgbox a & 是英文字母的第 & b& 个字a=VBScript IS EASYb=InstrRev(a,S)c=InstrRev(a,S,5)msgbox bmsgbox ca=10000b=hex(A)c=oct(A)msgbox a & 的十六进制是 & bmsgbox a & 的八进制是 & ca= VBSCRIPT msgbox aa=trim(a)msgbox a主讲：李炎恢第8页共10页北风网ASP 视频教程5.18 Mid(),left(),right()函数left(“字符串”,取几个字)right(“字符串”，取几个字)mid(“字符串”,第几个字开始，取几个字)5.19 Replace()函数Replace(“字符串”，“要被替代的字”，“替代后的字”)5.20 ASC()函数CHR()函数一个是将文字转化为ASCII一个是将ASCII转化为文字5.21 String()函数重复字符串函数，这个函数要传入两个参数，第一个参数必须是数值，代表所要重复的次数，第二个参数只能是文字，代表所要重复的字。格式: Sring(重复几次，“要重复的字”)a=VBSCRIPTb=left(a,5)c=right(a,4)d=mid(a,3,3)msgbox b= & b& c=& c& d= & da=SSSSSSSYDDDDDDDDYJmsgbox ab=replace(a,Y,A)msgbox ba=inputbox(请输入一个文字)msgbox asc(a)b=inputbox(请输入一个数字)msgbox chr(b)a=string(5,B)msgbox a主讲：李炎恢第9页共10页北风网ASP 视频教程5.22 Filter()函数这个数组搜索函数可以搜索数组的数据，将搜索到数据的数组组成一个新数组返回。格式：Filter(要搜索的数组，“要搜索的字”)5.23 datepart(w,date()一个星期几的返回值日期返回值星期日1星期一2星期二3星期三4星期四5星期五6星期六7dim a(3)a(0)=HAPPYWINa(1)=HAPPYLEARNa(2)=