实验程序参考答案

1、实验一：IIS设置及HTML基础实验目的和要求：掌握IIS的设置方法，能够使用IIS发布自己的网页或网站。2、熟悉HTML的基本语言格式，掌握常用的HTML标记。一、1、红色背景，蓝色字体红色背景，蓝色字体2、一个普通列表 中国城市 北京 上海 广州 美国城市 华盛顿 芝加哥 纽约 3、中国城市 北京 上海 广州 美国城市 华盛顿 芝加哥 纽约 4、文本标志的综合示例最大的标题使用h3的标题最大的标题黑体字文本 斜体字文本 下加一划线文本 打字机风格的文本引用方式的文本强调的文本加重的文本size取值“+1”、color取值“red”时的文本5、图像标志的综合示例6、表格标志的综合示例 意大利

2、 英格兰 西班牙 AC米兰 佛罗伦萨 曼联 纽卡斯尔 巴塞罗那 皇家社会 尤文图斯 桑普多利亚 利物浦 阿申纳 皇家马德里 拉齐奥 国际米兰 切尔西 米德尔斯堡 马德里竞技 7、如这是我的网站8、Sub Page_Load(Sender As Object,e As EventArgs) dim a as integer=0 while a20 a=a+1 if a mod 5=0 then response.write(蓝色文本！) else response.write(红色文本！) end if End WhileEnd Sub显示蓝色、红色文本 9、Sub Page_Load(Send

3、er As Object,e As EventArgs) dim a as integer=2 dim b as string= while a10 b=b+当前的字体大小为+convert.tostring(a)+号字 a=a+2 End While message.text=bEnd Sub显示不同大小的字体实验二：普通Web控件的使用一、实验目的和要求：1、掌握Web控件的使用方法，如文本框、单选框、复选框、下拉列表、文本区域、按钮等，了解各种控件的相关属性及设置方法。掌握HTML控件的使用方法，如文本框、单选框、复选框、下拉列表、文本区域、按钮等，了解各种控件的相关属性及设置方法。掌握

4、验证控件的使用方法，了解各种控件的相关属性及设置方法。二、1、Label控件和TextBox控件的使用E-mail：Sub Page_Load(Sender As Object,e As EventArgs)TextBox1.MaxLength=50End SubSub TextBox1_TextChanged(Sender As Object,e As EventArgs ) Label1.Text=TextBox1.TextTextBox1.Enabled=FalseEnd Sub2、TextBox控件的使用ID号：密码：留言：Sub Submit_Click(Sender As Obje

5、ct,e As EventArgs ) Dim Result As StringHr1.Visible=TrueResult=ID号： & txtName.Text & Result=Result & 密码： & txtPwd.Text & Result=Result & 留言： & Replace(txtMessage.Text,Chr(13),)Hr1.InnerHtml=ResultEnd Sub3、RadioButton控件和RadioButtonList控件的使用您的姓名：您最喜欢的书的类别：您最喜欢的付款方式： 网上支付 邮寄 电汇Sub Submit_Click(Sender A

6、s Object,e As EventArgs ) Dim Result As StringHr1.Visible=TrueResult=您的姓名： & txtName.Text & Result=Result & 您最喜欢书的类别：If radBook1.Checked Then Result=Result & radBook1.TextIf radBook2.Checked Then Result=Result & radBook2.TextIf radBook3.Checked Then Result=Result & radBook3.TextIf radBook4.Checked T

7、hen Result=Result & radBook4.TextLabel1.Text=ResultEnd Sub4、RadioButtonList控件进一步的使用您的姓名：您所从事的职业： 教师 工程师 医生自由职业者公务员其他Sub radWork_Changed(Sender As Object,e As EventArgs ) Dim Result As StringHr1.Visible=TrueResult=您的姓名： & txtName.Text & Label1.Text=ResultEnd Sub5、CheckBox控件和CheckBoxList控件的使用您的兴趣爱好： 足

8、球长跑健美其他流行音乐古典音乐摇滚音乐其他音乐Sub Page_Load(Sender As Object,e As EventArgs ) If Hobby1.Checked Then Sport.Enabled=TrueElse Sport.Enabled=FalseEnd IfIf Hobby2.Checked Then Music.Enabled=TrueElse Music.Enabled=FalseEnd IfEnd SubSub Submit_Click(Sender As Object,e As EventArgs ) Dim Result As StringDim I As

9、IntegerHr1.Visible=TrueIf Sport.SelectedIndex=0 Then Result=您喜欢的运动有： If Sport.Items(I).Selected Then Result=Result & & Sport.Items(i).Text & End If NextEnd IfResult=Result & If Music.SelectedIndex=0 Then Result=Result & 您喜欢的音乐有： If Music.Items(I).Selected Then Result=Result & & Music.Items(i).Text &

