ASP实验基础.doc

ASP实验指导书实验一 ASP编程环境设置一、实验目的及要求1 了解并掌握 Windows XP/NT服务器上IIS（Internet服务管理器）的安装与配置；2 了解并掌握虚拟目录的设置方法；3 了解并掌握ASP文件上传、下载和运行方法。4 掌握Dreamweaver MX站点环境的设置。二、实验内容1、按教材所介绍的方法，在自己的个人计算机上不同的Windows系统安装IIS或PWS（Personal Web Server，是微软开发的个人网站服务器） 。 2、 编写一个简单的ASP网页程序，实现在浏览器IE中输出“这是我的第一个ASP程序！”。三、实验步骤（一）IIS的安装与配置ASP必须运行在服务器上，因此实验的第一项工作是构建服务器运行环境。本实验指导以Windows 2000操作系统下的IIS 5.0进行操作说明。1安装IIS开始控制面板添加删除程序添加/删除Windows组件Windows组件向导，则出现如下对话框：若没选取IIS信息服务（IIS），则选择，并点按“下一步”按钮，按屏幕提示安装。2检验安装在IE浏览器的地址栏输入：http:/localhost 或，观察其结果。35 配置IIS 5.0开始控制面板管理工具 Internet服务管理器，则出现如下对话框：对“默认网站”单击鼠标右键，出现弹出菜单，选择“属性”，则屏幕显示：可根据需要修改默认网站的属性，一般多为“主目录”和“文档”。主目录中主要包括网站在本地机器中的实际路径以及相关权限；文档则设置网站启用的默认文档。（二）虚拟目录的设置要从主目录以外的其他目录中进行发布，就必须创建虚拟目录。“虚拟目录”不包含在主目录中，但在显示给客户浏览器时就象位于主目录中一样。虚拟目录有一个“别名”，供Web浏览器用于访问此目录。别名通常要比目录的路径名短，便于用户输入。使用别名更安全，因为用户不知道文件是否真的存在于服务器上，所以便无法使用这些信息来修改文件。本实验以对实际路径（例如：d:asptemp）创建虚拟目录来说明其操作过程。1在硬盘上创建一个实际目录：d:asptemp2为d:asptemp创建虚拟目录在“Internet信息服务”窗口，在“默认网站”单击鼠标右键，选择“新建”“虚拟目录”，按提示操作分别设置虚拟目录别名（例如：asp）、实际的目录路径（例：d:asptemp）以及虚拟目录的权限。3运行虚拟目录下文件假设实际目录下有文件：1.asp，则访问该文件： http:/localhost/asp/1.asp 在虚拟目录ASP属性中的“文档”，添加一个启用默认文档：1.asp；则访问该文件：http:/localhost/asp（三）在Dreamweaver8.0下设置管理站点本课程实验的开发工具为Dreamweaver8.0，为了能方便的在此软件中创建、调试和运行程序，需要在DW中给网页程序设置管理站点。假设要实验的应用程序存储在实际路径d:asptemp中，它的虚拟目录名为asp，在DW中的管理站点名设为“ASP实验站点”，则具体操作如下：1启动Dreamweaver8.0程序2选择：站点站点管理，则出现对话框：3单击“新建”按钮，选择“站点”，则屏幕显示：输入站点名：ASP实验站点；单击下一步，显示如下对话框：选择单选按钮：是，我想使用服务器技术，然后根据下拉菜单选择：ASP VBScript。单击下一步，显示如下对话框：选择文件存储的实际位置，该实验指南为:d:asptemp。单击下一步，继续显示如下：输入该管理站点浏览的根目录，该实验指南为：http:/localhost/asp/，然后单击“测试URL(T)”按钮，来测试设置是否成功。注：asp即为前面已经设置的路径为：d:asptemp 的虚拟目录名。测试成功，再单击“下一步“，出现：选择单选按钮“否”，单击“下一步”则出现站点定义总结，然后按“完成“按钮，则结束对管理站点的设置。（四）编写并运行一个简单的ASP网页程序1启动Dreamweaver8.0，然后选择已建立的“ASP实验站点”，在其下进行创建、编辑和运行文件。2文件新建，选择“动态页”和“ASP VBScript”，点按“创建”，在出现的屏幕上的与之间加入以下ASP代码： 3将网页保存到形如d:asptemp目录下，文件可命名为first.asp。 选择“在浏览器中预览”，注意观察输出结果。 四、实验思考题1某同学开发了一个显示来访时间的 ASP 文件，存放在 C:inetpubwwwroot 下，然后在资源管理器中双击该文件，却不能正常显示，请问是什么原因？2想一想，把一个 HTML 网页文件直接更改扩展名为.asp 行不行？3请根据自己的实际情况搭建 ASP 的运行环境。4请在 C:Inetpubwwwroot 下 建立子文件 夹 asptemp，并为其设置虚拟目录为asptemp，并设置默认文档为 index.asp 和 index.htm。5请参考 IIS 的专门书籍好好研究一下，并思考是否一定要在 C:Inetpub wwwroot 下开发 ASP 文件？可不可以放在别的文件夹下？实验二 VBScript程序设计一、实验目的及要求1了解并掌握VBScript脚本程序设计语言的基本语法知识及简单程序设计方法；2熟练掌握ASP环境中的输出方法；3熟练掌握VBScript的If语句和Select Case语句的编程技术；4熟练掌握VBScript的ForNext、DoLoop和For eachIn等循环语句的编程技术；二、实验内容 利用VBScript在网页中输出当前的时间和日期。 上机验证教材上的VBScript各个函数的功能，熟悉其用法。 试用VBScript编程，实现计算并输出1到10的阶乘之和。 试用VBScript编程，实现计算并输出100到500的之间的水仙花数（水仙花数是指该数的值等于各位数字的立方和）。 试用VBScript编程，利用数组实现矩阵乘法。 三、实验指导（一）VBScript函数函数是一种特定的运算，在程序中要使用一个函数时，只要给出函数名并给出一个或多个参数，就能得到它的函数值。VBScript内部函数可分为：转换函数、字符串函数、日期和时间函数、数学函数和检验函数。1转换函数VBScript对Variant变量一般会根据需要自动转换成合适的数据类型；但有时，自动转换有可能造成数据类型不匹配错误。此时，就应使用VBScript的转换函数来强制转换数据的子类型。常用的转换函数见下表：函数功能CStr(Variant)将变量Variant转化为字符串类型CDate(Variant)将变量Variant转化为日期类型CInt(Variant)将变量Variant转化为整数类型CLng(Variant)将变量Variant转化为长整数类型CSng(Variant)将变量Variant转化为Single类型CDbl(Variant)将变量Variant转化为Double类型CBool(Variant)将变量Variant转化为布尔类型如：CStr(Variant)函数的使用结果：2字符串函数常用字符串函数及功能如下表：功能函数取字符串长度Len(string)大、小写字母转换Lcase(String)， Ucase(String)截取子字符串Mid(string,start,length)Left(string,length)Right(string,length)删除空格Trim(string)， Ltrim(string)， Rtrim(string)重复String(num1,str1)空格Space(num1)取代字符串Replace(str1,str2,str3)字符串拆分为1维数组Split(str1,delimiter)返回字符串位置InStr(str1,str2)3时间和日期函数函数功能Now()取得系统当前日期和时间Date()取得系统当前日期Time()取得系统当前时间Month(Date()取得给定日期的月份Day(Date()取得给定日期是几号WeekDay(Date()取得给定日期是星期几（星期天，1到6分别为17）Year(Date()取得给定日期的年份DateDiff(“Var”,Var1,Var2)计算日期或时间Var1与Var2的间隔“Var”:为时间间隔因子DateAdd(“Var”,num,date)num:间隔倍数；date:原始日期或时间对时间/日期num作加法FormatDateTime(Date,2)显示短日期格式FormatDateTime(Date,1)显示长日期格式FormatDateTime(Date,4)显示短时间格式FormatDateTime(Date,3)显示长时间格式4数学函数函数功能Abs(number)返回一个数的绝对值Sqr(number)返回一个数的平方根Int(number)取number的最大整数部分FormatNumber(num1,num2)将num1转化为指定小数位num2的数Rnd()返回0到1的随机数Ubound(数组名，维数)返回最大下标数Lbound(数组名，维数)返回最小下标数5检验函数函数功能VarType(Variant)返回变量Variant的数据子类型IsEmpty(Variant)检查变量Variant是否为EmptyIsNull(Variant)检查变量Variant是否为NullIsObject(Variant)检查变量Variant是否为对象类型IsNumeric(Variant)检查变量Variant是否为数值类型IsArray(Variant)检查变量Variant是否为数组类型IsDate(Variant)检查变量Variant是否为日期类型（二）VBScript脚本语言语句1条件语句 If Then End IfIf 条件语句 Then执行语句End If If Then Else End If（单条件）If 条件语句 Then执行语句1Else执行语句2End If If Then Else End If（多条件）If 条件语句1 Then执行语句1Else If 条件语句2 Then执行语句2.Else执行语句n+1End If Select Case 语句Select Case 变量或表达式Case 结果1执行语句1Case 结果2执行语句2Case 结果 n执行语句nCase Else执行语句n+1End Select2循环语句 For Next循环For counter=start To end Step number执行语句Next Do Loop循环Do While 条件1执行语句Loop或Do执行语句Loop While 条件1 For EachIn循环For Each In Next说明：对中的每一个 依次执行一次。其集合元素为离散型的。（三）VBScript过程在VBScript中，过程有两种：Sub子程序和Function函数。(1) (1) Sub子程序 Sub子程序的语法：Sub 子程序名（参数1，参数2，） 语句End Sub 调用子程序1) Call 子程序名（参数1，参数2，） 2) 子程序名 参数1，参数2，(2) (2) Function函数 Function函数的语法：Function 函数名（参数1，参数2，） 语句End Function 调用函数变量= Function 函数名（参数1，参数2，）函数可以向变量一样引用和参与运算 （四）“显示当月日历”实例分析该程序的运行结果为显示当月的日历，其输出形式为：3要解决的主要问题 首先要计算当月有多少天？ 其次要计算1号是星期几？ 依次计算每一天到底位于第几行第几列？（不算标题行）？ 计算该表格总共有多少行？ 画一个若干行7列的表格，将每一天输出到相应的单元格。6 8 计算当月有多少天？ 每个月的天数在2831的范围。 利用Isdate()函数判断29、30、31是否是该月的合法日期。 使用自定义函数numday()来完成该功能。7 9 计算1号是星期几？ 利用Weekday()函数来判断，它返回值1到7，分别对应星期日、星期一、.、星期六，因此1号是星期几正好对应第几列。 使用自定义函数firstday()来完成。8 10 计算每一天位于第几行第几列？ 一个月前面空出来的天数为：firstday()-1 如果（当天日+ firstday()-1）能被7整除，则行数为： ( 当天日+ firstday()-1 ) 7 ；否则行数为： ( 当天日+ firstday()-1 ) 7 +1 。两个合为一个式子：行= ( 当天日+ firstday()-2 ) 7 +1 列= ( 当天日+ firstday()-1 ) 7 Mod 7 但余数为0，应该在第7列。 使用2维数组来保存行、列信息。利用自定义函数arraydate()来完成。9 11 计算日历总共有多少行？ 根据月份不同，日历的行数可能是4、5和6行。 该月最后一天的行数，即为日历的总行数。 总行数= ( numDay()+ firstday()-2 ) 7 +1 使用自定义函数numRow()来完成。4绘制表格，将每一天输出到该表格中 利用嵌套循环输出数组中的每个值。 如果数组值为0，就输出一个空格；如果不为0，可分为3种情况：当天，蓝色加粗显示；周末，红色显示；其他则黑色。5程序代码简单的日历年月日一二三四五六%首先调用函数arrarDate，返回6*7的二维数组,该数组和单元格一一对应Dim theDate 定义一个变量，用以接受返回的数组theDate=arrayDate() 调用函数，返回数组，执行后，theDate自动变成数组下面正式输出日历Dim I,JFor I=1 To numrow() 从第1行到最后1行循环Response.Write 开始一个新行For J=1 To 7If theDate(I,J)0 Then