ASP NET的开发平台和VB NET

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台

ElASP.NET开发平台的软、硬件要求

•硬件要求

(1)客户机

CPU：90MHz以上的Pentium处理器

内存：32MB以上

(2)服务器

CPU：133MHz以上的Pentium处理器

内存：128MB以上

硬盘：145MB以上可用空间

Web数据库技术教程1

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台（续）

ElASP.NET开发平台的软、硬件要求（续）

•软件要求

.NETFramework需要下列一种操作系统的支持：

带有ServicePack2.0的Windows2000Professional

带有ServicePack2.0的Windows2000Server

带有ServicePack2.0的Windows2000AdvancedServer

WindowsXPProfessional

WindowsServer2003

Web数据库技术教程2

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台(续)

IS).NETFrameworkSDK的安装

・安装.NETFramework

(1)运行dotnetfk.exe。安装程序自动解压，然后弹出安装对话框,

选择“是”

Web数据库技术教程3

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台（续）

E.NETFrameworkSDK的安装（续）

Web数据库技术教程4

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台（续）

EJ.NETFrameworkSDK的安装（续）

（2）弹出许可协议，选择“同意”，再单击“安装”，继续安

Web数据库技术教程5

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台（续）

EJ.NETFrameworkSDK的安装（续）

（3）开始安装，安装完成弹出安装完成对话框，单击“确定”，

结束安装

Web数据库技术教程6

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台（续）

E.NETFrameworkSDK的安装（续）

Web数据库技术教程7

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台（续）

E.NETFrameworkSDK的安装（续）

・安装.NETFrameworkSDK

（1）运行setup.exe。安装程序自动解压，然后弹出安装对话框。

单击“是”

Web数据库技术教程8

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台（续）

四.NETFrameworkSDK的安装（续）

Web数据库技术教程9

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台（续）

EJ.NETFrameworkSDK的安装（续）

（2）出现.NETFrameworkSDK欢迎对话框，单击“下一步”

Web数据库技术教程10

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台(续)

M.NETFrameworkSDK的安装（续）

(3)弹出许可协议，选择“同意”，再单击“下一步”，继续

安装

Web数据库技术教程11

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台（续）

EJ.NETFrameworkSDK的安装（续）

（4）出现安装选项对话框，建议全选。然后单击“下一步”

Web数据库技术教程12

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台（续）

M.NETFrameworkSDK的安装（续）

⑸出现选择目标文件夹对话框，可以使用系统缺省安装文件夹,

也可以另选文件夹。选定后，单击“下一步”

Web数据库技术教程13

13ASP.NET的开发平台和VB.NET

ASP.NET的开发平台（续）

E.NETFrameworkSDK的安装（续）

（6）.NETFrameworkSDK开始安装

Web数据库技术教程14

13ASP.NET的开发平台和VB.NET

VB.NET简介

ElVB.NET的数据类型

•Short（短整数）数据类型

以带符号的16位（2字节）整数形式存储

•Decimal（十进制数）数据类型

以带符号的128位（16字节）十进制数形式存储，并

以10为塞

Web数据库技术教程15

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

VB.NET的数据类型（续）

•Integer（整数）数据类型

以带符号的32位（4字节）整数形式存储

•Long（长整数）数据类型

以带符号的64位（8字节）整数形式存储

Web数据库技术教程16

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的数据类型（续）

•Single（单精度浮点数）数据类型

以带符号的32位（4字节）单精度浮点数形式存储

•Double（双精度浮点数）数据类型

以带符号的64位（8字节）双精度浮点数形式存储

Web数据库技术教程17

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的数据类型（续）

•Byte（字节）数据类型

以无符号的8位（1字节）数据形式存储

•Boolean（布尔）数据类型

以16位（2字节）数值形式存储，其取值只能是True

或False,表示“真"或"假「“是”或“非1

“对”或“错”。在将数值类型数据转换成布尔型数

据时，0将转换成False,其他均转换成True

Web数据库技术教程18

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的数据类型（续）

•Date（日期）数据类型

以64位（8字节）整数形式存储，表示从01年01月01

日到9999年12月31日的日期和从00:00:005011:59:59

