1、第 1 页实验一：ASP.net 运行环境安装与配置教学目的：1 掌握 ASP.net 运行环境的安装、配置2 熟悉 IIS 服务器的各项参数设置3 熟悉 Framework 框架开发工具 Visual Studio 2005 的安装，配置4 通过 Visual Studio 2005 开发工具创建一个简单的 Web 项目，并能在 IIS 中调试运行教学重点：IIS 的安装；Visual Studio 2005 的安装，Framework 安装； 教学难点：Visual Studio 2005 的配置；IIS 的正确配置；创建 WEB 项目在 IIS 中调试运行一、实验平台与工具：1、实验平台
2、：学生机：Windows XP Professional；教师机： Windows 2003 Server2、硬件工具：计算机，光驱，已组好局域网3、软件工具：IIS5.0/6.0 安装包；Visual Studio 2005 简体中文版安装软件；Framework 2.0；IE6.0；二、实验操作1、安装和配置 IIS 服务器。2、安装 Framework 2.0。3、安装 Visual Studio 2005。注意：选择安装的编程语言为 VB.net，为节省时间其它几项编程语言可去掉。估计时间大概是 10-20 分钟。4、启动 Visual Studio 2005，配置开发环境。选择开发语
3、言为 VB.net，开发项目类别为 WE网站项目。5、在第 4 步完成后，建立了一个最简单的 WEB 站点，请使用 IIS 配置该站点，并运行，查看运行状态。 三、问题 对于”访问 IIS 元数据库失败”的解决问题描述：“访问 IIS 元数据库失败”“用于运行 ASP.NET 的进程帐户必须具有对 IIS 元数据库( 如 IIS:/servername/W3SVC)的读访问权。有关如何修改元数据库权限的信息，请参见 http:/ ”解决方法：注册 IIS1、打开 CMD，进入 C:WINDOWSMicrosoft.NETFrameworkv2.0.50727 2、输入 aspnet_regii
4、s.exe -i (完成以上 2 步后应该解决问题了 ,如果还没有解决,请再做下面的步骤)接着还会出现问题：“未能创建 Mutex”1、先关闭你的 VS2005。 2、打开 C:WINDOWSMicrosoft.NETFrameworkv2.0.50727Temporary ASP.NET Files 找到你刚才调试的程序的名字的目录并删除它。3、关闭 IIS 服务器，重开一次。 4、用 IE 浏览一下你的程序，问题解决。 由于 vs2005 支持文件系统，可以不需要 IIS，所以在安装 2005 之后再安装 IIS，导致 IIS没有注册第 3 页实验二、 简单交互程序编程 教学目的：1. 学
5、习使用 Visual Studio 2005 开发工具编写 ASP.net 程序；2. 掌握 IIS 调试 ASP.net 程序的过程；3. 学习解决程序错误的改正方法一、实验平台与工具：1、实验平台：学生机：Windows XP Professional；教师机：Windows 2003 Server2、硬件工具：计算机，光驱，已组好局域网3、软件工具：IIS5.0/6.0 安装包；Visual Studio 2005 简体中文版；Framework 2.0；IE6.0 ；二、实验操作1、启动 IIS 查看 IIS 的配置情况。2、启动 Visual Studio 2005 开发工具，建立一
6、个 WEB 站点项目，保存到指定目录下。3、编写几个简单的 ASP.net 程序1）编写 Hello World 程序，查看运行结果：新建网页，添加一标签控件。在空白处双击，进入网页对应的 vb 文件，在 form1_Load事件中输入：Label1.Text = “欢迎进入ASP.NET世界！“Label1.ForeColor = Drawing.Color.Blue2)制作如下图所示的网页，显示日期和时间（now ）,显示当前日期 today,，显示当天是星期几（weekday(now)。不带参数时函数的（）可省略。核心代码为：当前日期和时间为： 当前日期为： 当前是星期：“)%good
7、good study! day day up!“)%3）制作如下图所示的网页。要求：输入名字后，单击“提交”按钮，下方显示欢迎信息。实现代码如下：Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Text = “尊敬的“ + TextBox1.Text + “阁下欢迎您的到来!“Dim aaa As StringIf Hour(Now) 0 And Hour(Now) 12 And Hour(Now) 3、制作如下图所示的网页，
8、在网页上显示时间，并作出判断：若是零晨至上午七点，则输出”早上好！“ 。若是上午 8 点至 12 点前，则输出” 上午好！ ”。若为 12 点则输出“ 中午好！”。若是 12 点后至 18 点则输出“下午好” 。18 点后则输出 “晚上好！”代码提示：Function showshijian()Dim aaa As StringIf Hour(Now) = 0 And Hour(Now) 7 And Hour(Now) 12 And Hour(Now) 在标记中添加如下代码：“)Response.Write(showshijian()%第 9 页实验四：内置对象编程（一）教学目的：1、理解 A
9、SP.NET 主要内置对象的含义与作用；2、熟练掌握内置对象 page、Response、Request 的应用；3、熟悉内置对象的属性、方法的应用编程；4、掌握表单数据的收集；5、掌握 application 对象的含义与应用。一、实验平台与工具：1、实验平台：Windows XP Professional；2、硬件工具：计算机 3、软件工具：IE6.0；Visual Studio 2005;二、实验内容1、制作如下图所示的网页。当网页启动后，首先触发 page 对象的 init 事件，随后才触发load 事件。当在客户端单击“提交”按钮后，激发页面向服务器回送，服务器处理产生网页的新版本并
10、再次触发 load 事件，而 init 事件不再发生，因此第一个文本框不再发生变化。多次单击“提交”按钮后效果如下图所示。相关代码如下：Partial Class page2Inherits System.Web.UI.PageDim abc As Short = 0Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Initabc = abc + 1TextBox1.Text = “触发时间为：“ 二、实验操作综合：创建一个网站聊天室。1. 代码如下：第 13 页相关代
11、码如下：Global.asax 中的代码：Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)Dim abc(15) As StringApplication(“jilu“) = abc 定义了一个application对象数组，存储最新的15条聊天记录.Application(“id“) = 0 定义一个变量保存当前已有聊天记录条数。Application(“count“) = 0 保存在线人数 End SubSub Session_Start(ByVal sender As Object, ByVal e A
12、s EventArgs)Application(“count“) = Application(“count“) + 1Session.Timeout = 3 限制超时时间为3分钟。End SubSub Session_End(ByVal sender As Object, ByVal e As EventArgs)Application(“count“) = Application(“count“) - 1End Sub登录网页代码：Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
13、Handles Button1.ClickIf Request.Form(“textbox1“) “ ThenSession(“nicheng“) = Request.Form(“textbox1“)Response.Redirect(“frameset.htm“)End IfEnd Sub发言网页代码：Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.ClickIf Request.Form(“textbox1“) “ ThenApplication
14、.Lock()If Application(“id“) = 15 ThenDim i As IntegerFor i = 0 To 13Application(“jilu“)(i) = Application(“jilu“)(i + 1)NextApplication(“id“) = Application(“id“) - 1End IfDim a As Integera = Application(“id“)Application(“jilu“)(a) = Session(“nicheng“) & “在“ & TimeOfDay.TimeOfDay.ToString & “说道：“ & Te
15、xtBox1.TextApplication(“id“) = Application(“id“) + 1Application.UnLock()将最新发言保存至聊天记录对应的数组中去。Response.Write(“window.parent.qqq.location.reload()“)End IfEnd Sub显示发言网页代码：Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadResponse.Write(“目前在线人数为：“ & Application(“count“) & “人“)Dim i As IntegerFor i = 0 To Application(“id“) - 1Response.Write(“)Response.Write(Application(“jilu“)(i)Response.Write(“)NextEnd Sub
