东北大学,可视化程序设计(VB),课件11第11章

“位置”文本框中显
示URL形式的虚拟目录，
默认值对应 C:\Inetpub\wwwroot。
新建 Web服务
系统自动生成 Service1.asmx.vb文件
单击“此处”超 链接切换到代码视图。
注释行实现一个 简单的Web服务，返 回HelloWorld字符串 Web服 务框架 程序
Dim WebSer As New localhost.Service1() ‟新建Service1对象
’调用Service1中的Sentence_Edit过程，编辑TextBox1中的文本
’结果显示在TextBox2中 TextBox2.Text = WebSer.Sentence_Edit(TextBox1.Text)
控件和验证控件的功能，熟悉Web窗体的设计
步骤，学会创建一个Web服务并能正确使用。 综合本章知识，设计出一个具有个性化 的电子邮件发送系统。
BACK
教 学 要 求
1、掌握与Web开发有关的概念，如服
务器、客户机、Web浏览器、Web页、 Web 应用程序、Http超文本传输协议。正确理解 Web应用程序的运行过程。 2、了解网络应用程序和Web窗体的组 成，以及用户界面和编程逻辑的作用。 3、掌握HTML服务器控件、Web服务
MENU
11.2 基于Web窗体创建网络应用程序
11.2.1 Web窗体
Web窗体包括界面和编程逻辑。
界面是含标记语言（HTML或XML）和服务器控
件的文件。
编程逻辑对用户与Web窗体的交互行为作出响应。
11.2.2 服务器控件
1. HTML服务器控件
11.2.2 服务器控件
'新建 MailMessage 对象 '新建 MailMessage 对象
Dim mailObj As New MailMessage() Dim mailObj As New MailMessage()
'将文本框中用户输入的内容赋值给mailObj的相应属性 mailObj.From = TxtSender.Text
<WebMethod()> Public Function HelloWorld() As String HelloWorld =“HelloWorld” End Function
添加文本编辑代码
<WebMethod()> <WebMethod()> Public Function Sentence_Edit(ByVal str As String) As String „该过程实现文本编辑，形参str为编辑串，返回结果串 Dim lenth As Integer, i As Integer : Dim str_b As String str = Trim(str) : lenth = Len(str)
1. HTML服务器控件 2. Web服务器控件
11.2.2 服务器控件
1. HTML服务器控件 2. Web服务器控件 3. 验证控件
11.2.2 服务器控件
1. HTML服务器控件 2. Web服务器控件 3. 验证控件 4. 用户控件
11.2.3 Web窗体设计举例
ControlToValidate属性 设置为TxtName
ErrorMessage属性 为“姓名不能为空”
对象名及所 属控件类型 为“年龄”文本框添加 RangeValidator控件进行范围 命名为ValAge 校验
ControlToValidate 属性设置为TxtAge ErrorMessage属 性为“年龄在1～ 120之间 ” MinimumValue为1， MaximumValue为120
ValidationExpression属性 选择“Internet电子邮件地 址” 格式
通过Internet Explorer浏览器
显示结果，地址
为新建Web窗体 所在的虚拟目录。
输入年龄值 和Email地址， 并进行验证。
不合理的年龄 值和Emai地址， 将显示错误提示信 息。
MENU
11.3 Web服务概述
11.3.1 Web服务的用途
Web服务是指服务器通过Web向外界提 供各种软件服务，该软件的表现形式是实
现特定功能的组件。
11.3.2 Web服务的创建与使用
Web服务相当于网上的动态链接库，创建Web服务
就是创建函数和方法。通过调用实现其功能。
例 编辑英语文章，句子开头为大写字母（句子以 符号“？”、“.”和“!”作为结束符），其他是小写字 母。
户 命令
Web浏览器 请求 Web应用程序
11.1.2 Web应用程序的发展
1. HTML语言阶段 2. Script语言阶段 3. ASP与语言阶段
11.1.3 使用设计Web应用程序
利用开发网络应用程序可分为两类：
（1）基于Web窗体创建应用程序
（2）使用Web Services技术创建组件
Type属性为Integer
为“Email”文本框添 命名为 加 ValEmail RegularExpressionV alidator控件进行格式 校验
对象及所属控件类型
ControlToValidate属性 设置为TxtEmail ErrorMessage属性为 “请输入正确的 Email地址 ”
Case 33, 46, 63 „当前字符为“！”、“.”或”?”，则将下一个字符转换为大写
Return str_b „返回编辑后的字符串
End Function
Web服务地址 Web服务的名称 Web服务中包含的过程， 单击之可调用该过程。
系统根据Web服务的定义，自动创建一个 文本框，用于接收参数以传递给Web服务。
例 创建用户注册程序
新建 “位置”文本框中显 示URL形式的虚拟目录， Web应用程序
默认值对应
C:\Inetpub\wwwroot。
系统生成Web窗体WebForm1.aspx
在Web窗体中 添加控件。
对象名及所 属控件类型 为“姓名”文本框添加 命名为ValName RequiredFieldValidator 控件
'将文本框中用户输入的内容赋值给mailObj的相应属性
'定义邮件的发送地址
mailObj.From = TxtSender.Text '定义邮件的发送地址 mailObj.To = TxtRecipient.Text '定义邮件的接收地址 mailObj.To = TxtRecipient.Text '定义邮件的接收地址 mailObj.Subject = TxtSubject.Text '定义邮件的主题
End Sub
编辑前
编辑后
MENU
11.4 自己设计电子邮件发送系统
System.Web.Mail类库提供若干个构造和发送 邮件消息的类。 邮件消息是通过内置在 Microsoft Windows 中 的 SMTP 邮件服务实现邮件传送的，或者是由任意 的 SMTP 服务器来传送的。 类 MailAttachment MailMessage SmtpMail 说明
器控件和验证控件的功能与作用；了解Web
窗体的设计步骤。
教 学 要 求
4、掌握Web服务的概念， Web服务的创
建与使用方法。
5、综合本章知识，设计一个具有个性化 的电子邮件发送系统。
BACK
重 点 难 点
重点：
1、 掌握与Web开发有关的概念。 2、 掌握HTML服务器控件、Web服务 器控件和验证控件的功能与作用。 3、 Web应用程序的设计步骤。
11.1.1 Web的概念
1. 因特网 2. Web应用 3. Web应用程序 Web应用程序是服务器端的可执行程序或动态链接 库。 当Web应用程序从Web服务器检索到一个HTTP请 求消息时，对其进行分析，生成Web页面传递给Web 服务器，再由Web服务器传递给客户端。
用
结果 客户端 应答 服务器端
输入“i am a STUDENT.who are you? welCOME TO HERE!” 单击
以XML文档格式 显示结果
11.3.2 Web服务的创建与使用
编写一个Windows应用程序，调用Web服务中的Sentence_Edit过程。
单击“项目”
菜单下的
“添加Web 引用” 子菜 单
Visual 程序设计
主讲人：蒋忠中
东北大学工商管理学院
第11章 网络应用程序开发
教 教 学 学 目 内 的 容
教 重
学 点
要 难
求 点
教 学 目 的
通过本章的学习，理解与Web开发有关的 概念，Web应用程序的运行过程，了解网络应 用程序的组成，HTML服务器控件、Web服务器
mailObj.Subject = TxtSubject.Text '定义邮件的主题 mailObj.Body = txtText.Text '定义邮件的主体内容
'发送邮件 mailObj.Body = txtText.Text
'定义邮件的主体内容
'发送邮件 SmtpMail.Send(mailObj) '调用SmtpMail类的Send方法发送邮件 SmtpMail.smtpserver = "" '设置SMTP邮件服务器的地址 End Sub SmtpMail.Send(mailObj) '调用SmtpMail类的Send方法发送邮件
4、 掌握Web服务的概念， Web服务
的创建与使用方法。
重 点 难 点
难点： 1、正确理解Web应用程序的运行过程。