189 8069 5689
一、VBScript概述
创新互联建站服务项目包括祁连网站建设、祁连网站制作、祁连网页制作以及祁连网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，祁连网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到祁连省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
VBScript（Microsoft Visual Basic Scripting Edition）是程序开发语言 Visual Basic 家族的最新成员，是一种基于对象的编程语言。用户在HTML文件中可直接嵌入VBScript脚本，从而扩展HTML，使其不仅仅是一种页面格式语言，而且还可以对用户的操作做出反应。脚本语言是用来控制网页的控件和对象的一种编程语言，用其加强网页的灵活性和多样性。VBScript作为目前流行的脚本语言，是ASP的宿主语言，为Microsoft所推荐。它以其简单的语法、完善的功能，既可作为客户端编程语言，也可作为服务器端编程语言。
VBScript既可作为客户端编程语言，也可作为服务器端编程语言。客户端脚本由一个配备了解释器的Web浏览器处理，当一个浏览器的用户执行了一个操作时，不必通过网络对其做出响应，客户端程序就能完成任务。而服务器端脚本则是在Web服务器上执行生成代码，然后发送到浏览器，在浏览器上收到的只是执行后的标准HTML文件。（见说明）
二、VBScript数据类型及运算符
1、数据类型 在Visual Basic等高级程序设计语言中，有整型、字符型、数值型等多种不同的数据类型，而在VBScript中只有一个叫做Variant（一般译为“变体型”）的数据类型。随着使用方式的不同，Variant可以包含不同类型的信息，即这种数据类型可以根据用途的需要选择最合适的子类型来存储数据。 “” “ “
注意:定义时不需要指明具体子类型。
DIM A
A= #30/5/2008#
2、VBScript的运算符
1. 算术运算符
除了加（+）、减（-）、乘（*）、除（/）外，还有经常使用的取余（Mod）、求幂（^）及整除（\）等。如：5 Mod 3，结果为2；5 ^ 3结果为125；5/3结果为1。
2. 字符串（连接）运算符
有“”或“+”两种，用于将两个字符串进行连接。在使用时，经常用“”，因为连接符“+”与算术运算符中的加号“+”类似，所以当表达式两边都是数值时，则根据运算符的优先级会将“+”默认为表示相加。
“hello” + “ world” “hello world”
3. 逻辑运算符
最常用的有与（And）、或（Or）、非（Not）三种，用于判断表达式是否成立，其返回值为：真（True）或假（False）。
（1） And：只有两个值全为真时，结果才为真。如（53）And（510），表达式的值为：False。
（2） Or：只要有一个值为真时，结果就为真。如（53）Or（510），表达式的值为：True。
（3） Not：非真则为假，非假则为真。如Not（53），结果为：False；Not（510），结果为：True。
4. 比较运算符
最常用的有等于（=）、不等于（）、小于（）、大于（）、小于等于（=）、大于等于（=）6种，用于将表达式两边的值做出比较，其返回值为：真（True）或假（False）。
三、VBScript变量与常量
1、变量的声明与赋值 变量和常量是编程语言最基本的组成单位，由变量和常量组成表达式，然后由表达式组成更为复杂的程序。变量是代表能够存储程序信息的计算机内存的位置的符号，在程序的运行过程中可以进行调用变量或者改变变量值等操作。并不需要知道具体的变量在内存中的地址，只需要调用变量名就可以实现对变量的引用。如前所述，VBScript中的数据类型只有Variant一种，所以变量的类型也都是Variant类型的。
命名变量就是为变量取个名字。变量名称要遵循VBScript命名的标准规则：必须以字母开头，不能包含句点，长度在255个字符内且在其作用域内必须是惟一的。
在VBScript中声明变量要用到Dim，语法结构为：
dim 变量名1,变量名2,变量名3,变量名n
声明一个或多个变量，在声明多个变量时用“,”分割变量名
当变量定义好后，就可以给变量赋一个值，语法结构为： 变量名=值
将“值”赋给变量名。
2、数组的定义 一个变量如果包含多于一个的相关数值，就称为数组。数组的定义与变量一样，使用Dim，只是将元素的个数即数组的大小包含在数组名称之后的括号里。 一维数组 dim a(7)
二维数组 dim a(4,5)
Redim Preserve a(8)
Redim重新调整动态数组的大小，重新声明数组后，原有数组的数值将全部清空，如果希望保留原有项目的数值，可以使用Preserver关键字。
3、定义常量 常量的值，在程序中是不变的，其命名规则与变量的命名规则一样。在VBScript中定义常量使用Const语句，语法结构为：const 常量名=值
const a="星期一" '字符串常量，必须用双引号(" ")括起来
const a=30 '数值常量
const a="---" '字符串常量
const a=#30/8/2005# '日期常量，必须用井号(#)括起来
const a = 30
a = 50
四、VBScript常用函数 1、数字运算函数 取绝对值 格式：Abs（数值表达式）
功能：返回数值表达式的绝对值。如果输入的数值大于等于零，返回的数值就会等于输入的数值；相反小于等于零，则会去掉负号输出，如：
Abs（5）=5
Abs（-5）=5
Abs（0）=0
四舍五入格式：CInt（数值表达式）
功能：将表达式的值的小数部分四舍五入后，返回一个整数值，如：
CInt（”5.2”）=5
CInt（”5.6”）=6
取整格式：Int（数值表达式）
功能：返回数值表达式值的整数部分，如：
Int（5.2）=5
Int（5.6）=5
开平方 格式：Sqr（数值表达式）
功能：返回数值表达式值的平方根。要求数值表达式的值大于等于0，如：
Sqr（16）=4
Sqr（23）=4.79583152331272
2、字符串函数 字符串长度检测 格式：Len（字符串表达式）
功能：检测字符串表达式的长度，并返回一个整数值，如：
Len（"1234"） 结果为：4
Len（"计算机"） 结果为：3
Len（"VBScript函数"） 结果为：10
截取字符串 左截取：Left（字符串表达式,截取的位数值）
右截取：Right（字符串表达式,截取的位数值）
中间截取：Mid（字符串表达式,从第几位，[截几位]）
如：
Left（"VBScript函数有哪些",5） 结果为：VBScr
Right（"VBScript函数有哪些",5） 结果为：函数有哪些
Mid（"VBScript函数有哪些",5） 结果为：ript函数有哪些
Mid（"VBScript函数有哪些",5,5） 结果为：ript函
大小写转换 小写转大写：Ucase（字符串表达式）
大写转小写：Lcase（字符串表达式）
如：
Ucase（"AbcdEfg"） 结果为：ABCDEFG
Lcase（"AbcdEfg"） 结果为：abcdefg
去除字符串中的空格 左边空格：Ltrim（字符串表达式）
右边空格：Rtrim（字符串表达式）
两端空格：Trim（字符串表达式）
如：
Ltrim（" 先生 "） 结果为：“先生 ”
Rtrim（" 先生 "） 结果为：“ 先生”
Trim（" 先生 "） 结果为：“先生”
字符串查找
InStr(start, str1,str2)
从字符串str1的start位置开始查找字符串str2.
InStrRev(str1,str2)
返回字符串str1中从尾部开始搜索str2第一次出现的位置
3、日期函数 (1） 取系统当前的日期：Date
（2） 取系统当前的时间：Time
（3） 取系统当前的日期及时间：Now
(4)Day(Date) Hour(Time) WeekDay(Date)
如：
document.write（Date） 结果为：2005-7-12
document.write（Time） 结果为：16:27:42
document.write（Now） 结果为：2005-7-12 16:28:18
4、数据类型转换函数 数字转换成字符串 格式：Str(数值表达式)
功能：将数值表达式表示的数字转换成字符串，如：
Str(80) 结果为：“80”
Str(-80.12) 结果为：“-80.12”
转换成数字 格式：Val(字符串表达式)
功能：将字符串表达式表示的字符串内的字符型数字转换成数值型数字，如：
Val("222永州") 结果为：222
Val("2.5 78") 结果为：2.578
字符转换成字符代码 格式：Asc（字符串表达式）
功能：返回一个整型数，代表字符串表达式表示的字符串首字母的字符代码，如：
Asc（"A"） 结果为：65 （即大写字符A的ASCII码）
字符代码转换成字符 格式：Chr（字符代码）
功能：返回与指定的字符代码相关的字符，如：
Chr（97） 结果为：a （即在ASCII码中的小写字符a）
Chr（13） 结果为：回车符 （即在ASCII码中的回车符）
转换为日期型数据函数 格式：Cdate（表达式）
功能：按表达式的值返回日期型数据，表达式是任何能有效地表示日期的表达式，如数值表达式，字符串表达式，日期表达式。
（1） 整数：当输入的参数为一个整数时，除了0会输出时间外，其他的情况都会输出与“1899-12-30”这天相差的天数，如：
Cdate（0） 结果为：0:00:00
Cdate（1） 结果为：1899-12-31
Cdate（2） 结果为：1900-1-1
（2） 小数：当输入的参数为一个带有小数的数字时，将整数部分转换为日期，小数部分转换为从午夜起算的时间。如：
Cdate（1.1） 结果为：1899-12-31 2:24:00
其他
Cbool Cbyte CDbl CLng CStr CSng
5、数组函数
Lbound（数组名，维数）返回指定数组维的最小可用小标
Ubound
Split(expression , 分隔符)
6、其他函数产生输入框 用来产生一个接收用户输入信息的输入框。
格式1：Inputbox（" [提示信息] "）
如：
Inputbox（“请输入您的姓名：”）
格式2：Prompt（" [提示信息]"）
如：
Prompt（"请输入您的姓名："）
产生选择框 格式1：Confirm（" [提示信息] "）
功能：用来产生一个选择框，等待用户做出选择。
如：
Confirm（"是否真的这样选？"）
格式2：MsgBox（"提示信息,[数值] "）
功能：用来产生一个选择框，等待用户做出选择。不同的返回值表示用户按下了不同的按钮。
提示信息参数为必选项，是作为消息显示在对话框中的字符串表达式。其最大长度，大约是1 024个字符，这取决于所使用的字符的宽度。
[数值]为数字，可选，表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识及消息框样式的数值的总和。如果未指定，则默认值为0，表示只显示一个“确定”按钮；指定1，表示显示“确定”、“取消”两个按钮；指定2，表示显示“终止”、“重试”、“忽略”3个按钮；指定3，表示显示“是”、“否”、“取消”3个按钮；指定4，表示显示“是”、“否”两个按钮；指定5，表示显示“重试”、“取消”两个按钮。
产生提示框 格式：Alert（" [提示信息] "）
功能：用来产生一个弹出式的警告框，其图标为一个警告标识。如：
alert（"恭喜您通过！"）
五、VBScript语句
1、条件语句选择结构是一种可以根据条件实现程序分支的控制结构。其特点是，根据所给定的选择条件为真（即条件成立）或为假，而决定从各分支中执行某一分支的相应操作，并且在任何情况下均有“无论分支多寡，必择其一；纵然分支众多，仅选其一”的特性。选择结构是通过条件语句来实现的，条件语句也称if语句。
If…Then...Else…End if 格式：if 条件 then
[命令1]
else
[命令2]
end if
功能：如果条件成立，执行Then后的命令；反之，如果条件不成立，执行Else后的命令。
判断用户输入的口令字是否正确 html
body
script language="vbscript"
dim hd
mm="1234"
hd=inputbox("请输入你的密码：")
if hdmm then
alert("你的密码不正确！")
else
alert("密码正确，欢迎你的光临")
end if
/script
/body
/html
If…ElseIf…End if 格式：if 条件1 then
[命令1]
[elseif 条件2 then
命令2]
[elseif 条件3 then
命令3]
……
[else
命令n]
end if
html
body
h2根据不同的考试成绩确定等级/h2
script language="vbscript"
dim cj
cj=inputbox("请输入你的考试成绩：")
if cj60 then
alert("等级评定为：差")
elseif cj=60 and cj80 then
alert("等级评定为：中")
elseif cj=80 and cj90 then
alert("等级评定为：良")
elseif cj=90 and cj=100 then
alert("等级评定为：优")
else
alert("你输入的成绩有问题！")
end if
/script
/body
/html
在多个条件中进行选择的更好方法是使用Select case…End select语句。 格式：Select case 测试表达式
[case 表达式表1
[命令1]]
[case 表达式表2
[命令2]]
…
[Case else
[命令n]]
end select
select case cj
case 50
alert("等级评定为：差")
case 70
alert("等级评定为：中")
case 80
alert("等级评定为：良")
case 90
alert("等级评定为：优")
case else
alert("你输入的成绩有问题！")
end select
2、循环语句循环结构是一种可以根据条件实现程序循环执行的控制结构，一般有当型循环和直到型循环两种结构，其他循环结构可以看作这两种结构的变型。
（1） 当型（While）循环：当给定条件为True时，重复执行语句；否则循环语句停止执行，而执行下面的语句。
（2） 直到（Until）型循环：一直重复执行一组语句，直到给定的条件为True时停止，然后执行下面的语句。
（3） 变形体（For）循环：将一组语句按照指定的循环次数重复执行后，再执行下面的语句。
Do…Loop
For…Next For Each...Next语句是对数组中的每个元素或对象集合中的每一项都执行一组相同的操作。
六、VBScript过程和自定义函数 Sub子过程的格式为：
定义过程：Sub 子过程名（[形式参数]）
[命令]
End Sub
调用过程：Call 子过程名[（[实际参数]）]
html
head
script language="vbscript"
sub xm() '定义xm过程，无参数。注：无参数也必须加上()
dim name
name=prompt("请输入您的姓名")
document.write("欢迎您，" name "!" "p")
end sub
sub pf(a) '定义pf过程，参数为a
dim s
s=a*a
document.write("A的平方=" s)
end sub
/script
/head
body
script language="vbscript"
call xm '调用xm过程
a1=prompt("请输入A值：")
call pf(a1) '调用pf过程，并将实际参数a1的值传递给形式参数a
/script
/body
/html
Function函数的格式为：
定义函数：Function 函数名（[形式参数]）
[命令]
End Function
调用函数：函数名[（[实际参数]）]
3、变量的作用域和生存期 细心的读者可能已发现，在本章的例题中均使用到了变量，有些例题在使用变量时首先用Dim进行了定义，而有些例题却没有给变量定义。变量能否不定义就使用或者在程序中的哪处定义，都与变量的作用域有关。变量的作用域是指变量所起作用的范围，变量声明的位置不同，其作用域也不同。如果一个变量在过程内声明，则称其为局部变量，因为它只能在这个过程中使用，用于在过程中临时存放数据。如果一个变量在过程外声明，则称其为全局变量，它不仅可在过程内使用，也可在过程外使用（即整个程序中使用），用于存放整个应用程序公用的数据。变量的生存期指变量的存活期。对于全局变量，其生命周期是从它被声明起一直到整个脚本运行结束才结束；而对于局部变量，其生命周期是从过程或函数被执行的时刻开始到过程或函数执行结束。所以，局部变量是用于存取临时数据的。
表单标记
1 表单标记：表单标记与动态网站设计是分不开的，现在上网凡是要求用户输入信息的基本上都由表单实现。表单的最直接的作用就是它可以从客户端浏览器收集信息，并将所收集的信息指定一个处理的方法。此处理方法可以为ASP的程序，也可为其他的如JSP、PHP等程序。因此掌握好表单的使用是制作动态网站的基础，也是至关重要的一步。表单是实现与用户进行信息交流的主要方式，它可以细分成以下两块。
from name=”名字” method=”方式” action=”文件”…/form
action : 说明当这个表单提交后，将传送给哪个文件处理。
Method:指定表单的提交方式即与服务器交换信息时所使用的方式，一般选择POST(文件形式不限制长度)或GET（附加在URL地址后限制长度提交）。具体使用见后面章节。
2 表单标记可提供让浏览者输入文字信息，如姓名、密码、留言等。根据输入方式不同，又分为三类。
（1） 单行文本域，用户输入的信息会原样显示。其语法格式为：
input type="text" value="设置的初始值" name="文本域的名称"
（2） 密码文本域，用户输入的信息会以“*”形式显示。其语法格式为：
input type="password" value="设置的初始值" name="文本域的名称"
（3） 多行文本域，用户输入的信息会原样显示。与单行文本框的区别在于，多行文本框可以指定文本框的宽度和高度。其语法格式为：
textarea cols="文本框的宽度" rows="文本框的高度" name="文本域的名称"
/textarea
（4）文件域标记，一个文本框加一个浏览按钮，用户可以直接选择要上传给服务器的文件，也可以在文本框内直接填写。
3 表单标记可提供让浏览者在固定的范围内作出选择，如性别、爱好等。根据输入方式不同，又分为以下两类。
（1） 单选域，只允许选取一项。其语法格式为：
input type="radio" name="选择域的名称" 名字的相同的单选域构成一组。
（2） 复选域，可多项选取。其语法格式为：
input type="checkbox" name="选择域的名称"名字相同的复选域传递多个值。
4 表单标记可提供让浏览者将所有输入的内容采取的一个响应动作，如提交给服务器处理，还是将该输入的内容清除后再重填。
（1） 提交按钮，把输入的内容提交给相关程序，让服务器处理。其语法格式为：
input type="submit" value="确定" name="按钮域的名称"
（2） 重置按钮，把刚输入的内容清除，再由用户重新输入。其语法格式为：
input type="reset" value="重置" name="按钮域的名称"
5 表单标记可提供让浏览者在给出的菜单中作一个选择，如选择籍贯、类别等。根据提供的方式不同，又分为以下两类。
(1) 下拉菜单，提供一个下拉式菜单（例：）。其语法格式为：
select name="菜单的名称"
option菜单中的第1个值
option菜单中的第2个值
option菜单中的第N个值
/select
6 滚动菜单，提供一个带有滚动条的菜单（例：）。其语法格式为：
select name="菜单的名称" multiple size="确定显示选择项的个数"
option菜单中的第1个值
option菜单中的第2个值
option菜单中的第N个值
/select
asp
ASP
abbr.
1. = Active Server Page 【网络】动态服务器网页
2. = Application Service Provider 【网络】应用服务提供商
3. = Access Service Provider 【网络】存取服务提供商
4. = Advanced Service Platform 高级服务平台
5. = Advanced Signal Processor 高级信号处理器
6. = Advanced Sterilization Products (美国强生公司生产的) 高级消毒产品
7. = Advanced Study Program 高级学习计划
8. = Advanced System Planning 高级系统规划
9. = American Selling Price 美国售价
10. = Application Service Protocols 应用服务协议
Asp
abbr.
1. =American selling price 美国市价,美国销售价格
asp1
KK: []
DJ: []
n.
1. 【动】角蝰(一种小毒蛇)[C]
asp2
ASP过时了！！
KK: []
DJ: []
【诗】=aspen
ASP是Active Server Page的缩写，意为“活动服务器网页”。ASP是微软公司开发的代替CGI脚本程序的一种应用,它可以与数据库和其它程序进行交互，是一种简单、方便的编程工具。ASP的网页文件的格式是.asp，现在常用于各种动态网站中。 ASP是一种服务器端脚本编写环境，可以用来创建和运行动态网页或web应用程序。ASP网页可以包含HTML标记、普通文本、脚本命令以及COM组件等。利用ASP可以向网页中添加交互式内容（如在线表单），也可以创建使用HTML网页作为用户界面的web应用程序。 与HTML相比，ASP网页具有以下特点：
（1）利用ASP可以实现突破静态网页的一些功能限制，实现动态网页技术；
（2）ASP文件是包含在HTML代码所组成的文件中的，易于修改和测试；
（3）服务器上的ASP解释程序会在服务器端制定ASP程序，并将结果以HTML格式传送到客户端浏览器上，因此使用各种浏览器都可以正常浏览ASP所产生的网页；
（4）ASP提供了一些内置对象，使用这些对象可以使服务器端脚本功能更强。例如可以从web浏览器中获取用户通过HTML表单提交的信息，并在脚本中对这些信息进行处理，然后向web浏览器发送信息；
（5）ASP可以使用服务器端ActiveX组建来执行各种各样的任务，例如存取数据库、发现哦那个Email或访问文件系统等。
（6）由于服务器是将ASP程序执行的结果以HTML格式传回客户端浏览器，因此使用者不会看到ASP所编写的原始程序代码，可放置ASP程序代码被窃取。
ASP的工作原理：
当在Web站点中融入ASP功能后，将发生以下事情：
1、用户向浏览器地址栏输入网址，默认页面的扩展名是.asp。
2、浏览器向服务器发出请求。
3、服务器引擎开始运行ASP程序。
4、ASP文件按照从上到下的顺序开始处理，执行脚本命令，执行HTML页面内容。
5、页面信息发送到浏览器。
ASP的运行环境
asp需要运行在PWS或IIS下。PWS或IIS服务在windows98或windows2000的光盘上附带着，可以通过“添加/删除程序”中的“添加/删除windows组件”来安装。
一般asp需与access数据库或SQL Server数据库结合使用，编出功能强大的程序。
能够运行ASP的web服务器软件
Windows2000默认安装的是IIS5.0(internet information server)，而windows xp默认安装的是IIS5.1，windows 2003默认安装的IIS6.0。
PWS(personal web server)运行在windows98环境下的简单个人网页服务器。
ASP的意涵与特性
ASP( Application Service Provider,应用软体租赁服务提供者 )即是指「透过网路以租赁方式提供应用软体服务的业者」,即是指业者以应用软体为主体,透过网路一对多地传递服务,这种以服务为主的交易模式促使企业可藉由租赁的方式,以更符合成本效益的方式拥有软体的使用权,并且亦能因为业者集中式的管理而大幅降低企业维护的成本.
基本上,ASP即具有「软体服务化,服务网路化」,「资讯委外服务与网路结合」与「产品通路化,通路产品化」等三大特性,其甚至可以被视为是ISP（Internet Service Provider）与ITS（Information Technology Service）的结合.
ASP的英文是Application Service Provider，中文的标准翻译就是“应用服务提
供商”，是指为商业或者个人客户提供管理应用解决方案的公司或者企业。最近
ASP被媒体炒做十分火热，不是IT行业的人面对一堆技术名词专业术语很难弄清楚
ASP的内容，本文试图用浅显的语言来为广大的读者揭开ASP神秘的面纱，对于IT
行业的大热门ASP领域有一些基本的认识。
1. ASP是什么东西？
简单地讲，ASP就是为客户提供服务的服务商，它和会计事物所、婚姻介绍所没有
什么本质方面的区别。不同的是ASP主要是通过INTERNET（国际互联网络）作为主
要工作和业务工具，采用一对多的方式，向企业、公司提供标准化的应用软件以
及相关的技术咨询、管理租赁的服务，ASP的概念最早是1998年由美国人提出来的
。目前被全球各大IT厂商看好并被认为是可以推动网络经济发展的，有稳固基础
的第三种网络商业模式。
和传统的外包服务（Outsourcing）相比，ASP的主要区别在于：ASP是一对多的经
营模式，提供的服务有兼容性和可协调性，并且ASP的收费方式一般是按月收费。
业界认为：ASP一般有这样一些“成员”：电信运营商、传统IT服务厂商、互联网
络接入服务商（ISP）、独立软件供应商（ISV）、系统集成商和单纯的ASP公司。
根据流行的观点，ASP有如下五个核心内涵：
a. ASP着重应用为中心，提供对于应用方面的访问和管理。
b. ASP服务可以为用户提供没有在服务器、人员、系统和系统授权等前期资源投
入情况下就可以在“定制”的全新应用系统环境进行访问的服务，如ISP，而这样
的服务一般按月份ASP收取服务费。
c. ASP采用集中管理的方式---ASP一般都有一个管理中心，所有的客户通过INTE
RNET来进行远程访问，获得技术支持和咨询服务。
d. 一对多的服务，也就是讲，ASP提供的是标准化的产品包，产品都是最低程度
的自定义或者没有实现客户定制化，对于行业用户来讲已经达到实用方便的标准
。
e. 按照合同交付，在ASP客户的眼中，ASP是一家根据客户协议内容提供相关服务
，保证应用服务系统服务可以得到确实履行的机构。
2. ASP为什么会火？
从大的方面来讲，困扰国内企业生存、发展的核心问题是管理问题。随着互联网
络的普及和应用的深入，企业用户可以随时随地直接租用ASP的服务器和软件系统
来进行自己的业务管理，这样做的好处在于；第一，企业可以节省大笔用于IT建
设方面的资金，大幅度降低企业管理信息化的成本。第二，ASP的用户可以采用各
种方式获得应用和服务，软件类服务产品完全可以通过网络在非常短的时间内组
成一个完善的、高效的、先进的企业管理系统，迅速获得企业一体化的运营管理
方案。
网络经济发展突飞猛进，电子商务一日千里，网络和网站从门户到内容、从注意
力到垂直性，目前逐渐转向热衷ASP也是一个主要的原因。
笔者资料中，国内最早对ASP触电的是网友“飞鸟”，在1998年6月自发组织了研
究、交流和探讨ASP技术的“飞鸟之家”，现在已经发展成为chinaasp.com，成为
国内最早的ASP应用技术服务提供商网站。上海的互易网络有限公司结合国内实际
情况，推出了为国内企业服务的ASP平台互易网，向企业提供以电子商务为核心的
，企业内、外部网络设施和应用的远程构架和托管服务，创造虚拟企业门户（EP
）直接将ASP应用到商业增殖环节中去。
此外，ISP也全面转向ASP的怀抱，成为ISP进一步发展的产物。软件商对于ASP更
是情有独钟。业界最新的消息是，中国第三电信“网通”已经制定ASP发展战略，
国内最大的管理咨询公司“汉普”将把旗下八个子公司定位在企业内部资源计划
管理（ERP）领域的ASP中，北京“联成互动”瞄准客户关系管理（CRM）领域的A
SP，北京“数码方舟”定位在网络办公的ASP，HP正在和中国建设银行讨论共建金
融领域的ASP。
ASP正在IT经济大潮中显山露水，其发展前景不可估量。
3. ASP的发展阶段和面临的问题
以网络服务商、软件厂商和ISP为主力的各种IT角色，正在根据自己的优势条件出
发对ASP领域进行多种方面的尝试。就目前阶段来讲，ASP提供的服务不计其数五
花八门，没有标准化和量化的概念，硬件厂商向ASP的“土壤”和势力方向靠拢，
软件厂商和ISP则直接参与到ASP业务的第一线。
笔者估计，经过一段时间的试探和发展，ASP将向服务集成方面发展，产品和服务
初步的标准化将很快建立起来，接着进入到市场细化和标准制定、ASP产品成熟时
期，ASP的稳步增长，最终将成为IT行业商务模式的核心！
目前在ASP发展的道路上，主要面临的问题是观念的转变方面：用租赁代替购买，
服务集成代替产品经销商、服务经济代替产品经济等等。具体到实际方面来讲，
安全和服务的质量是ASP和客户共同关心的头等大事，要实现ASP提出的“租赁高
科技”的口号，ASP任重而道远！
ASP常用内置函数
1，日期/时间函数
这些函数包括对“年”、“月”、“日”、“时”、“分”、“秒”、“星期”等的显示。
（1）Now函数：根据计算机系统设定的日期和时间，返回当前的日期和时间值。使用方法now()；
（2）Date函数：只返回当前计算机系统设定的日期值。使用方法：date()；
（3）Time函数：只返回当前计算机系统设定的时间值。使用方法：time()；
（4）Year函数：返回一个代表某年的整数。使用方法：year(date)，其中date参数是任意的可以代表日期的参数，比如“year(date())”就表示是从“date()”得出的日期中提取其中“年”的整数。
另外，还可以这样应用：“year(#5 20,2006#)”表示提取“2006年5月20日”中“年”的整数值。关于“5 20,2006”，也可使用“5-20-2006”、“5/20/2006”等形式表现，即“某月某日”和“某年”的组合。同时注意使用“#”进行包括以表示日期值。
（5）Month函数：返回1到12之间的整数值，表示一年中某月。使用方法：month(date)。关于参数date的说明和year函数相同。但要注意日期的正确性，比如“#13-31-2006#”，根本就没有“13”月，肯定是错误的了。
（6）Day函数：返回1到31之间的整数值，表示一个月中的某天。使用方法：day(date)。关于参数date的说明和year函数相同。同样要注意日期的正确性，比如“#2-30-2006#”其中对“2”月定义的“30”日这天就是错误的。
（7）Hour函数：返回0到23之间的整数值，表示一天中的某个小时。使用方法：hour(time)。其中参数time是任意的可代表时间的表达式。比如“hour(time())”就表示是从“time()”得出的时间中提取其中“小时”的整数。同样，参数time还可以这样应用“hour(#11:45:50#)”表示从“11”时“45”分“50”秒中提取当前小时数。当然，定义的时间要符合时间的规范。
（8）Minute函数：返回0到59之间的整数值，表示一小时中的某分钟。使用方法：minute(time)。time参数的说明和hour函数相同。
（9）Second函数：返回0到59之间的整数值，表示一分钟中的某秒。使用方法：second(time)。time参数的说明和hour函数相同。
（10）Weekday函数：返回一个星期中某天的整数。使用方法：weekday(date)。关于参数date的说明和year函数相同。该函数返回值为“1”到“7”，分别代表“星期日”、“星期一”……“星期六”。比如当返回值是“4”时就表示“星期三”。
（11）WeekDayName函数：返回一个星期中具体某天的字符串。相对weekday函数而言即翻译出“星期几”，使用方法：weekdayname(weekday)。参数weekday即星期中具体某天的数值。比如“weekdayname(weekday(date()))”就表示当前是“星期几”。因为“date()”表示的是当前的时间，而“weekday(date())”就表示的是一星期中具体某天的整数。
当然weekdayname函数最终显示的字符串内容还与当前操作系统语系有关，比如中文操作系统将显示“星期一”这类的中文字符，而英文操作系统则显示为“Mon”（Monday简写）。
此外，在VBScript中还有一些关于时间间隔的计算函数：
（1）DateAdd函数：返回指定时间间隔的日期、时间。可以计算出相隔多少年、或相隔几个月、又或相隔几个小时等的新日期、时间。使用方法：dateadd(interval, number, date)。
其中参数interval表示需要添加的时间间隔单位。其是以字符串的形式表达的，比如“yyyy”表示年，“q”表示季度，“m”表示月份，“d”表示天数，“ww”表示周数，“h”表示小时数，“n”表示分钟数，“s”表示秒数。
而参数number则表示添加的时间间隔数。其是以数值的形式表达的，可以为负值。参数date则要求是日期、时间的正确格式。
比如dateadd("d",100,"2006-5-20")就表示2006年5月20号以后的100天的日期值：2006-8-28。再比如dateadd("h",-12,"2005-5-20 10:00:00")就表示2005年5月20号上午10点前的12小时的日期时间：2005-5-19 22:00:00。
（2）DateDiff函数：返回两个日期时间之间的间隔。可计算出两个日期相隔的年代、小时数等。使用方法：datediff(interval,date1,date2)。
参数interval和dateadd函数中的interval参数内容描述相同，date1和date2参数分别就是相互比较的两个日期时间。另外，当date1的日期时间值大于date2时，将显示为负值。
比如DateDiff("yyyy","1982-7-18",date)表示某人的出生到现在已经多少年了。又比如DateDiff("d","1982-7-18","2062-7-18")则计算了80年过了多少天：29220。
2，字符串处理函数
在脚本的功能处理中，通常需要对一些字符串进行一些修饰性处理。比如过滤掉字符串中的敏感字眼以符合最终显示的要求；又比如一段较长的字符串，需要提取开头的几个字符时。
（1）Asc函数：返回字符串中第一个字母对应的ANSI字符代码。使用方法：asc(string)。其中string参数表示字符串。
（2）Chr函数：返回指定了ANSI 字符代码对应的字符。使用方法：chr(chrcode)。参数chrcode是相关的标识数字。该函数的功能和asc函数形成对应。
比如：asc(“a”)表示小写字母“a”的ANSI 字符“97”；同样chr(97)表示的就是“小写字母a”。另外chr(chrcode)中参数chrcode值为0到31的数字时，表示不可打印的ASCII码。比如“chr(10)”表示换行符，“chr(13)”表示回车符等，这常用于输入和显示格式的转换中。
（3）Len函数：返回字符串内字符的数目（字节数）。使用方法：len(string)。比如len(“love”)的值就是4。
（4）LCase函数：返回所有字符串的小写形式。使用方法：lcase(string)。比如lcase(“CNBruce”)返回为“cnbruce”。
（5）UCase函数：返回所有字符串的大写形式。与lcase函数形成对应。同样，ucase(“CNBruce”)返回为“CNBRUCE”。
（6）Trim函数、LTrim函数和RTrim函数：分别返回前导和后续不带空格、前导不带空格或后续不带空格的字符串内容。比如：
trim(“ cnbruce ”)返回为“cnbruce”，前导和后续都不带空格；
ltrim(“ cnbruce ”)返回为“cnbruce ”，前导不带空格;
rtrim(“ cnbruce ”)返回为“ cnbruce”，后续不带空格；
该函数常用于注册信息中，比如确保注册用户名前或后的空格。
（7）Left函数：返回从字符串的左边算起的指定数目的字符。使用方法：left(string,length)。比如left(“brousce”,5)返回为“brous”，即前五位字符。
（8）Right函数：返回从字符串的左边算起的指定数目的字符。使用方法：right(string,length)。比如right(“brousce”,4)返回为“usce”，即后四位字符。
（9）instr函数：返回某字符串在另一字符串中第一次出现的位置。比如现在查找字母“A”在字符串“A110B121C119D1861”中第一次出现的位置，则可以 instr(my_string,"A110B121C119D1861")
（10）Mid函数：从字符串中返回指定数目的字符。比如现在的“110”则应该是从字符串“A110B121C119D1861”的第2位取得3个单位的值：mid("A110B121C119D1861",2,3)
（11）Replace函数：在字符串中查找、替代指定的字符串。replace(strtobesearched,strsearchfor,strreplacewith)其中strtobesearched是字符串，strsearchfor是被查找的子字符串，strreplacewith是用来替代的子字符串。比如 replace(rscon,"","") 则表示将rscon中所有“”的字符替换为“”
3，类型转换函数
Cbool(string) 转换为布尔值
Cbyte(string) 转换为字节类型的值
Ccur(string) 转换为货币类值
Cdate(string) 转换为日前类型的值
Cdbl(string) 转换为双精度值
Cint(string) 转换为整数值
Clng(string) 转换为长整型的值
Csng(string) 转换为单精度的值
Cstr(var) 转换为字符串值
Str(var) 数值转换为字符串
Val(string) 字符串转换为数值
4，运算函数
Abs(nmb) 返回数子的绝对值
Atn(nmb) 返回一个数的反正切
Cos(nmb) 返回一个角度的余炫值
Exp(nmb) 返回自然指数的次方值
Int(nmb) 返回数字的整形（进位）部份
Fix(nmb) 返回数字的整形（舍去）部份
Formatpercent(表达式) 返回百分比
Hex(nmb) 返回数据的16进制数
Log(nmb) 返回自然对数
Oct(nmb) 返回数字的8进制数
Rnd 返回大于“0”而小于“1”的随机数，但此前需 randomize 声明产生随机种子
Sgn(nmb) 判断一个数字的正负号
Sin(nmb) 返回角度的正铉值
Sqr(nmb) 返回数字的二次方根
Tan(nmb) 返回一个数的正切值
5，其他函数
IsArray(var) 判断一个变量是否是数组
IsDate(var) 判断一个变量是否是日期
IsNull(var) 判断一个变量是否为空
IsNumeric(var) 判断表达式是否包含数值
IsObject(var) 判断一个变量是否是对象
TypeName(var) 返回变量的数据类型
Array(list) 返回数组
Split(liststr) 从一个列表字符串中返回一个一维数组
LBound(arrayP 返回数组的最小索引
Ubound(array) 返回数组的最大索引
CreateObject(class) 创建一个对象
GetObject(pathfilename) 得到文件对象
a = LTRIM(RTRIM(" 12345 "))
或者
a = Trim(" 12345 ")
这个是vb6.0里面的函数
至于在.net里面的我就不知道了，不好意思啦~~~
Private Sub Command1_Click()
Print fenjie(12345789)
End Sub
Private Function fenjie(s As String) As Long
Dim i%
Do Until Len(s) = 1
DoEvents
For i = 1 To Len(s)
fenjie = fenjie + CLng(Mid(s, i, 1))
Next
s = CStr(fenjie)
fenjie = 0
'Print s
Loop
fenjie = CLng(s)
End Function
本来很容易但是第一眼就让误导了，我测试过了是可以的，用递归害死人 val转换成double的 害我得搞了2个小时 我的第一次希望你给我最佳
选择题
1 下面4个选项中属于字符型数据的是( )
A "Hello" B Hello' C Hello D #Hello
2 初学者、业余爱好者在开发基于windows的应用程序时适宜使用的开发工具是（）。
A Visual Studio 2005 Express Edition
B Visual Studio 2005 Team Test Edition
C Visual Studio 2005 Team Developer Edition
D Visual Studio 2005 Team Architect Edition
3 若dim a() as integer={1,2,3,4,5},则a.length的值（）
A 是4 B 是5 C Null D 是6
4 定义字符串变量：
Dim strInput As String=“VisualBasic2005”
Dim strSubStr1 As String
计算子串：strSubStr1 = strInput.Remove(2, 4)
则strInput的值为：
A VisualBasic B ViBasic2005 C sual D alBa
5 要使TextBox控件能够显示多行，应设置（）属性为True
A VisibleB Enabled C MultiLine D Text
6 下列赋值语句正确的是( )
A A=B+CB –B=A C 2=A+B D B+C=A
7 当在文本框中输入“ABCD”时，标签上显示的是（）。
Sub TextBox1_TextChanged(……) Handles TextBox1.TextChanged
Label1.Text =TextBox1.Text
End Sub
A ABCD B A C AABABCABCD
B
C
D D A
Ab
ABC
ABCD
8 Sub过程与Function过程最根本的区别是()
A Function过程可以有形参，Sub过程不可以
B Sub过程可以直接使用过程名调用，而Function过程不可以
C Sub过程不能返回值，而Function过程能返回值
D 两种过程的参数传递方式不同
9 对下列程序段，说法正确的是()###btnQuit.SetBounds(10,80,200,50)
A btnQuit对象的左边界距窗体的左边界是10像素，上边界距窗体的上边界为80像素
B btnQuit对象的左边界距屏幕的左边界为200像素，上边界距屏幕的上边界为50像素
C btnQuit对象的宽度为200像素，高度为80像素
D btnQuit对象的高度为80像素，宽度为200像素
10 Dim str1,str2 As String ### str1="北京奥运2008" ### str2=str1.Substring(0,4) ### 那么str2的值为（ ）
A 北京 B 北京奥运 C 奥运 D 是2008
11 按照匈牙利表示法，前缀为lbl表示哪一个控件。
A Button B Label C ListBox D TextBox
12 数学关系式3x10表示成正确的vb.net表达式为
A 3=x=10 B 3x and x10 C x3 or x10 D 3x x10
13 要使文本框中的文字不能修改，应对（）属性进行设置。
A Locked B Visible C Enable D ReadOnly
14 按照匈牙利表示法，TextBox控件的前缀是（）
A btn B lst C mnu D txt
15 调用子过程后可以通过形参来改变两个实参值的语句是（）。
A Sub f1(ByVal n as integer,ByVal m as Integer)
B Sub f2(ByRef n as integer,ByVal m as Integer)
C Sub f3(ByRef n as integer,ByRef m as Integer)
D Sub f4(ByVal n as integer,ByRef m as Integer)
16 数学关系式x10或者x0表示成正确的vb.net表达式为
A 10x0 B x0 and x10 C x0 or x10 D 0x x10
17 可以同时删除字符串前导和尾部空白的函数是( )
A Ltrim B Rtrim C Trim D Mid
18 以下变量名是正确的（）
A 是_a1 B 是123a C 是For D 是as
19 下面程序求两个数中的小数（）不正确
A min1=iif(xy,x,y)
B if xy then ###min1=x###else###min1=y###end
C ifmin1=IIF(xy,y,x)
D if yx then ###min1=y ###end if###min1=x
20 下列程序段的执行后，变量a,k的值分别为
Dim a,k as integer
a=5
For k=1 To 0
a=a * k
Next k
A -1 6 B -1 16 C 1 5 D 11 21
AABBC ACCAB BBDDC CCADC
选择题百度文库中还有好多
操作题
1．请编写函数fun()，其功能是：计算2-500之间（包括2，500）素数的个数,并将其作为返回值。
注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。
2．请编写函数fun(a)，其函数功能是：计算a的阶乘，并返回结果。
注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）
3．．请编写函数f(x)，其功能是：判断一个大于或等于3的正整数是否是素数，
如果是素数函数返回1，否则返回0。例如：输入37，函数返回1；输入40，函数返回0。
注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“判断”按钮）。
4．请编写函数f(a)，其功能是：计算一个长度为5的一维整形数组a中最大值与最小值的差，并作为函数的返回值。
例如：从文本框中输入1 5 8 9 2，差为8。
数组中的值需要自己在文本框中输入。
注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。