ASP内建函数、过程、自定义函数.ppt

2.3 ASP内建函数、过程、自定义函数,（一）分类 1、sub过程 定义：包含在sub和end sub之间的一组语句，操作结果不返回结果。它可以 带参数。 调用:call 过程名（参数） 过程名 参数 注：无参数的过程调用时必须带括号 2、function过程 定义:包含在function和end sub之间的一 组语句，操作结果返回variant类型值。 调用:变量=过程名(参数）,vbscript,Msgbox函数： 功能： 弹出信息框 格式： msgbox“信息框显示的内容”,vbscript,例1：单击按钮弹出信息窗口 测试按钮事件 sub button1_onclick() msgbox“按钮被单击！” end sub ,vbscript,Ifthenelse条件半判断语句： 格式： If 条件then 语句 Else 语句 End if,vbscript,例2：利用条件半判断语句弹出信息窗口 value=20 If value = 0 Then flag = 5 ElseIf value = 1 Then flag = 10 ElseIf value = 2 then flag = 15 Else Msgbox “数值超出范围！“ End If ,vbscript,Select case判断语句： 格式： Select case 变量 case常量列表 -常量列表之间用,号分隔 语句 case常量列表 语句 case else 语句 End select,vbscript,例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 Select S = age & “ 岁是“ & S & “”啦！“ document.Write S -document浏览器对象write输出的方法 ,vbscript,Do while循环语句： 格式： Do while条件 语句 Loop 注：先判断后执行,vbscript,例4：返回循环次数 Dim counter, myNum counter = 0 myNum = 20 Do While myNum 10 myNum = myNum - 1 counter = counter + 1 Loop MsgBox “循环重复了 “ & counter & “ 次。“ ,vbscript,Do循环语句： 格式： Do 语句 Loop while 条件 注：先执行后判断,vbscript,例5：返回循环次数 Dim counter, myNum counter = 0 myNum = 9 Do myNum = myNum - 1 counter = counter + 1 Loop While myNum 10 MsgBox “循环重复了 “ & counter & “ 次。“ ,vbscript,While循环语句： 格式： While条件 语句 Wend 注：先判断后执行,vbscript,例6：返回循环次数 Dim counter, myNum counter = 0 myNum = 0 While myNum ,vbscript,For循环语句： 格式： For 变量=初值 to 终值 step 增量 语句 Next,vbscript,例7：计算总和 Dim j, total For j = 2 To 10 Step 2 total = total + j Next MsgBox “总和为 “ & total & “。“ ,vbscript,例8：利用华氏温度计算摄氏温度 Sub convert_onclick() temp = InputBox(“请输入华氏温度。”) MsgBox “温度为 “ & Celsius(temp) & “ 摄氏度。“ End Sub Function Celsius(fDegrees) Celsius = (fDegrees - 32) * 5 / 9 End Function ,vbscript,常用函数： Asc(字符)：返回字符的ascII码。 Chr(ascII码)：返回ascII码对应的字符。 Len(字符串)：返回字符串的长度。 Mid(字符串,起始位置,长度)：字符串截取。 Right(字符串, 长度)：从右侧截取字符串。 Replace(字符串, 被替换的字符, 替换后的字符)：字符串替换。 Split(字符串, 分隔符)：将字符串分隔成数组。 Int(数字)：取整。 Rnd()：取0-1之间的随机数。 Inputbox(字符串)：输入对话框。 Cstr(数字)：将数值型转换成字符型。 Formatnumber(字符串)：将字符型转换成数值型。,vbscript,例9：返回字符的ASCII值 MyNumber1 = Asc(“A“) 返回 65 MyNumber2 = Asc(“a“) 返回 97 MyNumber3 = Asc(“Apple“) 返回 65 Document.write MyNumber1&“ Document.write mynumber2&“ Document.write mynumber3&“ ,vbscript,例10：利用ASCII值返回字符 MyChar1 = Chr(65) 返回 A。 MyChar2 = Chr(97) 返回 a。 MyChar3 = Chr(62) 返回 。 MyChar4 = Chr(37) 返回 %。 Document.write mychar1&mychar2&mychar3&mychar4 ,vbscript,例11：求字符串长度 Dim MyString MyString = Len(“vbscript“) MyString 包含 8。 document.write mystring ,vbscript,例12：显示字符串中一部分字符 Dim MyVar MyVar = Mid(“VB Script is fun!“, 4, 6) MyVar 包含 “Script“。 Document.write myvar ,vbscript,例13：显示字符串中一部分字符 Dim AnyString, MyStr AnyString = “Hello World“ 定义字符串。 MyStr1 = Right(AnyString, 1) 返回 “d“。 MyStr2 = Right(AnyString, 6) 返回 “ World“。 MyStr3 = Right(AnyString, 20) 返回 “Hello World“。 Document.write mystr1&“ Document.write mystr2&“ Document.write mystr3&“ ,vbscript,例14：替换字符串 Dim MyString 二进制比较(默认)从字符串左端开始。返回 “XXYXXPXXY“。 MyString1 = Replace(“XXpXXPXXp“, “p“, “Y“) 1代表文本比较,3代表从第三个字符开始,-1代表全部替换。返回 “YXXYXXY“。 MyString2 = Replace(“XXpXXPXXp“, “p“, “Y“, 3, -1, 1) Document.write mystring1&“ Document.write mystring2&“ ,vbscript,例15：返回数组中子字符串的内容 Dim MyString x代表以分界,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 mystring(2)&“ ,vbscript,Do until循环语句： 格式： Do until条件 语句 Loop 注：在满足条件之前执行语句。,vbscript,例16：计算随机数 Dim MyValue, Response Do Until Response = vbNo MyValue = Int(6 * Rnd) + 1) 产生 1 到 6 之间的随机整数。 MsgBox MyValue Response = MsgBox (“Roll again? ”, vbYesNo) -vbyesno代表显示是和否按钮 Loop ,vbscript,例17：输入、输出对话框 Dim Input Input = InputBox(“输入名字“) MsgBox (“输入: “ & Input) ,vbscript,例18：数值型与字符型的转换 Dim MyDouble MyDouble = 437.324 MyString = CStr(MyDouble) MyString 包含 “437.324“。 Document.write mydouble&“ Document.write mystring&“ a=“12.34“ b=formatnumber(a) document.write b ,ASCII码简介,美国标准信息交换代码( American Standard Code for Information Interchange, ASCII )是由美国国家标准学会(American National Standard Institute , ANSI )制定的，标准的单字节字符编码方案，用于基于文本的数据。起始于50年代后期，在1967年定案。它最初是美国国家标准，供不同计算机在相互通信时用作共同遵守的西文字符编码标准，后被ISO及CCITT等国际组织采用。 ASCII 码使用指定的 7 位或 8 位二进制数组合来表示 128 或 256 种可能的字符。标准 ASCII 码使用 7 位二进制数来表示所有的大写和小写字母，数字 0 到 9、标点符号，以及在美式英语中使用的特殊控制字符。,对象,你现在可以看看周围的世界，这里有很多现实世界中对象的例子：你的狗、你的