收藏
下载资源下载资源 加入VIP,免费下载

ch7 NET程序设计.docx

上传人：b****2 文档编号：1660662 上传时间：2023-05-01 格式：DOCX 页数：26 大小：21.11KB
下载 相关 举报
ch7 NET程序设计.docx_第1页
第1页 / 共26页
ch7 NET程序设计.docx_第2页
第2页 / 共26页
ch7 NET程序设计.docx_第3页
第3页 / 共26页
ch7 NET程序设计.docx_第4页
第4页 / 共26页
ch7 NET程序设计.docx_第5页
第5页 / 共26页
ch7 NET程序设计.docx_第6页
第6页 / 共26页
ch7 NET程序设计.docx_第7页
第7页 / 共26页
ch7 NET程序设计.docx_第8页
第8页 / 共26页
ch7 NET程序设计.docx_第9页
第9页 / 共26页
ch7 NET程序设计.docx_第10页
第10页 / 共26页
ch7 NET程序设计.docx_第11页
第11页 / 共26页
ch7 NET程序设计.docx_第12页
第12页 / 共26页
ch7 NET程序设计.docx_第13页
第13页 / 共26页
ch7 NET程序设计.docx_第14页
第14页 / 共26页
ch7 NET程序设计.docx_第15页
第15页 / 共26页
ch7 NET程序设计.docx_第16页
第16页 / 共26页
ch7 NET程序设计.docx_第17页
第17页 / 共26页
ch7 NET程序设计.docx_第18页
第18页 / 共26页
ch7 NET程序设计.docx_第19页
第19页 / 共26页
ch7 NET程序设计.docx_第20页
第20页 / 共26页
亲，该文档总共26页，到这儿已超出免费预览范围，如果喜欢就下载吧！
下载资源
资源描述

ch7 NET程序设计.docx

《ch7 NET程序设计.docx》由会员分享，可在线阅读，更多相关《ch7 NET程序设计.docx（26页珍藏版）》请在冰点文库上搜索。

ch7 NET程序设计.docx

ch7NET程序设计

【例7-1】

源程序代码（7-1.aspx）如下：

<%@PageLanguage="VB"AutoEventWireup="true"%>

'登录按钮的单击事件过程

ProtectedSubButton1_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton1.Click

Ifusename.Text="administrator"AndRadioteacher.Checked="True"_

Andusepassword.Text<>""Then

'输出身份是管理员的欢迎词

Response.Write（"欢迎你管理员同志！

"）

ElseIfRadioteacher.Checked="True"Andusepassword.Text<>""Then

Response.Write（"欢迎你"&usename.Text&"老师！

"）'身份是老师

ElseIfusepassword.Text<>""Then

Response.Write（"欢迎你"&usename.Text&"同学！

"）'身份是学生

EndIf

EndSub

ProtectedSubButton2_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton2.Click

usename.Text=""

usepassword.Text=""

usename.Focus（）

EndSub

无标题页

用户登录

<%--下面构造一个表单--%>

--RadioButton单选钮-->

RadioButtonID="Radiostudent"GroupName="sel"runat="server"checked="true"Text="学生"/>

RadioButtonID="Radioteacher"GroupName="sel"runat="server"

Text="教师"/>

--TextBox单行文本输入框-->

用户名：

TextBoxID="usename"runat="server">

TextBox>

--TextBox密码文本输入框-->

密码：

TextBoxID="usepassword"runat="server"TextMode="Password">

TextBox>

ButtonID="Button1"runat="server"Text="登录"/>

ButtonID="Button2"runat="server"Text="取消"/>

--输出当前日期和时间-->

登录时间是：

<%=Now%>

说明：

以上程序可以用文本编辑器（Notepad）或其它编辑器输入,并保存在Web服务器的虚拟目录下。

在浏览器的地址栏中输入http:

//localhost/7-1.aspx，就可以看到如图7-1所示的运行结果。

例7-1若采用代码隐藏页模式，代码将分别存放在两个文件中。

其中login.aspx文件的内容如下：

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

无标题页

用户登录

<%--下面构造一个表单--%>

--RadioButton单选钮-->

RadioButtonID="Radiostudent"GroupName="sel"

