《Web应用程序设计》实训指导书.docx

Response.Write（""）

Response.Write（""）

Response.Write（" "）

Fori=1To9

Response.Write（""&i&""）

Next

Response.Write（""）

Fori=1To9

Response.Write（""）

Response.Write（""&i&""）

Forj=1To9

Ifj<=iThen

Response.Write（""&i*j&""）

Else

Response.Write（" "）

EndIf

Next

Response.Write（""）

Next

Response.Write（""）

EndSub

效果样例

实训四初识NET控件：

文本框、按钮、文本标签

实训目的

1.要求学生熟练掌握静态设计TextBox、Lable、Button控件应用。

2.要求学生熟练掌握网页首次加载与环回的执行过程，熟练掌握IsPostBack的使用。

3.正确区分与掌握Button对象、行为事件（单击）、方法的关系。

4.熟练掌握对TextBox、Lable内容的读取与赋值，区别对两者分段换行的处理方法。

实训任务与要求

1.利用A创建应用项目。

2.利用A创建WebForm1.aspx网页文件。

3.初识NET控件：

文本框、按钮、文本标签。

4.掌握按钮回传事件与ISPOSTBACK

5.简单客户留言板。

效果图。

实训设备

Windowsxp/2003/2008server+DreamweaverCS3/

实训内容

完全利用A的代码后置文件WebForm1.aspx.vb的Page_Load与Button1_Click过程编写程序实现简单客户留言板。

核心代码示例：

ProtectedSubPage_Load（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesMe.Load

'net控件一：

文本框、按钮、文本标签

'首次加载页面运行初始化TextBox1

IfNotIsPostBackThen

TextBox1.Text="黄飞鸿"

EndIf

EndSub

ProtectedSubButton1_Click（ByValsenderAsObject,ByValeAsEventArgs）HandlesButton1.Click

DimstrAsString

str="先生，你好！

"

'比较两种控件中换行的方法

'标签控件中，两个文本框之间换行用
，多行文本中内容自身的换行用

