ASP实验基础.doc
ASP实验基础.doc
- 配套讲稿：
如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制：
部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词：
- ASP 实验 基础
- 资源描述：
-
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 或http://127.0.0.1，观察其结果。3． 5． 配置IIS 5.0 开始－>控制面板－>管理工具－> Internet服务管理器，则出现如下对话框： 对“默认网站”单击鼠标右键，出现弹出菜单，选择“属性”，则屏幕显示： 可根据需要修改默认网站的属性，一般多为“主目录”和“文档”。 主目录中主要包括网站在本地机器中的实际路径以及相关权限；文档则设置网站启用的默认文档。 （二）虚拟目录的设置 要从主目录以外的其他目录中进行发布，就必须创建虚拟目录。“虚拟目录”不包含在主目录中，但在显示给客户浏览器时就象位于主目录中一样。虚拟目录有一个“别名”，供Web浏览器用于访问此目录。别名通常要比目录的路径名短，便于用户输入。使用别名更安全，因为用户不知道文件是否真的存在于服务器上，所以便无法使用这些信息来修改文件。 本实验以对实际路径（例如：d:\asptemp）创建虚拟目录来说明其操作过程。 1．在硬盘上创建一个实际目录：d:\asptemp 2．为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”，点按“创建”，在出现的屏幕上的<body>与</body>之间加入以下ASP代码： <% Response.Write(“这是我的第一个ASP程序！”) %> 3．将网页保存到形如d::\asptemp\目录下，文件可命名为first.asp。 ⒋ 选择“在浏览器中预览”，注意观察输出结果。 四、实验思考题 1．某同学开发了一个显示来访时间的 ASP 文件，存放在 C:\inetpub\wwwroot 下，然后在资源管理器中双击该文件，却不能正常显示，请问是什么原因？ 2．想一想，把一个 HTML 网页文件直接更改扩展名为.asp 行不行？ 3．请根据自己的实际情况搭建 ASP 的运行环境。 4．请在 C:\Inetpub\wwwroot 下 建立子文件 夹 asptemp，并为其设置虚拟目录为asptemp，并设置默认文档为 index.asp 和 index.htm。 5．请参考 IIS 的专门书籍好好研究一下，并思考是否一定要在 C:\Inetpub\ wwwroot 下开发 ASP 文件？可不可以放在别的文件夹下？ 实验二 VBScript程序设计 一、实验目的及要求 1．了解并掌握VBScript脚本程序设计语言的基本语法知识及简单程序设计方法； 2．熟练掌握ASP环境中的输出方法； 3．熟练掌握VBScript的If语句和Select Case语句的编程技术； 4．熟练掌握VBScript的For…Next、Do…Loop和For each…In等循环语句的编程技术； 二、实验内容 ⒈ 利用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)函数的使用 <% dim a,b a=11 b=33 response.Write(cstr(a)+cstr(b)) %> 结果： 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分别为1~7） 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是否为Empty IsNull(Variant) 检查变量Variant是否为Null IsObject(Variant) 检查变量Variant是否为对象类型 IsNumeric(Variant) 检查变量Variant是否为数值类型 IsArray(Variant) 检查变量Variant是否为数组类型 IsDate(Variant) 检查变量Variant是否为日期类型 （二）VBScript脚本语言语句 1．条件语句 ⑴ If Then…… End If If 条件语句 Then 执行语句 End If ⑵ If Then…… Else…… End If（单条件） If 条件语句 Then 执行语句1 Else 执行语句2 End If ⑶ If Then Else End If（多条件） If 条件语句1 Then 执行语句1 Else If 条件语句2 Then 执行语句2 …….. Else 执行语句n+1 End If ⑷ Select Case 语句 Select Case 变量或表达式 Case 结果1 执行语句1 Case 结果2 执行语句2 …… Case 结果 n 执行语句n Case Else 执行语句n+1 End Select 2．循环语句 ⑴ For …… Next循环 For counter=start To end [Step number] 执行语句 Next ⑵ Do …… Loop循环 Do While 条件1 执行语句 Loop 或 Do 执行语句 Loop While 条件1 ⑶ For Each…In循环 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． 计算当月有多少天？ ● ● 每个月的天数在28~31的范围。 ● ● 利用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．程序代码 <%Option Explicit %> <html> <head> <title>简单的日历</title> </head> <body> <h3 align="center"><%=Year(Date())%>年<%=Month(Date())%>月</h3> <table border="1" align=center> <tr align=right> <td>日</td><td >一</td><td>二</td><td>三</td><td >四</td><td >五</td><td >六</td> </tr> <% '首先调用函数arrarDate，返回6*7的二维数组,该数组和单元格一一对应 Dim theDate '定义一个变量，用以接受返回的数组 theDate=arrayDate() '调用函数，返回数组，执行后，theDate自动变成数组 '下面正式输出日历 Dim I,J For I=1 To numrow() '从第1行到最后1行循环 Response.Write "<tr>" '开始一个新行 For J=1 To 7 If theDate(I,J)<>0 Then If theDate(I,J)=Day(Date()) Then Response.Write "<td><font color=blue><b>" & theDate(I,J) & "</b></font></td>" '将当天标为蓝色加粗 ElseIf J=1 OR J=7 Then Response.Write "<td><font color=red>" & theDate(I,J) & " </font></td>" '将周六和周日标为红色 Else Response.Write "<td>" & theDate(I,J) & "</td>" '其它日期普通显示即可 End If Else Response.Write "<td> </td>" '该单元格为空 End if Next Response.Write "</tr>" '结束这一行 Next %> </table> <% '该函数返回当月共有多少天 Function numday() Dim IntDay,I intDay=28 '用intDay来统计，首先赋值28 For I=29 to 31 If IsDate(Year(date()) & "-" & Month(date()) & "-" & I) Then intDay=I '如果当天有效，返回True，则更新天数 End if Next numday=intDay '返回函数值 End Function '该函数返回当月1号是星期几 Function firstDay() firstDay=WeekDay(Year(date()) & "-" & Month(date()) & "-1") '计算1号是周几 End Function '该函数将每一天保存到6*7的数组中,将日期填入对应的数组中 Function arrayDate() Dim I,J,K,arrayTemp(6,7) For I=1 To 6 '这个嵌套循环用以给数组赋初值0 For J=1 To 7 arrayTemp(I,J)=0 Next Next For K=1 to numday() '从1号到最后一天循环 I=(k+firstDay()-2)\7+1 '计算该天所在的行数 J=(k+firstDay()-1) Mod 7 '计算该天是所在的列数 If J=0 Then J=7 '如果余数为0，表示是第7列 arrayTemp(I,J)=K '最后将当天保存到对应行列中 Next arrayDate=arrayTemp '返回函数值 End Function '该函数返回当月共应该显示多少行 Function numRow() numRow=(numDay()+firstDay()-2)\7+1 '计算表格的行数,调用了前面的函数 End Function %> </body> </html> 四、实验思考题 1．在你的个人主页上添加时间显示信息，显示当天的日期、时间及星期几。 2．请编写程序段，将字符串“祖国”和“万岁”两边的空格去掉，并连成一个字符串“祖国万岁”。 3．请编写程序段，判断当天日期，如果是 25 日，则显示“请注意，明天可能有病毒发作”。 4．S=1^2+3^2+5^2+…+99^2，请利用两种循环语句编写程序，计算 S 的值。（提示：注意步长）。 5．请编写函数计算 a 到 b 的立方和，并举例调用，调用时 a、b 分别为 3 和 6。 6．有 100 个和尚吃 100 个馒头，大和尚 1 人吃 4 个，小和尚 4 人吃 1 个，问有多少个大和尚和多少个小和尚？（提示：使用循环嵌套和判断语句） 7.用Select Case语句编写程序，判断今天是星期几 8. 用For …… Next、Do While…… Loop、Do …… Loop While循环语句，分别计算1+2+3+……+10 笔记：1 <% dim x x=6 select case x case 1 response.write("张三请客") case 2 response.write("李四请客") case else response.write("都是王五请客") end select %> （此文档部分内容来源于网络，如有侵权请告知删除，文档可自行编辑修改内容，供参考，感谢您的配合和支持） 编辑版word展开阅读全文
咨信网温馨提示：1、咨信平台为文档C2C交易模式，即用户上传的文档直接被用户下载，收益归上传人（含作者）所有；本站仅是提供信息存储空间和展示预览，仅对用户上传内容的表现方式做保护处理，对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿，我们不确定上传用户享有完全著作权，根据《信息网络传播权保护条例》，如果侵犯了您的版权、权益或隐私，请联系我们，核实后会尽快下架及时删除，并可随时和客服了解处理情况，尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确)，网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据，个别因单元格分列造成显示页码不一将协商解决，平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺，下载前须认真查看，确认无误后再购买，务必慎重购买；若有违法违纪将进行移交司法处理，若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传，付费前请自行鉴别，如您付费，意味着您已接受本站规则且自行承担风险，本站不进行额外附加服务，虚拟产品一经售出概不退款（未进行购买下载可退充值款），文档一经付费（服务费）、不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印，是因预览和防盗链等技术需要对页面进行转换压缩成图而已，我们并不对上传的文档进行任何编辑或修改，文档下载后都不会有水印标识（原文档上传前个别存留的除外），下载后原文更清晰；试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓；PPT和DOC文档可被视为“模板”，允许上传人保留章节、目录结构的情况下删减部份的内容；PDF文档不管是原文档转换或图片扫描而得，本站不作要求视为允许，下载前可先查看【教您几个在下载文档中可以更好的避免被坑】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用；网站提供的党政主题相关内容(国旗、国徽、党徽－－等)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
6、文档遇到问题，请及时联系平台进行协调解决，联系【微信客服】、【QQ客服】，若有其他问题请点击或扫码反馈【服务填表】；文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“【版权申诉】”，意见反馈和侵权处理邮箱：1219186828@qq.com；也可以拔打客服电话：0574-28810668；投诉电话：18658249818。
实名认证
平台协调中心【客服】
自信AI助手
微信客服
客服QQ
发送邮件
意见反馈
链接地址：https://www.zixin.com.cn/doc/4829324.html