《Web系统与技术实验报告.doc》由会员分享，可在线阅读，更多相关《Web系统与技术实验报告.doc（20页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、实验二 HTML Dom 编程一、实验目的1、掌握Javascript脚本编程方法2、掌握使用word,excel制作web系统的报表；3、掌握常用HTML dom 对象使用方法。二、实验内容 1、 制作Excel表格，输入web应用技术课程的学生信息，包括学号、姓名、班级等，至少录入10条记录，保存为student.xsl。2、 制作一个页面，把student.xsl的文件上传到服务器上，保存在数据库的student表中；3、 制作一个页面score.html,录入每个学生的5次平均成绩；4、在页面score.html添加两个按钮，分别把成绩信息制作成word,excel报表， 格式如下图所
2、示。三、实验步骤1. using System;using System.Data;using System.Configuration;using System.Web;using System.Web.Security;using System.Web.UI;using System.Web.UI.WebControls;using System.Web.UI.WebControls.WebParts;using System.Web.UI.HtmlControls;using System.Data.OleDb;using System.Data.SqlClient;using Syst
3、em.Data.SqlTypes;public partial class _Default : System.Web.UI.Page protected void Page_Load(object sender, EventArgs e) protected void Button1_Click(object sender, EventArgs e) if (FileUpload1.HasFile) try string path = HttpContext.Current.Request.MapPath(); FileUpload1.SaveAs(path + FileUpload1.Fi
4、leName); int size = FileUpload1.PostedFile.ContentLength; string type = FileUpload1.PostedFile.ContentType; Response.Write(alert(文件上传成功!); catch (Exception ex) Label1.Text = 发生错误： + ex.Message.ToString(); else Response.Write(alert(必须指定文件!); protected void Button2_Click1(object sender, EventArgs e) s
5、tring strConn = Provider=Microsoft.Jet.OLEDB.4.0;data source=E:student.xls;Extended Properties=Excel 8.0; OleDbConnection connxls = new OleDbConnection(strConn); OleDbDataAdapter myDa = new OleDbDataAdapter(select * from Sheet1$, connxls); DataSet myDs = new DataSet(); myDa.Fill(myDs); string mySql
6、= ; string sqlConn = Data Source=111-41SQLSERVER2005;Initial Catalog=student;Integrated Security=True; SqlConnection con = new SqlConnection(sqlConn); if (con.State.ToString() = Closed) con.Open(); SqlCommand myCmd = new SqlCommand(); for (int i = 0; i myDs.Tables0.Rows.Count; i+) mySql = (insert in
7、to STUDENT(学号,姓名,班级) values( + myDs.Tables0.Rowsi0.ToString() + , + + myDs.Tables0.Rowsi1.ToString() + , + myDs.Tables0.Rowsi2.ToString() + ); myCmd.Connection = con; myCmd.CommandText = mySql; try myCmd.ExecuteNonQuery(); Response.Write(alert(数据已成功导入到数据库！);); catch (Exception ex) Response.Write(将数据
8、插入数据库时出错 + ex.Message); if (con.State.ToString() = Open) con.Close(); 2. JavaScript代码function add()var ExcelApp = new ActiveXObject(Excel.Application); var ExcelSheet = new ActiveXObject(Excel.Sheet); ExcelSheet.Application.Visible=true; ExcelSheet.ActiveSheet.Cells(1,1).Value = This is column A, ro
9、w 1;ExcelSheet.SaveAs(C:TEST1.XLS);ExcelApp.Quit(); 四、实验小结通过本次实验掌握了Javascript脚本编程方法，使用word、excel制作web系统的报表和常用HTML dom 对象使用方法。实验三 在XML文档中使用DTD和schema一、实验目的1、掌握XML DTD的定义方法及其用途;2、掌握使用元素、属性、实体和标记声明的基本语法；3、了解并掌握XML Schema的定义方法及其用途；4、了解并掌握Schema的基本结构、数据类型、元素声明和属性声明；二、实验内容 4、 根据下列要求，编写student.XML文档：（1）文档内
10、容要求：08届（班级（学生信息（学号、姓名、电子邮件、QQ、通信地址（省份（或州）、城市、街道、邮政编码）；（2）要求建立至少2个班级，每个班级至少2个学生的信息；（3）XML文档中包含以下技术的使用： a、5个预定义字符实体的使用； b、CDATA字符定界符的使用； c、属性的简单使用； d、注释的使用； e、空元素的使用。相关代码：李建国lijianguo广西桂林金鸡路1号张红zhanghong广西桂林金鸡路2号周敏zhoumin广西桂林尧山校区欧阳飞ouyangfei广西桂林金鸡路4号2.为student.XML文档，编写DTD文档,如图3-1所示；使得XML文档中包含以下技术的使用：
11、（1）内部一般实体的使用； （2）外部参数实体的使用； （3）属性声明的使用(如：CDATA类型、枚举类型、ID类型、IDREF类型、ENTITIS类型)。图 3-1 DTD文档3. 为student.XML文档，编写Schema文档，如图3-2所示；使得Schema文档中包含以下技术的使用： （1）简单类型元素的定义与应用； （2）复杂类型元素的定义与应用； （3）属性声明的使用。图3-2 Schema树形图三、实验步骤1. !DOCTYPE grade 2. 四、实验小结通过本次实验掌握了XML DTD的定义方法及其用途，使用元素、属性、实体和标记声明的基本语法。了解并掌握XML Sche
12、ma的定义方法及其用途和Schema的基本结构、数据类型、元素声明和属性声明。实验四 服务器控件一、实验目的1、掌握文件上传方法2、掌握常用HTML服务器控件3、掌握常用A 服务器控件。4、掌握常用验证控件： 必须字段验证控件RequiredFieldValidator 范围验证控件RangeValidator 正则表达式验证控件RegularExpressionValidator 自定义验证控件CustomValidator 验证总结控件ValidationSummary二、实验内容 1、实现文件上传功能，限定只能上传图片（.jpg .gif .bmp .png），上传成功后在页面自动显示上
13、传的图片。2、在页面中显示当前时间：格式如：2010年4月12日 11点58分18秒 星期一。 3、在页面中显示动态时间： !-document.write()setInterval(time.innerText=new Date().toLocaleString(),1000)/-4、实现通过下拉列表控制图片显示，如图5、在注册页面使用日历控件：6、使用必须字段验证控件RequiredFieldValidator验证用户名字段7、使用范围验证控件RangeValidator验证文本框的输入是否是一个1-5之间的整数8、使用正则表达式验证控件RegularExpressionValidator
14、验证用户输入的邮政编码是否合法9、使用自定义验证控件验证用户的输入是否是偶数10、使用验证总结控件ValidationSummary，完成如下验证三、实验步骤1.（ 第2题代码） function Year_Month() var now = new Date(); var yy = now.getYear(); var mm = now.getMonth() + 1; var cl = ; if (now.getDay() = 0) cl = ; if (now.getDay() = 6) cl = ; return (cl + yy + 年 + mm + 月); function Date
15、_of_Today() var now = new Date(); var cl = ; if (now.getDay() = 0) cl = ; if (now.getDay() = 6) cl = ; return (cl + now.getDate() + 日); function CurentTime() var now = new Date(); var hh = now.getHours(); var mm = now.getMinutes(); var ss = now.getTime() % 60000; ss = (ss - (ss % 1000) / 1000; var c
16、lock = hh + :; if (mm 10) clock += 0; clock += mm + :; if (ss 10) clock += 0; clock += ss; return (clock); function Day_of_Today() var day = new Array(); day0 = 星期日; day1 = 星期一; day2 = 星期二; day3 = 星期三; day4 = 星期四; day5 = 星期五; day6 = 星期六; var now = new Date(); var cl = ; if (now.getDay() = 0) cl = ;
17、if (now.getDay() = 6) cl = ; return (cl + daynow.getDay() + ); function refreshCalendarClock() document.all.calendarClock1.innerHTML = Year_Month(); document.all.calendarClock2.innerHTML = Date_of_Today(); document.all.calendarClock3.innerHTML = CurentTime(); document.all.calendarClock4.innerHTML =
18、Day_of_Today(); document.write(); document.write(); document.write(); document.write( ); document.write( ); document.write( ); document.write( ); document.write( ); document.write(); document.write(); setInterval(refreshCalendarClock(), 1000); 2. （ 第4题代码） Untitled Page 图片1 图片2 图片3 3
19、. （ 第5题代码） using System;using System.Data;using System.Configuration;using System.Web;using System.Web.Security;using System.Web.UI;using System.Web.UI.WebControls;using System.Web.UI.WebControls.WebParts;using System.Web.UI.HtmlControls;public partial class _Default : System.Web.UI.Page protected v
20、oid Page_Load(object sender, EventArgs e) protected void Calendar1_SelectionChanged(object sender, EventArgs e) TextBox1.Text = Calendar1.VisibleDate.ToString(); protected void Button1_Click(object sender, EventArgs e) 四、实验小结通过本次实验掌握了文件上传方法，常用的HTML服务器控件、A 服务器控件和验证控件。实验五 ADO.NET应用基础一、实验目的1.掌握ADO.NET的
21、基本技术。2.掌握ADO.NET的开发方法。二、实验内容 在集成环境中创建Web应用程序，综合数据存储技术和.NET技术，实现一个小型员工管理系统，并在Web服务器上进行配置和部署，要求考虑全面，能够充分考虑系统的特点。数据库软件可以使用ACCESS或SQL Server等。数据库设计参考部门表：部门编号、部门名称、成立时间科室表：科室编号、科室名称、部门编号员工表：编号、员工姓名、性别、电话、地址、科室编号查询页面实现运行效果：后台管理页面login.aspx员工信息管理页面三、实验步骤1.查询页面代码Imports System.DataImports System.Data.OdbcPu
22、blic Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim cn As New Odbc.OdbcConnection(connectionString:=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:用户Administrator桌面shiyan5db1.mdb; User Id=admin; Password=123) Dim da1 As New Odbc
23、DataAdapter(select department_id,department_name from department, cn) Dim da2 As New OdbcDataAdapter(select section_id,section_name from section, cn) Dim tb1Department, tb1Section As New DataTable cn.Open() da1.Fill(tb1Department) da2.Fill(tb1Section) cn.Close() ComboBox1.DataSource = tb1Department
24、ComboBox1.DisplayMember = department_name ComboBox1.ValueMember = department_id ComboBox2.DataSource = tb1Section ComboBox2.DisplayMember = section_name ComboBox2.ValueMember = section_id End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Cl
25、ick Dim cn As New Odbc.OdbcConnection(connectionString:=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:用户Administrator桌面shiyan5db1.mdb; User Id=admin; Password=123) Dim tbl As New DataTable Dim da As New OdbcDataAdapter(select employee_name,sex,tel,address from employee where section_id in (select s
26、ection_id from section where section_name= & ComboBox2.SelectedValue & and department_id in ( select department_id from department where department_name= & ComboBox1.SelectedValue & ) ), cn) cn.Open() da.Fill(tbl) cn.Close() DataGridView1.DataSource = tbl End SubEnd Class2. 后台管理页面login.aspxImports S
27、ystem.DataImports System.Data.SqlClientPublic Class Login/登录代码private Sub OK_Click (ByVal sender as System.Object,ByVal e as System.EventArgs) handles OK.ClickDim cn as New SqlConnection (MY.Settings.GLConnectionStr)Dim cmd as New SqlCommand (usp_userLogin,cn)cmd.Parameters.Add(id,SqlDbType.Varchar,20)cmd.Parameters.Add(user_pwd,SqlDbType.Varchar,20)cmd.Parameters.Add(reason,SqlDbType.Varchar,20)cmd.Parameters(0).Value=TextBox1.Textcmd.Parameters(1).Value= TextBox2.Textcmd.Pa