格式化
Label1.Text="
"&TextBox1.Text&str&"
"&TextBox3.Text&"
"
'以多行文本框显示另一文本框和多行文本框内容时，文本框之间用函数chr（13）换行，其余不变
TextBox4.Text=TextBox1.Text&str&Chr（13）&TextBox3.Text
EndSub
效果样例
实训五动态增删NET控件
实训目的
1.要求学生熟练掌握ListBox、CheckBox、CheckBoxList、RadioButton、RadioButtonList控件应用。
2.要求学生熟练掌握动态添加常用Web控件的方法。
3.要求学生熟练掌握动态移去（删除）常用Web控件的方法。
4.正确区分增删控件与增删控件项的方法。
5.常用控件默认选项的设置方法。
6.创建CheckBoxList图形选取形式与读取选择项状态值的方法
实训任务与要求
1、ListBox、CheckBox、CheckBoxList、RadioButton、RadioButtonList控件对比与操作。
实训设备
Windowsxp/2003/2008server+DreamweaverCS3/
实训内容
完全利用A的代码后置文件WebForm1.aspx.vb的Page_Load与Button1_Click过程编写程序实现动态增删NET控件。
核心代码示例：
ProtectedSubButton1_Click（ByValsenderAsObject,ByValeAsEventArgs）HandlesButton1.Click
IfTextBox1.Text=""Then
Label1.Text="你没有输入内容。
"
Else
Label1.Text="
"&TextBox1.Text&"
"
EndIf
EndSub
ProtectedSubButton2_Click（ByValsenderAsObject,ByValeAsEventArgs）HandlesButton2.Click
TextBox1.Text=""
ListBox1.ClearSelection（）
ListBox2.ClearSelection（）
CheckBox1.Checked=False
CheckBox2.Checked=False
CheckBox3.Checked=False
CheckBox4.Checked=False
CheckBoxList1.ClearSelection（）
CheckBoxList2.ClearSelection（）
RadioButton1.Checked=False
RadioButton2.Checked=False
RadioButton3.Checked=False
RadioButton4.Checked=False
RadioButtonList1.ClearSelection（）
'重新设定默认选项
CheckBoxList1.Items（3）.Selected=True
RadioButtonList1.Items
（2）.Selected=True
EndSub
ProtectedSubButton3_Click（ByValsenderAsObject,ByValeAsEventArgs）HandlesButton3.Click
DimTextBox2=NewTextBox（）
TextBox2.ID="TextBox2"
TextBox2.Width=NewUnit（100）
TextBox2.TextMode=TextBoxMode.SingleLine
TextBox2.Style（"Left"）="20px"
Panel1.Controls.Add（TextBox2）
'添加一个名为"九江"的项，且状态值为"九江"
ListBox1.Items.Add（"九江"）
'添加一个名为"九江"的项，且状态值为"9"
ListBox2.Items.Add（NewListItem（"九江","9"））
'插入新增项并设定索引为1
CheckBoxList1.Items.Insert（3,"九江"）
'新增项且设定为选中状态
CheckBoxList1.Items.Add（"江西"）
CheckBoxList1.Items（CheckBoxList1.Items.Count-1）.Selected=True
EndSub
ProtectedSubButton4_Click（ByValsenderAsObject,ByValeAsEventArgs）HandlesButton4.Click
'移去选定的选项
ListBox2.Items.Remove（ListBox2.SelectedItem）
'移去指定索引的项
CheckBoxList1.Items.RemoveAt
（1）
ListBox2.Items.RemoveAt
（2）
EndSub
效果样例
实训六NET静态控件数据绑定
实训目的
1.要求学生熟练掌握VB数组的应用方法。
2.要求学生熟练掌握DropDownList控件
3.要求学生熟练掌握将数组绑定到Web控件的方法。
4.要求学生熟练掌握Web控件状态值发生变化时调用方法。
5.初识验证控件。
实训任务与要求
1、定义数组及重置数组，将数组值绑定到DropDownList控件。
实训设备
Windowsxp/2003/2008server+DreamweaverCS3/
实训内容
完全利用A的代码后置文件WebForm1.aspx.vb的Page_Load与Button1_Click过程编写程序实现将数组绑定到DropDownList控件的方法。
验证控件的简单应用
核心代码示例：
ProtectedSubPage_Load（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesMe.Load
'数据绑定
IfNotIsPostBackThen
DimmaxyAsInteger=Year（Now（））-25
DimiAsInteger
Dimy（9）
y（0）="请选择年份"
Fori=1To9
y（i）=maxy
maxy+=1
Next
DropDownList_y.DataSource=y
DropDownList_y.DataBind（）
EndIf
Label1.Text=""
EndSub
ProtectedSubButton1_Click（ByValsenderAsObject,ByValeAsEventArgs）HandlesButton1.Click
Label1.Text="已回传服务器"
EndSub
ProtectedSubDropDownList_y_SelectedIndexChanged（ByValsenderAsObject,ByValeAsEventArgs）HandlesDropDownList_y.SelectedIndexChanged
DropDownList_m.Enabled=True
EndSub
ProtectedSubDropDownList_m_SelectedIndexChanged（ByValsenderAsObject,ByValeAsEventArgs）HandlesDropDownList_m.SelectedIndexChanged
Dimd（30）AsInteger
DimiAsInteger
Fori=0To30
d（i）=i+1
Next
Dimy,mAsInteger
y=CInt（DropDownList_y.SelectedItem.Text）
m=CInt（DropDownList_m.SelectedItem.Text）
SelectCasem
Case4,6,9,11
ReDimPreserved（29）
Case2
IfyMod4=0AndyMod100<>0OryMod400=0Then
ReDimPreserved（28）
Else
ReDimPreserved（27）
EndIf
EndSelect
DropDownList_d.DataSource=d
DropDownList_d.DataBind（）
DropDownList_d.Enabled=True
EndSub
效果样例
实训七初识NET数据库访问技术
实训目的
1、要求学生熟练掌握NET数据库写入技术。
2、要求学生熟练掌握自定义验证控件RegularExpressionValidator正则表达式的规则。
实训任务与要求
1、设计学生注册信息页面并建立学生信息数据库。
实训设备
Windowsxp/2003/2008server+DreamweaverCS3/
实训内容
利用SQLServer2000创建数据库
完全利用A的代码后置文件WebForm1.aspx.vb的Page_Load与Button1_Click过程编写程序实现将数据库数据绑定。
表达式验证控件RegularExpressionValidator的高级应用
核心代码示例：
RegularExpressionValidatorID="RegularExpressionValidator5"runat="server"
ControlToValidate="TextBox6"Display="Dynamic"
ErrorMessage="RegularExpressionValidator"
ValidationExpression="（（\（\d{3}\）|\d{3}-）|（\（\d{4}\）|\d{4}-）|（\d{4}）|（\d{3}））（\d{8}|\d{7}）">（号码错误）
RegularExpressionValidator>
ImportsSystem.Data.SqlClient
PartialPublicClassWebForm12
InheritsSystem.Web.UI.Page
ProtectedSubPage_Load（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesMe.Load
'第二阶段测试题验证控件及数据库访问
IfNotIsPostBackThen
DimmaxyAsInteger=Year（Now（））-25
DimiAsInteger
Dimy（9）
y（0）="请先选择年份"
Fori=1To9
y（i）=maxy
maxy+=1
Next
DropDownList1.DataSource=y
DropDownList1.DataBind（）
EndIf
EndSub
ProtectedSubDropDownList1_SelectedIndexChanged（ByValsenderAsObject,ByValeAsEventArgs）HandlesDropDownList1.SelectedIndexChanged
DropDownList2.Enabled=True
DropDownList2.ClearSelection（）
DropDownList2.Items（0）.Selected=True'每当重新选择年后重置月，但必须先清除原选择项
Dimi,day（30）AsInteger
Fori=0To30
day（i）=i+1
Next
DropDownList3.DataSource=day
DropDownList3.DataBind（）
DropDownList3.Enabled=True
EndSub
ProtectedSubDropDownList2_SelectedIndexChanged（ByValsenderAsObject,ByValeAsEventArgs）HandlesDropDownList2.SelectedIndexChanged
Dimi,day（30）AsInteger
Fori=0To30
day（i）=i+1
Next
DimyAsInteger=CInt（DropDownList1.SelectedItem.Text）
SelectCaseCInt（DropDownList2.SelectedItem.Text）
Case4,6,9,11
ReDimPreserveday（29）
Case2
IfyMod4=0AndyMod100<>0OryMod400=0Then
ReDimPreserveday（28）
Else
ReDimPreserveday（27）
EndIf
EndSelect
DropDownList3.DataSource=day
DropDownList3.DataBind（）
EndSub
ProtectedSubDropDownList6_SelectedIndexChanged（ByValsenderAsObject,ByValeAsEventArgs）HandlesDropDownList6.SelectedIndexChanged
DimdepAsInteger=DropDownList6.SelectedItem.Value
SelectCasedep
Case1
Dimspecialty（）AsString={"数控技术","汽车维修","空调维护","检测技术"}
DropDownList7.DataSource=specialty
DropDownList7.DataBind（）
Case2
Dimspecialty（）AsString={"自动化","应用电子"}
DropDownList7.DataSource=specialty
DropDownList7.DataBind（）
Case3
Dimspecialty（）AsString={"电子商务","注册会计","酒店管理","国际贸易"}
DropDownList7.DataSource=specialty
DropDownList7.DataBind（）
Case4
Dimspecialty（）AsString={"计算机应用","网络工程"}
DropDownList7.DataSource=specialty
DropDownList7.DataBind（）
Case5
Dimspecialty（）AsString={