10、 End If NextEnd IfResult=Result & Label1.Text=Result End Sub6、ListBox控件和DropDownList控件的使用您的姓名：您最喜欢的书的类别：科学类文学类历史类教育类您最喜欢的付款方式：网上支付邮寄电汇Sub Submit_Click(Sender As Object,e As EventArgs ) Dim Result As StringHr1.Visible=TrueResult=您的姓名： & txtName.Text & Result=Result & 您最喜欢的付款方式： & ddlPay.SelectedItem.

11、TextLabel1.Text=ResultEnd Sub7、Button控件和LinkButton控件的使用Sub Button1_Click(Sender As Object, e As Eventargs)response.write(谢谢点击!)End SubSub LinkButton1_Click(Sender As Object, e As Eventargs)response.write(注意 LinkButton 控件的外观与 HyperLink 控件相同，但功能与 Button相同。如果要在单击控件时链接到另一个 Web 页，请使用 HyperLink 控件。)End Su

12、b8、HyperLink控件的使用单击访问网易9、RadioButtonList控件进一步的使用您的姓名：您所从事的职业：教师工程师医生自由职业者公务员其他您喜欢的运动：足球长跑健美其他您喜欢的音乐：流行音乐古典音乐摇滚音乐其他音乐您最喜欢的书的类别：科学类文学类历史类教育类您最喜欢的付款方式：网上支付邮寄电汇Sub Page_Load(Sender As Object,e As EventArgs ) If Not Page.IsPostBack Then Step1.Visible=True Step2.Visible=False Step3.Visible=FalseEnd IfEnd

13、SubSub Submit1_Click(Sender As Object,e As EventArgs ) Dim Result As StringResult=您的姓名： & txtName.Text & Result=Result & 您的职业： & radWork.SelectedItem.Text Label1.Text=Resultlabel1.Visible=FalseStep1.Visible=FalseStep2.Visible=TrueStep3.Visible=FalseEnd SubSub Submit2_Click(Sender As Object,e As Even

14、tArgs ) Dim Result As StringDim I As IntegerResult=Label1.TextIf Sport.SelectedIndex=0 Then Result= Result & 您喜欢的运动有： If Sport.Items(I).Selected Then Result=Result & Sport.Items(i).Text & 、 End If NextEnd IfIf Music.SelectedIndex=0 Then Result=Result & 您喜欢的音乐有： If Music.Items(I).Selected Then Result

15、=Result & Music.Items(i).Text & 、 End If NextEnd IfStep1.Visible=FalseStep2.Visible=FalseStep3.Visible=TrueLabel1.Text=ResultEnd SubSub Submit3_Click(Sender As Object,e As EventArgs ) Dim Result As StringDim I As IntegerResult=Label1.TextResult=Result & 您最喜欢书的类别： & lstBook.SelectedItem.TextResult=Re

16、sult & Label1.Text=ResultLabel1.Visible=TrueEnd Sub实验三：增强Web控件和数据验证Web控件的使用一、实验目的和要求：1、掌握Web控件AdRotactor的使用方法。掌握Web控件Calendar的使用方法。掌握验证控件的使用方法，了解各种控件的相关属性及设置方法。1、ads.xml netease.gif NetEase 1 Welcome to Netease ChineseWebsite sina.gif Sina 1 Welcome to Sina ChineseWebsite Yahoo.jpg Yahoo 1 Welcome t