的舟间

Date值必须用井号括起来，其格式为mm/dd/yyyy。

Date类型数值转换成String类型数值时，日期将以计

算机所能识别的短数据格式显示，时间将以计算机有

效的时间格式（12小时制或24小时制）显示

Web数据库技术教程19

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的数据类型（续）

•Char（字符）数据类型

以无符号的16位（2字节）整数形式存储。每个数字

代表一个Unicode字符。不能直接在字符型数据和数

值型数据之间转换。但可以用AscW和ChrW函数进行转

换。字符必须用引号"”括起来

Web数据库技术教程20

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的数据类型（续）

•String（字符串）数据类型

以无符号的16位（2字节）整数形式存储。字符串表

示一串Unicode字符组成的序列，必须用引号"”括

起来

Web数据库技术教程21

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的数据类型（续）

•Object（对象）数据类型

以32位（4字节）地址形式存储，此地址为对象引用。

可以声明为对象类型的数据分配任何数据类型，包括

数值型、布尔型、字符型、日期型、结构和枚举等

Web数据库技术教程22

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

区VB.NET的常量和变量

•常量

所谓常量是指在程序中不变的数据，如123、“xyz

常量可用Const来声明，如：

ConstPI=3.14159265

Web数据库技术教程23

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的常量和变量（续）

•变量

用来临时存放数据。变量具有名字和数据类型。变量

在使用前必须先定义，其定义语句为：

Dim变量名As数据类型

变量的值可以在定义后再赋值，也可以在定义时赋值。

变量的值的类型必须和它定义的数据类型一致

Web数据库技术教程24

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的常量和变量（续）

变量有简单变量和数组（Array）。简单变量用一个

变量名表示一个数据。数组可以用一个数组名表示-

系列变量，并用数字（索引）来识别他们

在VB.NET中所有数组都以“0”为起始长度

Dimx（10）AsInteger

表示有10个元素，编号从0到9

Web数据库技术教程25

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的运算符

•算术运算符

与一般算术运算相同：自左向右，先乘除后加减，有

括号时，括号内先算。增加了整除（\）和模（Mod）

运算

Web数据库技术教程26

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的运算符（续）

・赋值运算符

用来将运算结果赋给运算符左面的变量

Web数据库技术教程27

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

囚VB.NET的运算符（续）

运算符说明

A

=AA=B相当于A=AAB

+=A+=B相当于A=A+B

-=A-=B相当于A=A-B

*=A*=B相当于A=A*B

/=A/=B相当于A=A/B

\=A\=B相当于A=A\B

&=A&=B相当于A=A&B

Web数据库技术教程28

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的运算符（续）

•连接运算符

将两个表达式连接在一起

运算符说明

+如果两个操作数为String,则把他们连接成一个字符串，否

则作加号

&将操作数转换成String,然后作连接算符

Web数据库技术教程29

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

ElVB.NET的运算符（续）

•比较运算符

比较数值的大小或数据的长度

Web数据库技术教程30

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

囚VB.NET的运算符（续）

运算符说明

=若人=8,则其结果为True,否则其结果为False

>若A>B,则其结果为True,否则其结果为False

>=若A>=B,则其结果为True,否则其结果为False

<若A<B,则其结果为True,否则其结果为False

<=若A〈=B,则其结果为True,否则其结果为False

O若A〈>B,则其结果为True,否则其结果为False

Web数据库技术教程31

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

ElVB.NET的运算符（续）

•逻辑运算符

基本逻辑运算有3种：AND、OR和NOT

运算符说明

ANDAANDB只有当A、B均为True时，结果才为True

ORAORB当A、B中有一个为True时,结果就为True

NOTNOTA取A的反，即当A为True时，NOTA为False

Web数据库技术教程32

13ASP.NET的开发平台和VB.NET

VB.NET简介(续)

：：VB.NET的过程和函数

・过程

响应事件时执行的代码块,用Sub……EndSub定义,

其语法为：

[Private|Public|Friend]SubSubName([ArgumentsList])

Statements

EndSub

Web数据库技术教程33

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

（1）通用过程