runat="server"checked="true"Text="学生"/>

RadioButtonID="Radioteacher"GroupName="sel"runat="server"

Text="教师"/>

--TextBox单行文本输入框-->

用户名：

TextBoxID="usename"runat="server">

TextBox>

--TextBox密码文本输入框-->

密码：

TextBoxID="usepassword"runat="server"

TextMode="Password">

TextBox>

ButtonID="Button1"runat="server"Text="登录"/>

ButtonID="Button2"runat="server"Text="取消"/>

--输出当前日期和时间-->

登录时间是：

<%=Now%>

login.aspx.vb文件的内容如下：

PartialClasslogin

InheritsSystem.Web.UI.Page

ProtectedSubButton1_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton1.Click

Ifusename.Text="administrator"AndRadioteacher.Checked="True"_

Andusepassword.Text<>""Then

'输出身份是管理员的欢迎词

Response.Write（"欢迎你管理员同志！

"）

ElseIfRadioteacher.Checked="True"Andusepassword.Text<>""Then

Response.Write（"欢迎你"&usename.Text&"老师！

"）'身份是老师

ElseIfusepassword.Text<>""Then

Response.Write（"欢迎你"&usename.Text&"同学！

"）'身份是学生

EndIf

EndSub

ProtectedSubButton2_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton2.Click

usename.Text=""

usepassword.Text=""

usename.Focus（）

EndSub

EndClass

【例7-12】本例是一个模拟选课的案例。

程序代码（7-12.aspx）如下：

<%@PageLanguage="VB"AutoEventWireup="true"%>

'处理单击提交按钮事件

ProtectedSubButton1_Click（ByValsenderAsObject,ByValeAsEventArgs）HandlesButton1.Click

Dims,tempAsString,iAsInteger

s="欢迎你！

"&Textnum.Text&"号同学！

"&""

s=s&"你的密码是：

"&Textpassword.Text&""

s=s&"你所在的专业是：

"&Radiodepart.SelectedItem.Text&""

s=s&"你所在的学院是：

"&DropDowncollege.SelectedItem.Text&""

s=s&"你所在的系是：

"&Listdepart.SelectedItem.Text&""

temp=""

'向temp加入被选择的选课项目

Fori=0ToCheckBoxcourse.Items.Count-1

IfCheckBoxcourse.Items（i）.SelectedThen

temp=temp&CheckBoxcourse.Items（i）.Text&""

EndIf

Nexti

Iftemp<>""Thens=s&"你的选课是：

"&temp&""

IfTextmem.Text<>""Thens=s&"备注：

"&Textmem.Text&""

labelmessage.Text=s&"信息提交时间：

"&Now（）&""

EndSub

'处理双下拉框联动

Subselchange（ByValsenderAsObject,ByValeAsEventArgs）

DimsnumAsString

snum=DropDowncollege.SelectedValue

Listdepart.Items.Clear（）

SelectCasesnum

Case"0"

Listdepart.Items.Add（"计算机系"）

Listdepart.Items.Add（"通讯系"）

Listdepart.Items.Add（"电子系"）

Case"1"

Listdepart.Items.Add（"测绘测量系"）

Listdepart.Items.Add（"土木工程系"）

Listdepart.Items.Add（"地下工程系"）

Case"2"

Listdepart.Items.Add（"建筑设计系"）

Listdepart.Items.Add（"建筑规划系"）

EndSelect

Listdepart.Items（0）.Selected=True

EndSub

ProtectedSubButton2_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton2.Click

Textnum.Text=""

Textpassword.Text=""

labelmessage.Text=""

EndSub

LabelID="Label1"runat="server"Text="选课信息表">

Label>


学号

TextBoxID="Textnum"runat="server">

TextBox>

密码

TextBoxID="Textpassword"runat="server"

TextMode="Password">

TextBox>


请选择你的专业：

RadioButtonListID="Radiodepart"runat="server"

RepeatDirection="Horizontal">

ListItemSelected="True">文科

ListItem>

ListItem>理科

ListItem>

RadioButtonList>

请选择你所在的学院：

DropDownListID="DropDowncollege"runat="server"

autopostback="true"OnSelectedIndexChanged="selchange">

ListItemValue="0"selected="true">信息学院