17、o Yahoo ForeignWebsite hotmail.gif hotmail 1 Welcome to Hotmail ForeignWebsite sy3_1.aspxAdRotator控件的使用         Sub AdRotator1_Created(Sender As Object, e As AdCreatedEventArgs)If Len(e.AdProperties(Caption)0 ThenLabel1.Text=AdRotator1: & e.AdProperties(Caption)En

18、d IfEnd SubSub AdRotator2_Created(Sender As Object, e As AdCreatedEventArgs)If Len(e.AdProperties(Caption)0 ThenLabel2.Text=AdRotator2: & e.AdProperties(Caption)End IfEnd Sub2、Calendar控件的使用 Sub Date_Selected(Sender As Object, e As EventArgs) Label1.Tex End Sub3、RequiredFieldValidator控件的使用用户名：(*不可缺少)

19、密码：(*不可缺少)Sub Button1_Click(sender As Object, e As EventArgs) If Page.IsValid Then Dim Result As String Result=用户名： & txtName.Text & Result=Result & 密码： & txtPassword.Text & Label1.Text=Result End IfEnd Sub4、RequiredFieldValidator控件的使用高考考生登记表考生姓名：(*不可缺少)考生年龄(有效范围：18-80)Sub Button1_Click(sender As Ob

20、ject, e As EventArgs) If Page.IsValid Then Dim Result As String Result=姓名： & txtName.Text & Result=Result & 年龄： & txtAge.Text & Label1.Text=Result End IfEnd Sub5、6、CompareValidator控件的使用请输入注册入学的时间：(必须在2001年9月1日以后（含9月1日）)Sub Button1_Click(sender As Object, e As EventArgs) If Page.IsValid Then Dim Resu

21、lt As String Result=注册入学的时间： & txtEnter.Text & Label1.Text=Result End IfEnd Sub7、CompareValidator控件的使用请输入密码：请输入一遍密码：(所输入的密码不一致，请重新输入！)Sub Button1_Click(sender As Object, e As EventArgs) If Page.IsValid Then Dim Result As String Result=密码： & txtPsw.Text & Label1.Text=Result End IfEnd Sub8、ValidationS

22、ummary控件的使用学生情况登记表学生姓名：(*不可缺少)学生年龄：(有效范围：18-80)注册入学的时间：(必须在2001年9月1日以后（含9月1日）)Sub Button1_Click(sender As Object, e As EventArgs) If Page.IsValid Then Dim Result As String Result=学生姓名： & txtName.Text & Result=Result & 学生年龄： & txtAge.Text & Result=Result & 注册入学时间： & txtEnter.Text & Label1.Text=Result

23、 End IfEnd Sub9、RegularExpressionValidator控件的使用姓名（拼音）：(请输入姓名拼音，如：Ding Wenli)邮件编码：(请输入邮政编码，如：200092)Sub Button1_Click(sender As Object, e As EventArgs) If Page.IsValid Then Dim Result As String Result=姓名（拼音）： & txtName.Text & Result=Result & 邮政编码 & txtZip.Text & Label1.Text=Result End IfEnd Sub10、Reg

24、ularExpressionValidator控件的使用电子邮件：(请输入电子邮件如：lifeng)家庭地址：(请输入地址，如：松江区国小路2弄34号901室)Sub Button1_Click(sender As Object, e As EventArgs) If Page.IsValid Then Dim Result As String Result=电子邮件： & txtE_mail.Text & Result=Result & 家庭地址： & txtAddr.Text & Label1.Text=Result End IfEnd Sub实验四：利用ADO.NET访问数据库一、实验目

25、的和要求：1、了解ADO.NET的常用对象。2、利用Command对象和DataReader对象读取数据。3、利用DataCommand对象读取数据。4、数据表的添加和修改。1、读取字段信息2、读取字段信息3、使用OleDbDataAdapter对象和DataSet对象读取字段信息Sub Page_Load(Sender As Object, e As EventArgs)声明变量Dim Cmd As OleDbDataAdapterDim ds As DataSet=New DataSet()Dim ConnStr As StringDim Row As TableRowDim Cell A

26、s TableCellDim I As Integer建立数据库连接，并打开数据表ConnStr=Provider=Microsoft.jet.OLEDB.4.0; & Data Source= & _ Server.MapPath(stud.mdb)Cmd=New OleDbDataAdapter(select * from student,ConnStr)Cmd.Fill(ds,student)Cmd=New OleDbDataAdapter(select * from subject,ConnStr)Cmd.Fill(ds,subject) 设置表格的标题Row=New TableRow

27、()Cell=New TableCell()Cell.Text=字段名Row.Cells.Add(Cell)Cell=New TableCell()Cell.Text=是否接受NULL值Row.Cells.Add(Cell)Cell=New TableCell()Cell.Text=是否自动递增Row.Cells.Add(Cell)Cell=New TableCell()Cell.Text=字段类型Row.Cells.Add(Cell)Cell=New TableCell()Cell.Text=是否只读dd(Cell)Table1.Rows.Add(Row)Dim dt As DataTabl

28、eIf radTable1.Checked Then dt=ds.Tables(0)Else dt=ds.Tables(1)End if读取表名Label1.Text=数据表 & dt.TableName & 的字段信息：读取字段信息 Row=New TableRow() Cell=New TableCell() Cell.Text=dt.Columns(I).Caption Row.Cells.Add(Cell) Cell=New TableCell() Cell.Text=dt.Columns(I).allowdbNull Row.Cells.Add(Cell) Cell=New TableCell() Cell.Text=dt.Columns(I).AutoIncrement Row.Cells.Add(Cell) Cell=New TableCell() Cell.Text=dt.Columns(I).DataType.ToString Row.Cells.Add(Cell) Cell=New TableCell() Ce