由应用程序来调用，否则它就处于空闲状态，建立通用过程是

为了将不同事件过程所要执行的相同的语句提取出来，而不必

在每一个事件过程中重复同样的语句

Web数据库技术教程34

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

（2）事件过程

当对象的某个事件发生时，自动调用相应事件名的过程。一个

控件的事件过程名由控件名、下划线和事件名组成。如希

望

在单击按钮Btnl时，就可以调用一个过程，则该过程应命名为

Btnl_Click

Web数据库技术教程35

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

・函数

有返回值的子过程就是函数。函数用Function...

EndFunction定义。其语法为：

[Private|Public|Friend]FunctionFunctionName（Arguments

List）[AsDataType]

Statements

EndFunction

Web数据库技术教程36

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

（1）数值输出函数

①FormatNumber函数

用来规定数值数据小数点后面的位数。函数格式为:

FormatNumbe（数值表达式，小数点后面的位数）

Web数据库技术教程37

13ASP.NET的开发平台和VB.NET

VB.NET简介(续)

EIVB.NET的过程和函数(续)

[例13T]13-1.aspx

<ScriptLanguage二〃VB〃Runat二〃Server”〉

SubPageLoad()

DimAAsInteger=1000

Response.Write(，/1000/3="，&A/3&〃<Br〉〃)

Response.Write(“1000/3取小数点以后三位二”&

FormatNumber(A/3,3)&〃〈Br〉〃)

Response.Write(“1000/6取小数点以后两位=“

&FormatNumber(A/6,2)&〃〈Br〉〃)

EndSub</Script>

Web数据库技术教程38

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

区VB.NET的过程和函数（续）

5http://127.0.0.1/13-1.aspx-.…⑥叵||*|

文件鱼）编辑更）查看也）收藏®工具（X）

他•直）http:〃1270.0.1/13-1器▼转到仙正

1000/3=333.333333333333

1000/3取小数点以后三位二333.333

1000/6取小数点以后两位=166.67

国完毕■Internet

Web数据库技术教程39

13ASP.NET的开发平台和VB.NET

VB.NET简介(续)

EIVB.NET的过程和函数(续)

②Int函数和Fix函数

Int函数和Fix函数都用来移除数值数据的小数部分而返回其整

数值。函数格式也相同：

Int(Number)

Fix(Number)

区别在于如果Number参数为负数，贝肛nt函数返回小于或等于

Number的第一个负整数，而Fix函数返回大于或等于Number参数

的第一个负整数

Web数据库技术教程40

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

<]VB.NET的过程和函数（续）

DimMyNumberAsInteger

MyNumber=Int(99.8)'返回99

MyNumber=Fix(99.8)'返回99

MyNumber=Int(-99.8)'返回-100

MyNumber=Fix(-99.8)'返回-99

MyNumber=Int(-99.2)'返回-100

MyNumber=Fix(-99.2)'返回-99

Web数据库技术教程41

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

③Rnd函数和Randomize语句

Rnd函数

返回一个Single类型的随机数，该随机数小于1但大于

或等于0。函数格式为：

Rnd［（Number）］

Web数据库技术教程42

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

ElVB.NET的过程和函数（续）

Randomize语句

用来初始化随机数生成器。其格式为:

Randomize[Number]

Web数据库技术教程43

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

（2）字符串输出函数

①UCase函数和LCase函数

UCase函数可将一个英文字符串中的字符全部转换成

大写字符，而LCase函数可将一个英文字符串中的字

符全部转换成小写字符。函数格式为：

Ucase（“字符串”）

LCase（“字符串”）

Web数据库技术教程44

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

②Len函数

Len函数用来计算字符串的长度，包括标点和空格。

函数格式为：

Len（"字符串”）

③Trim函数

Trim函数用来删除字符串前后的空格，而字符串中间

的空格不会被删除。函数格式为：

Trim（“字符串”）

Web数据库技术教程45

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

④Left、Right和Mid函数

Left、Right和Mid函数都用来截取字符串的一部分。

Left函数用来截取字符串的左起若干个字符，Right函数用来截

取字符串的右起若干个字符，而Mid函数用来截取字符串的中间

