ASP-.NET应用程序设计实验报告.doc

实 验 报 告课程名称： ASP .NET应用程序设计 院 系： 计算机学院 专业班级： 17级软件工程 学 号： 1700000000 学生姓名： X* 开课时间： 2017 至 2018学年第 1 学期合肥师范学院计算机学院ASP.NET应用程序设计课程验证性实验报告实验名称网页制作实验时间学生姓名XXX实验地点同组人员无专业班级软件工程1、 实验目的（1） 了解IIS的基本配置方法，熟悉.NET开发环境（2） 掌握HTML文档结构、编写方法及常用标记（3） 熟悉HTML文档结构及常用标记的语法。（4） 学会编写简单网页掌握表格的建立方法。（5） 掌握表单的建立方法。2、实验主要仪器设备和材料：硬件：微型计算机软件：IIS服务器、文档编辑器3、实验内容和原理：1.IIS的安装2.IIS基本配置（1）IP地址的设置（2）主目录的设置（3）默认文档的设置（4）虚拟目录的建立（5）测试IIS的安装状况3.网页制作：在网页上创建一个货品价格表。4、实验步骤1. 打开记事本，输入一下代码，并以t1-1.html为文件名保存该文件；欢迎查看货品表货品价格表名称编号类别单价数量备注详情电话机1001小家电80100最低8折查看详情MP51002数码产品2080100最低8.5折查看详情电冰箱1003小家电2198100 查看详情电子词典1004数码产品196100 查看详情2.在浏览器打开t1-1.html文件，查看该网页的浏览结果。5、实验现象、实验数据记录：实验现象： 6、 实验结论： 通过本次实验，我了解了IIS的基本配置方法，熟悉.NET开发环境，学会了简单的网页制作和表格的制作。成功完成了页面的显示。达到了实验目的与要求。指导教师评语和成绩评定： 实验报告成绩：指导教师签字： 年 月 日合肥师范学院计算机学院ASP.NET应用程序设计课程验证性实验报告实验名称VB.NET基本程序设计实验时间学生姓名XXX实验地点同组人员无专业班级软件工程1、实验目的（1） 掌握启动与退出VB.NET的方法。 （2） 掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。 （3） 掌握Visual Basic .NET 语言的数据类型、常量、变量及运算符的使用方法。 （4） 掌握分支条件语句的使用。（5） 掌握表达式、赋值语句的正确书写规则，掌握常用函数的使用。2、实验主要仪器设备和材料：硬件：微型计算机软件：Microsoft Visual studio IIS服务器3、实验内容和原理：完成课后实验二的第一个第二个和第三个实验。（1） 输入一个整数，判断它是正数、负数还是零。（2） 根据输入的日期，显示输入日期的后一天。（3） 对整数数组排序。4、实验方法、步骤：实验T2-1T2-1.aspx: 无标题页 .style1 width: 350px; border: 1px solid #000000; background-color: #CCCC00; 请输入一个整数 请输入一个整数为：   T2-1.aspx.vb Inherits System.Web.UI.Page Protected Sub BtnExe_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnExe.Click If TxtInt.Text = Then Lb1Desc.Text = 整数值不能为空，请输入！ Else Dim m As Integer m = CInt(TxtInt.Text) If m 0 Then Lb1Desc.Text = 您输入的整数值为正数！ Else Lb1Desc.Text = 您输入的整数值为零！ End If End If End If End SubEnd Class实验T2-2T2-2.aspx: 无标题页 .style1 width: 550px; border: 1px solid #000000; background-color: #CCCC00; 请您输入年、月、日 年 月 日     T2-2.aspx.vb:Partial Class T2_2 Inherits System.Web.UI.Page Protected Sub TextBox3_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtYear.TextChangedEnd Sub Protected Sub BtnExe_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnExe.Click If TxtYear.Text = Or TxtMonth.Text = Or TxtDate.Text = Then LblCaution.Text = 年、月、日值不能为空，请输入！ Else If CInt(TxtYear.Text) 0 Or CInt(TxtMonth.Text) 0 Or CInt(TxtDate.Text) 0 Then LblCaution.Text = 年、月、日值不能为负，请重新输入！ Else Dim Leap As Boolean = False Dim Y As Integer = CInt(TxtYear.Text) If Y Mod 4 = 0 Then If Y Mod 100 = 0 Then If Y Mod 400 = 0 Then Leap = True End If Else Leap = True End If End If Dim M, D, NY, NM, ND As Integer M = CInt(TxtMonth.Text) D = CInt(TxtDate.Text) Select Case M Case 1, 3, 5, 7, 8, 10 If D = 31 Then NY = Y : NM = M + 1 : ND = 1 Else NY = Y : NM = M : ND = D + 1 End If Case 4, 6, 9, 11 If D = 30 Then NY = Y : NM = M + 1 : ND = 1 Else NY = Y : NM = M : ND = D + 1 End If Case 2 If D = 29 Then If Leap Then NY = Y : NM = M + 1 : ND = 1 Else LblCaution.Text = 输入的日值有错，请重新输入！ End If Else If D = 28 Then If Leap Then NY = Y : NM = M : ND = D + 1 Else NY = Y : NM = M + 1 : ND = 1 End If Else LblCaution.Text = ERROR End If End If Case 12 If D = 31 Then NY = Y + 1 : ND = 1 Else NY = Y : NM = M : ND = D + 1 End If End Select LblCaution.Text = LblCaution.Text & 后一天为 & CStr(NY）& “-”& CStr(NM) & “-”&CStr(ND) End If End If End SubEnd Class实验T2-3T2-3.aspx: 无标题页 对整数数组排序 T2-3.aspx.vb：Partial Class T2_3 Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim A() As Integer = 10, 100, 28, 9, 18, 36, 59, 90 Dim j, k, min, temp As Integer Dim n As Integer = UBound(A) For i = 0 To n - 1 k = i : min = A(i) For j = i + 1 To n If A(j) min Then k = j : min = A(j) End If Next If i k Then temp = A(i) : A(i) = A(k) : A(k) = temp End If Next For Each i In A Lb1Res.Text = Lb1Res.Text & & CStr(i) Next End SubEnd Class5、实验现象、实验数据的分析：实验T2-1：实验T2-2：实验T2-3：6、实验结论： 通过这次实验，我对基本控件的使用有了基本的掌握，掌握了赋值表达式，if语句的使用有了进一步的了解，并且学会使用数组并对数组进行排序。指导教师评语和成绩评定： 实验报告成绩：指导教师签字： 年 月 日合肥师范学院计算机学院ASP.NET应用程序设计课程验证性实验报告实验名称VB.NET过程和函数实验时间学生姓名XXX实验地点同组人员无专业班级软件工程1、实验目的（1） 了解VB.NET系统对计算机软、硬件的要求 。（2） 掌握数组的定义和使用的基本的方法。 （3） 掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。2、实验主要仪器设备和材料：硬件：微型计算机软件：Microsoft Visual studio IIS服务器3、实验内容和原理：完成课后实验三的第一个第二个和第三个实验。（1） 根据输入日期，显示输入日期的前一天和后一天。（2） 输入两个整数，求它们的最小公倍数和最大公约数。（3） 统计字符串2在字符串1中出现的次数和位置。4、实验方法、步骤：实验T3-1T3-1.aspx： 无标题页 请您输入二个整数 您要输入的整数为： 和 T3-1.aspx.vb：Partial Class T3_1 Inherits System.Web.UI.Page Function hcf(ByVal m As Integer, ByVal n As Integer) As Integer Dim t, r As Integer If m n Then t = m : m = n : n = t End If r = m Mod n While r 0 m = n : n = r : r = m Mod n End While hcf = n End Function Function lcd(ByVal m As Integer, ByVal n As Integer, ByVal h As Integer) As Integer lcd = m * n / h End Function Protected Sub BtnExe_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnExe.Click If TxtInt1.Text = Or TxtInt2.Text = Then LblDesc.Text = 整数值不能为空，请输入！ Else Dim m, n, h, l As Integer m = Val(TxtInt1.Text) n = Val(TxtInt2.Text) h = hcf(m, n) l = lcd(m, n, h) LblDesc.Text = 最大公约数为：& CStr(h)&最小公倍数为： & CStr(l) End If End SubEnd Class实验T3-2T3-2.aspx： 无标题页 .style1 width: 550px; border: 1px solid #000000; background-color: #CCCC00; 请您输入年、月、日 年 月 日      T3-2.aspx.vb：Partial Class T3_2 Inherits System.Web.UI.Page Function PreDay(ByVal y As Integer, ByVal m As Integer, ByVal d As Integer) As String Dim PreD As DateTime Dim preyear, premonth, predate As String PreD = DateAdd(d, -1, DateSerial(y, m, d) preyear = Year(PreD) premonth = Month(PreD) predate = Day(PreD) PreDay = preyear & - & premonth & - & predate End Function Function NextDay(ByVal y As Integer, ByVal m As Integer, ByVal d As Integer) As String Dim NextD As DateTime Dim nextyear, nextmonth, nextdate As String NextD = DateAdd(d, 1, DateSerial(y, m, d) nextyear = Year(NextD) nextmonth = Month(NextD) nextdate = Day(NextD) NextDay = nextyear & - & nextmonth & - & nextdate End Function Protected Sub BtnExe_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnExe.Click If TxtYear.Text = Or TxtMonth.Text = Or TxtDate.Text = Then LblCaution.Text = 年、月、日值不能为空，请输入！ Else If CInt(TxtYear.Text) 0 Or CInt(TxtMonth.Text) 0 Or CInt(TxtDate.Text) 0 Then LblCaution.Text = 年、月、日值不能为负，请输入！ Else Dim Y As Integer = CInt(TxtYear.Text) Dim M As Integer = CInt(TxtMonth.Text) Dim D As Integer = CInt(TxtDate.Text) LblCaution.Text = 前一天为： & PreDay(Y, M, D) & ,后一天为： & NextDay(Y, M, D) End If End If End SubEnd Class实验T3-3T3-3.aspx： 无标题页 请您输入两个字符串 请输入： 串1：       串2：   T3-3.aspx.vb:Partial Class T3_3 Inherits System.Web.UI.Page Function FindStr(ByVal str1 As String, ByVal str2 As String, ByVal count() As Integer) As Boolean Dim stlen As Integer = Len(str2) Dim i, k, L As Integer Dim s As String = str1 i = 0 : L = 0 While s k = InStr(s, str2) LbllDesc.Text = LbllDesc.Text & CStr(k) If k = 0 Then Exit While Else L = L + k count(i) = L L = L + stlen - 1 i = i + 1 s = Mid(s, k + stlen) End If End While If L = 0 Then FindStr = False Else FindStr = True End If End Function Protected Sub BtnExe_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnExe.Click If TxtStr1.Text = Or TxtStr2.Text = Then LbllDesc.Text = 输入不能为空，请输入字符串！ Else Dim count(10) As Integer Dim finds As Boolean finds = FindStr(TxtStr1.Text, TxtStr2.Text, cou