下载文档原格式
第3章VBScript语言【例3.1】本例在表单中添加一个普通按钮，并在HEAD部分编写脚本代码以响应窗体中按钮的单击事件（onClick），如图3.1所示。
------------ 3-01.htm ------------<HTML><HEAD><TITLE>测试按钮事件</TITLE><SCRIPT LANGUAGE = "VBScript"FOR = "Button1" EVENT = "onClick">MsgBox "按钮被单击！"</SCRIPT></HEAD><BODY><FORM NAME = "Form1"><INPUT TYPE = "button" NAME = "Button1" VALUE = "请单击这里"></FORM></BODY></HTML>【例3.2】编写一个HTML网页，在浏览器中打开该网页时调用MsgBox函数来显示一个信息框并返回单击的按钮的值，如图3.2所示。
------------ 3-02.htm ------------<HTML><HEAD><TITLE>MsgBox函数应用示例</TITLE><SCRIPT LANGUAGE = "VBScript">Sub ShowMsgBox()Dim MyVar, prompt, buttons, titleprompt = "欢迎你使用VBScript语言编写脚本代码!"buttons = vbOKCancel+vbInformationtitle = "MsgBox函数应用示例"MyVar = MsgBox( prompt, buttons, title )End Sub第3章VBScript语言61</SCRIPT></HEAD><BODY onLoad = "ShowMsgBox"><FONT FACE = "楷体_GB2312" COLOR = "red">在浏览器中打开本页面时，将调用MsgBox函数显示一个对话框。
网页设计之基于vbscript的日历制作（请在IE中浏览，360浏览器请使用兼容模式）运行效果：Index.html代码如下：<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="/1999/xhtml"><head><style type="text/css">*{ font-family:"微软雅黑";font-size:14px; margin:0px;}td{ text-align:center;}</style><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title> 日历</title></head><body bgcolor="#9999FF"><div id="tit" style="text-align:center;font-size:20px;"></div><table border="0" width="420" cellspacing="1" cellpadding="0" bgcolor="#999999" align="center"><tr><td height="36" bgcolor="#cccccc"><strong>周日</strong></td><td height="36" bgcolor="#cccccc"><strong>周一</strong></td><td height="36" bgcolor="#cccccc"><strong>周二</strong></td><td height="36" bgcolor="#cccccc"><strong>周三</strong></td><td height="36" bgcolor="#cccccc"><strong>周四</strong></td><td height="36" bgcolor="#cccccc"><strong>周五</strong></td><td height="36" bgcolor="#cccccc"><strong>周六</strong></td></tr><tr><script language="vbscript">dyear=year(Date()) '获取当前年、月、日dmonth=month(Date())dday=day(Date())document.getElementById("tit").innerHTML=dyear&"年"&dmonth&"月"&dday&"日"If ((dyear Mod 4 = 0) and (dyear Mod 100 <> 0)) Or (dyear Mod 400 = 0) Then '判断是否为闰年，如果是，则2月29天，否则28天er="29"elseer="28"End Ifdy="0|31|"&er&"|31|30|31|30|31|31|30|31|30|31"'将12个月的最大天数保存成一个字符串，cday=split(dy,"|")'用split将其分离成一维数组，保存在cday里,与cday(0)=0,cday(1)=31...相似writeday=1fday=weekday(CDate(dyear&"-"&dmonth&"-1"))'取当月的1号是一星期中的第几天，从而判断该月的1号是从哪里开始for i=1 to 42 '日历中总共有42个单元格If i<fday Then '判断当前单元格是不是这个月的第一天,如果不是就写入空单元格document.write("<td height='32' bgcolor='#ffffff'>"&" "&"</td>")ElseIf writeday<=cint(cday(dmonth)) Then '判断写入的天数是不是超过了这个月总共的天数，如果没有超过，则If dday=writeday Then '判断当前写入的时间是不是当天，如果是则写入一个背景为灰内容为红的单元格来表示当天document.write("<td height='32' bgcolor='#e6e6e6'><font color='#ff0000'>"& writeday&"</font></td>")Elsedocument.write("<td height='32' bgcolor='#ffffff'>"&writeday&"</td>")End ifwriteday= writeday+1Else'如果写入的天数超过了这个月总共的天数，那么就写入空的单元格document.write("<td height='32' bgcolor='#ffffff'>"&" "&"</td>")End ifEnd ifif i mod 7=0 And i<42 Then '如果i除以7的余数为0的话，说明一行输出完成，则写入行标记用来创建新的行,增加了i<42是为了不让当i=42时还输出行标记document.write("</tr><tr>")end ifnext</script></tr></table></body></html>——本文由百度用户“聪明太狼”上传，转载请注明作者来源。
vbscript 脚本编程
Visual Basic Scripting语言（VBS）是一个微软公司研发的桌面和网络应用程序的脚本语言。
它的语法基于Visual Basic，但没有图形界面开发功能。
VBS是处理Windows操作系统中常见任务的有效方法。
它可以创建小型、简单或复杂的脚本，用于执行特定任务，如发出告警或检索文件夹中的文件名称。
使用VBS脚本编程时，需要使用Visual Basic Scripting语言（VBS）编写代码，然后将其保存为*.vbs 文件。
VBS脚本编程也可以在Microsoft Windows命令提示符中使用。
要运行VBS脚本，可以使用Windows资源管理器双击*.vbs文件，或者在命令提示符中输入
“cscript.exe”和VBS文件的名称。
VBS脚本编程的优点包括：快速编程，可以创建小型、简单或复杂的脚本；可以使用Windows资源管理器双击*.vbs文件，或者在命令提示符中输入“cscript.exe”和VBS文件的名称；可以使用WMI技术实现远程管理；可以直接访问COM组件，以便使用ActiveX技术；可以自动化Windows系统任务；可以让Windows工作站和服务器之间进行消息交换；可以通过WSH访问网络资源；可以使用VBScript建立安全的Internet应用程序。
网页设计之VBScriptVBScript简介VBScript 是一种脚本语言，可以用于微软IE 浏览器的客户端脚本和微软IIS (Internet Information Service) 的服务器端脚本。
VBScript 是微软编程语言V isual Basic 家族中的一个成员。
如果你熟悉微软的V isual Basic 或者V isual Basic for Applications，你会很快就熟悉VBScript。
简单的VBScript 入门示例现在我们就写一个简单的VBScript 的例子。
<html><head><title>一个简单的VBScript代码示例</title></head><body><p>你会看到一个消息框，在此行文字显示之后弹出。
</p><script type="text/vbscript">MsgBox("Hello,World!")</script></body></html>在网页中插入VBSscript语句，应使用<script>。
<script> 这个tag 有个属性叫type，type="text/vbscript" 表示插入<script></script>其中的为VBScript语句。
<script type="text/vbscript">......</script>在参考别人的VBScript 代码时，你也许会看到<script>里写的不是type="text/vbscript"，而是language="vbscript"。
第4章VBScript脚本网页随着网页制作技术逐步的发展，许多网站设计人员已经使用脚本语言来开发网页，并实现服务器与客户端、网页与浏览者之间的交互。
而在网页交互过程，应用最早及最广泛的脚本语言，主要有VBScript和JScript两种。
相对于JScript而言，VBScript语法较为简单，代码书写格式要求也较为宽松。
除了实现简单的网页交互外，VBScript还可以用来编写ASP技术的网页，用途非常广泛。
本章将通过几个实例介绍VBScript的语法、语句以及其在网页中的应用。
4.1 配置IIS服务器在创建ASP动态网页，而应用VBScript脚本之前，需要用户先配置IIS服务器。
通过IIS服务器可以解释服务器端的脚本代码。
4.1.1 ASP简介ASP是Active Server Page的缩写，意为“动态服务器页面”。
ASP是微软公司开发的代替CGI脚本程序的一种应用，它可以与数据库和其它程序进行交互，是一种简单、方便的编程工具。
ASP的网页文件的格式是.asp，现在常用于各种动态网站中。
ASP是一种服务器端脚本编写环境，可以用来创建和运行动态网页或Web应用程序。
ASP网页可以包含HTML标记、普通文本、脚本命令以及COM组件等。
1．在网页中编写代码使用Dreamweaver，可以方便地编写、调试各种ASP程序。
Dreamweaver还提供了代码提示功能，可以根据当前网页文档的脚本语言类型自动识别并显示可能出现的语句、属性、方法等。
例如，通过【快速标签编辑器】为网页中的对象添加代码，如图4-1所示。
单击图4-1 快速标签编辑器【快速标签编辑器】只能编写一些简单的代码，如超链接、脚本的事件等。
如需要编辑较为复杂的代码，可执行【修改】|【编辑标签】命令，打开【标签编辑器】，通过列表菜单，选择相应的类型添加代码，如图4-2所示。
选择输入图4-2 标签编辑器除了用以上两种方式为网页添加标签以外，还可以在【代码】视图中，直接编辑代码程序。
动态网页制作vb脚本字符串的处理运城学院实验报告课程名称：动态网页制作实验项目：用VBScript 实现对字符串的处理实验地点：软三实验室时间：2011-4-21 指导老师：王琦学号：2009100145 实验类型：综合型一、实验目的及要求 1.目的：（1）熟练掌握和应用VBScript 脚本语言的基础知识。
（2）VBScript 的基本数据类型、运算符和表达式。
（3）熟练掌握VBScript 流程控制语句、函数和子函数。
（4）熟练掌握 VBScript 对象和事件的处理方法以及对一些实际问题的解决。
（5）学习VBScript 中调试和纠错的方法。
2.要求：（1）用数组实现对身份证信息的存储（2）用VBScript 脚本语言实现程序设计和运行。
二、实验内容用VBScript 脚本语言实现身份证查询系统（1）应用VBScript 的Sub 过程函数（无返回值）。
例如： sub btnOK_onClick() …… End sub （2）应用字符串函数实现MID 和LEN 实现对字符串的截取和长度的计算。
例如：Mid(“运城学院”，1,2)=”运城”；Len(“你好！”)=3；（3）应用数据类型判别函数IsNumeric 判断是否字符串全为数字。
例如：else if not IsNumeric(form1.txtId.value) Then document.form1.elements(0).focus() MsgBox"身份证号码中不能有字母！" Exit sub （4）应用trim()函数判断身份证的输入中是否为空。
例如： if Trim(form1.txtId.value)=Empty Then document.form1.elements(0).focus() MsgBox"身份证号不能为空！" Exit sub （5）应用数组实现信息的存储。
例如：运城学院实验报告（续） dim sfzBM(3) dim sfzGSD(3) sfzBM(0)="142732" sfzGSD(0)="山西省运城地区平陆县" ...... （5）document 对象的应用。
简单的vbs代码简单的vbs代码VBScript（Visual Basic Script）是一种基于VB的脚本语言，通常被用于Web开发和Windows管理。
它是一种轻量级的脚本语言，而且易于学习和编写。
这里我们会介绍一些简单的VBScript代码，这些代码可以帮助你更好的理解并掌握VBScript语言。
1. 一个简单的Hello World程序下面是一个使用vbs的简单程序。
``` MsgBox "Hello World" ```这段代码中，利用MsgBox函数来创建一个弹窗。
2. 创建一个函数函数是VBScript的一种基本类型，可以用来组合一组语句，以执行特定任务。
下面是一个例子：``` Function addNumbers(a, b) Dim c c = a + b addNumbers = c End FunctionMsgBox addNumbers(2, 2) ```这个函数将两个数字相加，并返回其结果。
3. 使用For循环创建一个计数器For循环是VBScript的一种重要组成部分，它用于执行循环任务。
以下是一个使用For循环的计数器程序的示例：``` For i = 1 To 10 MsgBox i Next ```这段代码会打开一个弹窗，显示从1到10的数字。
4. 使用If条件语句判断If语句可以根据不同的条件来执行不同的语句。
下面是一个例子：``` Dim count count = InputBox("请输入一个数字")If count > 5 Then MsgBox "这个数字大于5" Else MsgBox "这个数字小于或等于5" End If ```这段程序会创建一个输入框，让用户输入一个数字。
之后会根据用户输入的数字来执行相应的语句。
5. 创建一个对象VBScript是面向对象语言。
实验四VBScript脚本程序document 是文挡对象，就是当前的这个web页面，write是写的意思，document.write( )就是在当前页面写入东西了，也就是动态向页面写入内容一、body 部分中的脚本二、head部分中的脚本通常，我们在head 部分放置函数。
理由是，可以确保函数在调用前已经加载。
三、创建一个变量四、创建数组五、时间显示六、函数调用多路选择结构语句<script language="vbscript">no=inputbox("请输入一个1-5之间的数字：","中议英") select case nocase 1msg="a"case 2msg="b"case 3msg="c"case 4msg="d"case elsemsg="对不起，超过范围了"end selectmsgbox no & "的英文为" & msg</script><body><script language="vbscript">sub button_onclickdim tfset tf=document.formif IsNumeric(tf.text.value) thenif tf.text.value<1 or tf.text.value>10 thenmsgbox"请输入一个1到10之间的数字"else msgbox"欢迎你的光临！"end ifelsemsgbox"请输入一个数字"end ifend sub</script><form name=form><span class="STYLE2">请输入一个1到10之间的数字：</span> <label><input name="text" type="text" size="3" /></label><label><input name="button" type="submit" id="button" value="提交" /> </label></form></body>。