若干个字符。函数格式分别为：

Left（"字符串〜■

Right（"字符串”，字符个数）

Mid（"字符串”，起始位置，字符个数）

Web数据库技术教程46

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

⑤Replace函数

Replace函数可以将字符串中的某个或几个连续的字

符替换成另一个字符或字符串，函数格式为：

Replace（"字符串”，“被替换的字符或子字符

串”，

“替换后的字符或子字符串”）

Web数据库技术教程47

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

⑥StrComp函数

StrComp函数用来比较两个字符串的大小。函数格式为：

StrComp（"第一个字符串”，“第二个字符串”，参数）

参数可以是0或1。0表示要区分字母的大小写；1表示不区分字

母的大小写。参数缺省表示0。

若第一个字符串大于第二个字符串，则返回1。

若第一个字符串等于第二个字符串，则返回0。

若第一个字符串小于第二个字符串，则返回-1。

Web数据库技术教程48

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

（3）日期和时间输出函数

①Now函数

用来取得当前的日期和时间。函数格式为:

NowO

Web数据库技术教程49

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

[例13-2]13-2.aspx

<HtmlXScriptLanguage=〃VB〃Runat="Serve/〉

SubPageLoad（）

Response.Write（“当前的日期与时间是：”&Now（）&〃<Br〉〃）

Response.Write（〃今天是：〃&Now.Year&〃年〃&_

Now.Month&〃月〃&Now.Day&〃日"&"〈Br>〃）

Response.Write（〃现在时间是：〃&Now.Hour&〃时〃&_

Now.Minute&〃分〃&Now.Second&〃秒〃&〃〈Br〉〃）

EndSub

</ScriptX/Html>

Web数据库技术教程50

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

，：VB.NET的过程和函数（续）

3http://127.0.0.1/13-2.aspx-...□0®

文件9编辑⑥查看。收藏⑥工具①》「

。后退，.凶图；'」,搜索'

地址中|jghttp：///13-2.as;Y;El转到隆接,

当前的日期与时间是:2004-7-158:55:21

今天是200弊7月15日

观在时间是8时55分21秒

国完毕.Internet

Web数据库技术教程51

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

②FormatDateTime函数

FormatDateTime函数用来设置日期的显示格式

函数格式为：

FormatDateTime（日期与时间,参数）

Web数据库技术教程52

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

区VB.NET的过程和函数（续）

参数值说明

0输出格式为：年-月-日时：分：秒

1只输出日期，格式为：****年**月**日

2只输出日期，格式为：年-月-日

3只输出时间，格式为：时：分：秒

4只输出时间，格式为：时：分

Web数据库技术教程53

13ASP.NET的开发平台和VB.NET

VB.NET简介(续)

EIVB.NET的过程和函数(续)

[例13-3]13-3.asp

<HtmlXScriptLanguage="VB〃Runat="Serve/〉

SubPageLoad()

Response.Write(〃使用参数0时的输出：〃&FormatDateTime

(Now,0)&”〈Br>〃)

Response.Write(〃使用参数1时的输出：〃&FormatDateTime

(Now,l)&〃<Br>〃)

Web数据库技术教程54

13ASP.NET的开发平台和VB.NET

VB.NET简介(续)

EIVB.NET的过程和函数(续)

Response.Write(〃使用参数2时的输出：〃&FormatDateTime

(Now,2)&〃<Br>〃)

Response.Write(〃使用参数3时的输出：〃&FormatDateTime

(Now,3)&〃<Br〉〃)

Response.Write(〃使用参数4时的输出：〃&FormatDateTime

(Now,4)&〃<Br>〃)

EndSub

</Script>

Web数据库技术教程55

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

，：VB.NET的过程和函数（续）

3http://127.0.0.1/13-3.aspx-...0®®

文件QF）编辑tE）查看国）收藏工具（T）

Q后退，x[g]；搜索

L,e)http：//1270.0.1/13-3.as目转到

使用参数0时的输出:2004-7-158:57:25

使用参数1时的输出:2004年7月15日

使用参数2时的输出:2004-7-15

使用参数3时的输出:857:25

