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

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

《ASP NET应用程序设计实验报告.docx》由会员分享，可在线阅读，更多相关《ASP NET应用程序设计实验报告.docx（39页珍藏版）》请在冰豆网上搜索。

ASPNET应用程序设计实验报告

实验报告

课程名称：

ASP.NET应用程序设计

院系：

计算机学院

专业班级：

17级软件工程

学号：

1*********

学生姓名：

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为文件名保存该文件；

2.在浏览器打开t1-1.html文件，查看该网页的浏览结果。

5、实验现象、实验数据记录：

实验现象：

6、实验结论：

通过本次实验，我了解了 IIS 的基本配置方法，熟悉.NET 开发环境，学会了简单的网页制作和表格的制作。

成功完成了页面的显示。

达到了实验目的与要求。

指导教师评语和成绩评定：

实验报告成绩：

指导教师签字：

年月日

合肥师范学院计算机学院

《ASP.NET应用程序设计》课程验证性实验报告

实验名称

VB.NET基本程序设计

实验时间

学生姓名

XXX

实验地点

同组人员

无

专业班级

软件工程

1、实验目的

（1）掌握启动与退出VB.NET的方法。

（2）掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。

（3）掌握VisualBasic.NET语言的数据类型、常量、变量及运算符的使用方法。

（4）掌握分支条件语句的使用。

（5）掌握表达式、赋值语句的正确书写规则，掌握常用函数的使用。

2、实验主要仪器设备和材料：

硬件：

微型计算机

软件：

MicrosoftVisualstudioIIS服务器

3、实验内容和原理：

完成课后实验二的第一个第二个和第三个实验。

（1）输入一个整数，判断它是正数、负数还是零。

（2）根据输入的日期，显示输入日期的后一天。

（3）对整数数组排序。

4、实验方法、步骤：

实验T2-1

T2-1.aspx:

<%@PageLanguage="VB"AutoEventWireup="false"CodeFile="T2-1.aspx.vb"Inherits="T2_1"%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

.style1{

width:

350px;

border:

1pxsolid#000000;

background-color:

#CCCC00;

}

T2-1.aspx.vb

InheritsSystem.Web.UI.Page

ProtectedSubBtnExe_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesBtnExe.Click

IfTxtInt.Text=""Then

Lb1Desc.Text="整数值不能为空，请输入！

"

Else

DimmAsInteger

m=CInt（TxtInt.Text）

Ifm<0Then

Lb1Desc.Text="您输入的整数值为负数！

"

Else

Ifm>0Then

Lb1Desc.Text="您输入的整数值为正数！

"

Else

Lb1Desc.Text="您输入的整数值为零！

"

EndIf

EndIf

EndIf

EndSub

EndClass

实验T2-2

T2-2.aspx:

<%@PageLanguage="VB"AutoEventWireup="false"CodeFile="T2-2.aspx.vb"Inherits="T2_2"%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

.style1

{

width:

550px;

border:

1pxsolid#000000;

background-color:

#CCCC00;

}

LabelID="LblCaution"runat="server">

Label>

T2-2.aspx.vb:

PartialClassT2_2

InheritsSystem.Web.UI.Page

ProtectedSubTextBox3_TextChanged（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesTxtYear.TextChanged

EndSub

ProtectedSubBtnExe_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesBtnExe.Click

IfTxtYear.Text=""OrTxtMonth.Text=""OrTxtDate.Text=""Then

LblCaution.Text="年、月、日值不能为空，请输入！

"

Else

IfCInt（TxtYear.Text）<0OrCInt（TxtMonth.Text）<0OrCInt（TxtDate.Text）<0Then

LblCaution.Text="年、月、日值不能为负，请重新输入！

"

Else

DimLeapAsBoolean=False

DimYAsInteger=CInt（TxtYear.Text）

IfYMod4=0Then

IfYMod100=0Then

IfYMod400=0Then

Leap=True

EndIf

Else

Leap=True

EndIf

EndIf

DimM,D,NY,NM,NDAsInteger

M=CInt（TxtMonth.Text）

D=CInt（TxtDate.Text）

SelectCaseM

Case1,3,5,7,8,10

IfD=31Then

NY=Y:

NM=M+1:

ND=1

Else

NY=Y:

NM=M:

ND=D+1

EndIf

Case4,6,9,11

IfD=30Then

NY=Y:

NM=M+1:

ND=1

Else

NY=Y:

NM=M:

ND=D+1

EndIf

Case2

