《ASP内建函数、过程、自定义函数.ppt》由会员分享，可在线阅读，更多相关《ASP内建函数、过程、自定义函数.ppt（30页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2.3 ASP内建函数、过程、自定义函数内建函数、过程、自定义函数（一）分类1、sub过程 定义：包含在sub和end sub之间的一组语句，操作结果不返回结果。它可以带参数。调用:call 过程名（参数）过程名 参数注：无参数的过程调用时必须带括号2、function过程 定义:包含在function和end sub之间的一 组语句，操作结果返回variant类型值。调用:变量=过程名(参数）vbscriptvbscriptMsgbox函数：功能：弹出信息框格式：msgbox“信息框显示的内容”vbscriptvbscript例1：单击按钮弹出信息窗口测试按钮事件sub button1_on
2、click()msgbox“按钮被单击！”end subvbscriptvbscriptIfthenelse条件半判断语句：格式：If 条件then 语句Else 语句End ifvbscriptvbscript例2：利用条件半判断语句弹出信息窗口 value=20If value=0 Then flag=5 ElseIf value=1 Then flag=10 ElseIf value=2 then flag=15 Else Msgbox 数值超出范围！End IfvbscriptvbscriptSelect case判断语句：格式：Select case 变量 case常量列表 -常量列
3、表之间用,号分隔 语句 case常量列表 语句 case else 语句End selectvbscriptvbscript例3：显示年龄age=20 Select Case age Case 0,1,2,3,4,5 -逐一列出条件值 S=幼儿 Case 6,7,8,9,10,11 S=儿童 Case 12,13,14,15,16,17 S=少年 Case Else S=成人End SelectS=age&岁是“&S&”啦！document.Write S -document浏览器对象write输出的方法vbscriptvbscriptDo while循环语句：格式：Do while条件语句L
4、oop注：先判断后执行vbscriptvbscript例4：返回循环次数 Dim counter,myNum counter=0 myNum=20 Do While myNum 10 myNum=myNum-1 counter=counter+1 Loop MsgBox 循环重复了&counter&次。vbscriptvbscriptDo循环语句：格式：Do语句Loop while 条件注：先执行后判断vbscriptvbscript例5：返回循环次数 Dim counter,myNum counter=0 myNum=9 Do myNum=myNum-1 counter=counter+1
5、Loop While myNum 10 MsgBox 循环重复了&counter&次。vbscriptvbscriptWhile循环语句：格式：While条件语句Wend注：先判断后执行vbscriptvbscript例6：返回循环次数 Dim counter,myNum counter=0 myNum=0 While myNum 10 myNum=myNum+1 counter=counter+1 Wend MsgBox 循环重复了&counter&次。vbscriptvbscriptFor循环语句：格式：For 变量=初值 to 终值 step 增量语句Nextvbscriptvbscri
6、pt例7：计算总和 Dim j,total For j=2 To 10 Step 2 total=total+j Next MsgBox 总和为&total&。vbscriptvbscript例8：利用华氏温度计算摄氏温度 Sub convert_onclick()temp=InputBox(“请输入华氏温度。”)MsgBox 温度为&Celsius(temp)&摄氏度。End Sub Function Celsius(fDegrees)Celsius=(fDegrees-32)*5/9 End Functionvbscriptvbscript常用函数：Asc(字符)：返回字符的ascII码。
7、Chr(ascII码)：返回ascII码对应的字符。Len(字符串)：返回字符串的长度。Mid(字符串,起始位置,长度)：字符串截取。Right(字符串,长度)：从右侧截取字符串。Replace(字符串,被替换的字符,替换后的字符)：字符串替换。Split(字符串,分隔符)：将字符串分隔成数组。Int(数字)：取整。Rnd()：取0-1之间的随机数。Inputbox(字符串)：输入对话框。Cstr(数字)：将数值型转换成字符型。Formatnumber(字符串)：将字符型转换成数值型。vbscriptvbscript例9：返回字符的ASCII值MyNumber1=Asc(“A)返回 65MyN
8、umber2=Asc(a)返回 97MyNumber3=Asc(Apple)返回 65Document.write MyNumber1&Document.write mynumber2&Document.write mynumber3&“vbscriptvbscript例10：利用ASCII值返回字符MyChar1=Chr(65)返回 A。MyChar2=Chr(97)返回 a。MyChar3=Chr(62)返回。MyChar4=Chr(37)返回%。Document.write mychar1&mychar2&mychar3&mychar4vbscriptvbscript例11：求字符串长度
9、Dim MyStringMyString=Len(“vbscript)MyString 包含 8。document.write mystringvbscriptvbscript例12：显示字符串中一部分字符Dim MyVarMyVar=Mid(VB Script is fun!,4,6)MyVar 包含 Script。Document.write myvarvbscriptvbscript例13：显示字符串中一部分字符Dim AnyString,MyStrAnyString=Hello World 定义字符串。MyStr1=Right(AnyString,1)返回 d。MyStr2=Right
10、(AnyString,6)返回 World。MyStr3=Right(AnyString,20)返回 Hello World。Document.write mystr1&Document.write mystr2&Document.write mystr3&vbscriptvbscript例14：替换字符串Dim MyString二进制比较(默认)从字符串左端开始。返回 XXYXXPXXY。MyString1=Replace(XXpXXPXXp,p,Y)1代表文本比较,3代表从第三个字符开始,-1代表全部替换。返回 YXXYXXY。MyString2=Replace(XXpXXPXXp,p,Y
11、,3,-1,1)Document.write mystring1&Document.write mystring2&vbscriptvbscript例15：返回数组中子字符串的内容Dim MyStringx代表以分界,1代表文本比较,-1代表返回数组中的全部子字符串MyString=Split(VBScriptXisXfun!,x,-1,1)MyString(0)包含VBScript。MyString(1)包含is。MyString(2)包含 fun!。Document.write mystring(0)&Document.write mystring(1)&Document.write my
12、string(2)&vbscriptvbscriptDo until循环语句：格式：Do until条件语句Loop注：在满足条件之前执行语句。vbscriptvbscript例16：计算随机数Dim MyValue,ResponseDo Until Response=vbNo MyValue=Int(6*Rnd)+1)产生 1 到 6 之间的随机整数。MsgBox MyValueResponse=MsgBox(“Roll again?”,vbYesNo)-vbyesno代表显示是和否按钮Loopvbscriptvbscript例17：输入、输出对话框Dim InputInput=InputB
13、ox(输入名字)MsgBox(输入:&Input)vbscriptvbscript例18：数值型与字符型的转换Dim MyDoubleMyDouble=437.324 MyString=CStr(MyDouble)MyString 包含 437.324。Document.write mydouble&Document.write mystring&“a=12.34b=formatnumber(a)document.write bASCII码简介美国标准信息交换代码(American Standard Code for Information Interchange,ASCII)是由美国国家标准
14、学会(American National Standard Institute,ANSI)制定的，标准的单字节字符编码方案，用于基于文本的数据。起始于50年代后期，在1967年定案。它最初是美国国家标准，供不同计算机在相互通信时用作共同遵守的西文字符编码标准，后被ISO及CCITT等国际组织采用。ASCII 码使用指定的 7 位或 8 位二进制数组合来表示 128 或 256 种可能的字符。标准 ASCII 码使用 7 位二进制数来表示所有的大写和小写字母，数字 0 到 9、标点符号，以及在美式英语中使用的特殊控制字符。对象你现在可以看看周围的世界，这里有很多现实世你现在可以看看周围的世界，这
15、里有很多现实世界中对象的例子：你的狗、你的书桌、电视机和自行界中对象的例子：你的狗、你的书桌、电视机和自行车。车。这些现实世界中的对象有两个相同的特征：它们这些现实世界中的对象有两个相同的特征：它们都有状态和行为。例如，狗有状态（名字、颜色、种都有状态和行为。例如，狗有状态（名字、颜色、种类）和行为（叫、吃东西）。自行车也有状态（当前类）和行为（叫、吃东西）。自行车也有状态（当前档、两个轮子、档的个数）和行为（刹车、加速、减档、两个轮子、档的个数）和行为（刹车、加速、减慢、换档）。慢、换档）。软件对象以现实世界中的对象为模型，它们也有软件对象以现实世界中的对象为模型，它们也有状态和行为。软件对象在变量中包含它的状态、用方状态和行为。软件对象在变量中包含它的状态、用方法实现它的行为。法实现它的行为。可以用软件对象表示现实世界中的对象，也可以可以用软件对象表示现实世界中的对象，也可以用它表示抽象概念。也可以将对象想象成为一种新型用它表示抽象概念。也可以将对象想象成为一种新型变量，它保存着数据，而且还可以对自身数据进行操变量，它保存着数据，而且还可以对自身数据进行操作。作。