使用参数4时的输出:08:57

茴完毕.Internet

Web数据库技术教程56

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

国VB.NET的过程和函数（续）

③DateSerial函数

用来返回指定的日期。函数格式为:

DateSerial（年，月，日）

Web数据库技术教程57

13ASP.NET的开发平台和VB.NET

VB.NET简介(续)

EIVB.NET的过程和函数(续)

[例13-4]13-4.aspx

<ScriptLanguage二〃VB〃Runat二〃Serve/〉

SubPageLoad()

DimLastDayAsdate

LastDay=DateSerial(Year(now),Month(now)+1,1-1)

Response.Write(“本月的最后一，天是:〃&LastDay)

EndSub

</Script>

Web数据库技术教程58

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

区VB.NET的过程和函数（续）

3http://127.0.0.1/13-4.aspx-U...BE®

文件9编辑⑥查看口收藏⑥工具©韦》।

。后退▼o⑻曲为搜索

itelhW国http：〃127.0.0.1/137.aspx竺|H锵J瞬

本月的最后一天是:2004-7-31

田完毕.Internet

Web数据库技术教程59

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

④DateDiff函数

计算两个日期之间的时间间隔。函数格式为:

DateDiff（参数，日期一，日期二）

Web数据库技术教程60

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

区VB.NET的过程和函数（续）

参数的枚举值参数的简写代表的时间单位

Datelnterval.DayD天

Datelnterval.DayOfYearY天

Datelnterval.HourH时

DatelntervaLMinuteN分

Datelnterval.MonthM月

Datelnterval.QuarterQ季

Datelnterval.Seconds秒

Datelnterval.Weekdayw周

Datelnterval.WeekOfYearWw日历周

Datelnterval.Yerayyyy年

Web数据库技术教程61

13ASP.NET的开发平台和VB.NET

VB.NET简介(续)

::VB.NET的过程和函数(续)

[例13-5]13-5.aspx

<HtmlXScriptLanguage二〃VB〃Runat="Serve/〉

SubPageLoad()

DimDayl,Day2Asdate

Dayl斗1/1/2004#

Day2=#l/l/2005#