ListItem>

ListItemValue="1">土木学院

ListItem>

ListItemValue="2">建筑学院

ListItem>

DropDownList>

请选择你所在的系：

ListBoxID="Listdepart"runat="server"Rows="3">

ListBox>


可选的课程：

CheckBoxListID="CheckBoxcourse"runat="server"

RepeatDirection="Horizontal">

ListItem>文学

ListItem>

ListItem>绘画

ListItem>

ListItem>音乐

ListItem>

ListItem>政治

ListItem>

CheckBoxList>

备注：

TextBoxID="Textmem"runat="server"TextMode="MultiLine"/>


ButtonID="Button1"runat="server"Text="提交"/>

ButtonID="Button2"runat="server"Text="取消"/>


--Label显示用户信息的标签-->

LabelID="labelmessage"runat="server">

Label>

【例7-13】Table控件运用示例。

格。

程序代码如下：

DimrowsnumAsInteger

DimcellsnumAsInteger

DimiAsInteger

DimjAsInteger

DimkAsInteger

DimrAsObject

DimcAsObject

ProtectedSubButton1_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton1.Click

IfButton1.Text="显示表格"Then

Table1.Visible=True

Button1.Text="隐藏表格"

createtable（）

Else

Table1.Visible=False

Button1.Text="显示表格"

EndIf

EndSub

Subcreatetable（）

rowsnum=4

cellsnum=4

k=0

Fori=0Torowsnum-1'创建一个4行4列的表格，内容为1-16的数字

r=NewTableRow（）'建立一个新行

Forj=0Tocellsnum-1

c=NewTableCell（）'建立一个单元格

k=k+1

c.Text=k'向新单元格中填数据

r.Cells.Add（c）'将单元格添加到行中

Next

Table1.Rows.Add（r）'将行添加到表中

Next

EndSub

ProtectedSubButton2_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton2.Click

IfButton1.Text="隐藏表格"Then

createtable（）

'修改表格使其成为3行3列

Table1.Rows.RemoveAt（rowsnum-1）'移去最后一行

Fori=0ToTable1.Rows.Count-1

c=Table1.Rows（i）.Cells（cellsnum-1）'选取每一行的最后一列

Table1.Rows（i）.Cells.Remove（c）'移去每一行的最后一列

Nexti

EndIf

EndSub

ProtectedSubButton3_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton3.Click

IfButton1.Text="隐藏表格"Then

Table1.Rows.Clear（）'清除表中的所有行

EndIf

EndSub

TableID="Table1"runat="server"CellPadding="1"CellSpacing="1"

GridLines="Both">

Table>

ButtonID="Button1"runat="server"Text="显示表格"/>

ButtonID="Button2"runat="server"Text="修改表格"/>

ButtonID="Button3"runat="server"Text="清除表格"/>

【例7-14】程序（7-14.aspx）

ProtectedSubButton1_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton1.Click

DimaAsObject

'搜索标识为Button1的服务器控件

a=Page.FindControl（"Button1"）

Response.Write（a）

Response.Write（"
"）

'将虚拟路径转换为物理路径

Response.Write（Page.MapPath（"VisualStudio2008"））

EndSub

ButtonID="Button1"runat="server"Text="提交"/>

【例7-16】

程序代码（7-16.aspx）如下：

ProtectedSubButton1_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton1.Click

IfTextBox1.Text<>""Then

Response.Redirect（"&TextBox1.Text）

EndIf

EndSub

请输入

TextBoxID="TextBox1"runat="server">

TextBox>

ButtonID="Button1"runat="server"Text="搜索"/>

【例7-19】

程序（7-19-1.aspx）的代码如下：

无标题页

用户名

密码

程序7-19-2.aspx的代码如下：

ProtectedSubPage_Load（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesMe.Load

Response.Write（"你的用户名：

"&Request.Form（"usename"）&"
"）

Response.Write（"你的密码：

"&Request.Form（"usepass"）&"
"）

EndSub

【例7-23】

Global.asax文件中的内容：

SubApplication_Start（ByValsenderAsObject,ByValeAsEventArgs）

Dimcount（7）AsInteger,iAsInte

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置：首页 > 人文社科 > 法律资料

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2