IfD=29Then

IfLeapThen

NY=Y:

NM=M+1:

ND=1

Else

LblCaution.Text="输入的日值有错，请重新输入！

"

EndIf

Else

IfD=28Then

IfLeapThen

NY=Y:

NM=M:

ND=D+1

Else

NY=Y:

NM=M+1:

ND=1

EndIf

Else

LblCaution.Text="ERROR"

EndIf

EndIf

Case12

IfD=31Then

NY=Y+1:

ND=1

Else

NY=Y:

NM=M:

ND=D+1

EndIf

EndSelect

LblCaution.Text=LblCaution.Text&"后一天为"&CStr（NY）&“-”&CStr（NM）&“-”&CStr（ND）

EndIf

EndIf

EndSub

EndClass

实验T2-3

T2-3.aspx:

<%@PageLanguage="VB"AutoEventWireup="false"CodeFile="T2-3.aspx.vb"Inherits="T2_3"%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

对整数数组排序

T2-3.aspx.vb：

PartialClassT2_3

InheritsSystem.Web.UI.Page

ProtectedSubPage_Load（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesMe.Load

DimA（）AsInteger={10,100,28,9,18,36,59,90}

Dimj,k,min,tempAsInteger

DimnAsInteger=UBound（A）

Fori=0Ton-1

k=i:

min=A（i）

Forj=i+1Ton

IfA（j）

k=j:

min=A（j）

EndIf

Next

Ifi<>kThen

temp=A（i）:

A（i）=A（k）:

A（k）=temp

EndIf

Next

ForEachiInA

Lb1Res.Text=Lb1Res.Text&""&CStr（i）

Next

EndSub

EndClass

5、实验现象、实验数据的分析：

实验T2-1：

实验T2-2：

实验T2-3：

6、实验结论：

通过这次实验，我对基本控件的使用有了基本的掌握，掌握了赋值表达式，if语句的使用有了进一步的了解，并且学会使用数组并对数组进行排序。

指导教师评语和成绩评定：

实验报告成绩：

指导教师签字：

年月日

合肥师范学院计算机学院

《ASP.NET应用程序设计》课程验证性实验报告

实验名称

VB.NET过程和函数

实验时间

学生姓名

XXX

实验地点

同组人员

无

专业班级

软件工程

1、实验目的

（1）了解VB.NET系统对计算机软、硬件的要求。

（2）掌握数组的定义和使用的基本的方法。

（3）掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。

2、实验主要仪器设备和材料：

硬件：

微型计算机

软件：

MicrosoftVisualstudioIIS服务器

3、实验内容和原理：

完成课后实验三的第一个第二个和第三个实验。

（1）根据输入日期，显示输入日期的前一天和后一天。

（2）输入两个整数，求它们的最小公倍数和最大公约数。

（3）统计字符串2在字符串1中出现的次数和位置。

4、实验方法、步骤：

实验T3-1

T3-1.aspx：

<%@PageLanguage="VB"AutoEventWireup="false"CodeFile="T3_1.aspx.vb"Inherits="T3_1"%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

center">

LabelID="LblDesc"runat="server">

Label>

T3-1.aspx.vb：

PartialClassT3_1

InheritsSystem.Web.UI.Page

Functionhcf（ByValmAsInteger,ByValnAsInteger）AsInteger

Dimt,rAsInteger

Ifm

t=m:

m=n:

n=t

EndIf

r=mModn

Whiler<>0

m=n:

n=r:

r=mModn

EndWhile

hcf=n

EndFunction

Functionlcd（ByValmAsInteger,ByValnAsInteger,ByValhAsInteger）AsInteger

lcd=m*n/h

EndFunction

ProtectedSubBtnExe_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesBtnExe.Click

IfTxtInt1.Text=""OrTxtInt2.Text=""Then

LblDesc.Text="整数值不能为空，请输入！

"

Else

Dimm,n,h,lAsInteger

m=Val（TxtInt1.Text）

n=Val（TxtInt2.Text）

h=hcf（m,n）

l=lcd（m,n,h）

LblDesc.Text="最大公约数为：

"&CStr（h）&"最小公倍数为：

"&CStr（l）

EndIf

EndSub

EndClass

实验T3-2

T3-2.aspx：

<%@PageLanguage="VB"AutoEventWireup="false"CodeFile="T3_2.aspx.vb"Inherits="T3_2"%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

.style1

{

width:

550px;

border:

1pxsolid#000000;

background-color:

#CCCC00;

}

center">