Response.Write(〃现在是：〃&Now&〃<BrXBr>")

Response.Write(“今年已过了：

DateDiff(〃d〃，Dayl,Now)&〃天〃&”<Br>〃)

Response.Write(“离明年还有："&_

DateDiff(〃d〃，Now,口@丫2)&〃天〃&〃〈81'〉〃)

EndSub</ScriptX/Html>

Web数据库技术教程62

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

，：VB.NET的过程和函数（续）

3lhttp://127.0.0.1/13-5.aspx—__13回国

文件鱼）编辑量）查看口收藏⑥工具①》F

e后退•o回回＜&/搜索以

地址小Ihttp：/〃/13-5.aspV|母转到惬括‘

现在是:2004-7-1593:15

今年已过了：196天

离明年还有：169天

国完毕*Internet

Web数据库技术教程63

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

区VB.NET的过程和函数（续）

⑤其它日期和时间输出函数

函数函数格式说明

TodayToday()返回当前日期

YearYear(Date)返回给定日期的年份

MonthMonth(Date)返回给定日期的月份

DayDay(Date)返回给定日期是几号

HourHour(Time)返回给定时间是几点

MinuteMinute(Time)返回给定时间是几分

SecondSecond(Time)返回给定时间是几秒

WeekDayWeekDay(Date)返回给定日期是星期几，1表示星期日…

Web数据库技术教程64

13ASP.NET的开发平台和VB.NET

VB.NET简介(续)

EIVB.NET的过程和函数(续)

[例13-6]13-6.aspx

<ScriptLanguage=〃VB〃Runat=〃Serve/〉

SubPageLoad()

Response.Write(〃今天是〃&Today()&〃〈Br>〃)

Response.Write(〃今年是〃&Year(Now)&〃年"&〃<Br〉〃)

Response.Write(〃本月是"&Month(Now)&〃月〃&〃<Br>〃)

Response.Write(“现在是"&Hour(Now)&“点"&_

Minute(Now)&_

〃分〃&Second(Now)&〃秒〃&〃<Br〉〃)

Web数据库技术教程65

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

<]VB.NET的过程和函数（续）

DimIAsShort

I=Weekday(Now)

SelectCaseI

Case1

Response.Write(〃今天是星期日〃&〃<Br〉〃)

Case2

Response.Write(〃今天是星期一〃&〃<Br>〃)

Case3

Response.Write(〃今天是星期二〃&〃<Br>〃)

Case4

Response.Write(〃今天是星期三〃&〃<Br>〃)

Web数据库技术教程66

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的过程和函数（续）

Case5

Response.Write（〃今天是星期四〃&〃<Br>"）

Case6

Response.Write（〃今天是星期五〃&〃<Br>"）

Case7

Response.Write（〃今天是星期六〃&〃<Br>〃）

EndSelect

EndSub

</Script>

Web数据库技术教程67

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

区VB.NET的过程和函数（续）

3http://127.0.0.1/13-6.aspx-1...口回区

文件9编辑⑥查看®收藏®工具①:»,,,

。后退，。回回心力搜索"

也雄U.直）http："127.0.0.1/13-6.aspx目转到后后'

今天是2U04-7-15

今年是2004年

本月是7月

现在是9点3分3秒

今天是星期四

田完毕9Internet

Web数据库技术教程68

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

ElVB.NET的过程和函数（续）

（4）检验函数

函数功能

检查Value的值，返回9表示Object,3表

VarType(Value)示整数，7表示日期，8表示字符串，11表示布尔

值，8200表示数组

IsNumeric(Value)检查Value的值，返回True表示是数字类型

IsDate(Value)检查Value的值，返回True表示是日期类型

IsArry(Value)检查Value的值，返回True表示是数组类型

Web数据库技术教程69

13ASP.NET的开发平台和VB.NET

VB.NET简介(续)

EIVB.NET的过程和函数(续)

[例13-7]13-7.aspx

<ScriptLanguage=〃VB〃Runat二〃Server”〉

SubPageLoad()

DimResultl,Result2,Results,Result4,Results,Result6As

Short

DimObjAsObject

Resultl二VarType(Obj)

Result2=VarType(123)

Result3-VarType(#6/6/2004#)

Result4=VarType(〃ASP.NET")

Result5=1sNumeric(456)

Result6=VarType(IsNumeric(456))

Web数据库技术教程70

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

<]VB.NET的过程和函数（续）

Response.Write("Object的VarType()值是〃&Resultl&〃<Br〉〃)

Response.Write(〃整数的VarType()值是〃&Result2&〃<Br〉〃)

Response.Write("日期的VarType()值是〃&Results&〃<Br〉"

Response.Write(〃字符串的VarType()值是〃&Result4&〃<Br〉〃)

Response.Write(〃数字数据的IsNumeric()值是〃&Result5&

〃，即True"&〃<Br〉〃)

Response.Write(〃布尔值的VarType()值是〃&Result6&〃<Br>〃)

EndSub

</Script>

Web数据库技术教程71

13ASP.NET的开发平台和VB.NET

VB.NET简介(续)

区VB.NET的过程和函数(续)

ahttp://127.0.0.1/13-7.aspx-li...底||巨|区I

文件⑪编辑⑥查看堡)收藏®工具9艳》患

。后退，。回国；搜索'

Uejhttp://127.0.0.1/13-7.aspx▼或转到链接'

Object的UarType()值是9

整薮的UarType()循是3

日期的VarType()值是7

字符串的UarType()值是8

数字数据的IsNumenc()值是-1,即True

布尔值的VarType()值是11

⑧完毕.Internet

Web数据库技术教程72

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的程序结构

*If语句

①If...Then结构

If…Then结构的语法如下:

IF条件Then

语句块

EndIf

Web数据库技术教程73

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

EIVB.NET的程序结构（续）

②If...Then...Else结构

If...Then...Else结构的语法如下:

If条件Then

语句块1

Else

语句块2

EndIf

Web数据库技术教程74

13ASP.NET的开发平台和VB.NET

VB.NET简介（续）

囚VB.NET