html教程ASP教程.docx
《html教程ASP教程.docx》由会员分享，可在线阅读，更多相关《html教程ASP教程.docx（13页珍藏版）》请在冰点文库上搜索。
html教程ASP教程
vVBScript语言
v3.2VBScript编程基础
v变量：
dim
v常量：
const
ConstMyString="这是一个字符串。
"
ConstMyAge=49
ConstCutoffDate=#6-1-97#
v运算符
v注意一个特殊的运算符:
字符串连接（&）
例如：
abc&cdef=abccdef
v
v
v
变量v
vscore=75
vmsgbox"你的成绩为"&score
vscore=90
vmsgbox"你的成绩已改为"&score
v
v
v
v
v
<%
Dimtem
Tem=hour（now（））
Iftem<12then
Strg=“早上好”
Else
Strg=“您好”
Endif
%>
<%=strg%>
vVBScript流程控制
v条件语句
If...Then...Else语句
SelectCase语句
v循环语句
Do...Loop：
当（或直到）条件为True时循环。
While...Wend：
当条件为True时循环。
For...Next：
指定循环次数，使用计数器重复运行语句。
ForEach...Next：
对于集合中的每项或数组中的每个元素，重复执行一组语句。
vIf...Then...Else语句
vIf条件then
v语句1
vElse
v语句2
vEndif
v
v
如果就否则v
vscore=inputbox（"请输入成绩：
","输入成绩"）
vifscore>=60then
vmsg="及格"
velse
vmsg="不及格"
vendif
vmsgbox"你的成绩：
"&msg
v
v
v
v
v
<%@LANGUAGE="VBSCRIPT"%>
如果就否则<%
Subjudge（grade）
Ifgrade>=60then
Str=“及格”
Else
Str=“不及格”
Endif
Endsub
%>
DimI
i=2
Ifimod2=0then
Msgbox”这是一个偶数！
”
Elsemsgbox”这是一个奇数！
”
Endif
vSelectCase语句
vSelectcase测试表达式
vCase表达式值1
v语句
vCase表达式值2
v语句
vCaseelse
v语句
vEndselect
v
v
多路选择结构语句v
vno=inputbox（"请输入一个1-5之间的数字：
","中议英"）
vselectcaseno
vcase1
vmsg="a"
vcase2
vmsg="b"
vcase3
vmsg="c"
vcaseelse
vmsg="对不起，超过范围了"
vendselect
vmsgboxno&"的英文为"&msg
v
v
v
v
v
Selectcasestr
Case“及格”
Msgbox”你及格了”
Case“不及格”
Msgbox“要继续努力”
Caseelse
Msgboxstr
Endcase
Dimi
i=66
selectcasei
Case65
msgbox=“A"
Case66
msgbox=“B"
Case67
msgbox=“C“
Case68
msgbox=“D“
Caseelse
msgbox=“Z“
Endselect
vDo循环语句
vDo[while/untile循环条件]
v循环体
v[exitdo]
vLoop
v
v
v
vans=inputbox（"请输入'计算机'的英文"）
vdowhileucase（ans）<>"COMPUTER"
vmsg="不正确"&"请重新输入'计算机'的英文"
vans=inputbox（msg）
vloop
vmsgbox"恭喜你，答对了"
v
v
v
v
v
DimI,str
i=1
DowhileI<10
i=i+1
Loop
Str=cstr（i）
Msgbox”现在变量的值是：
”&str
Subchwhile（）
Dimcounter,mynum
Counter=0
Mynum=9
Do
Mynum=mynum-1
Counter=counter+1
Loopwhilemynum>0
msgbox“循环重复了”&counter&“次”
Endsub
vForEach...Next
v
v
v
vDimscore
vScore=array（4,6,1,8）
vForeachnuminscore
vmsg=msg&num
vNext
vmsgboxmsg
v
v
v
Dimi,sum
Fori=1to100
Sum=sum+1
Next
Str=cstr（sum）
Msgbox”现在变量的值是：
”&str
<%
Fori=1to5
Response.write”hello”
Ifi=3thenexit
Fornext
%>
v数组
v包含一个值的变量被称为标量变量,数组变量则包含多个值
v定义:
DimA（3）
v数组
v赋值:
A（0）=256
A
（1）=324
A
（2）=100
A（3）=592
vFor…...Next
Subnewtotal（）
Dimmynum,total
Formynum=16to2step-2
Total=total+mynum
Next
Msgbox”总和为:
”&total
Endsub
v
v
v
v
vdimmynum,total
vFormynum=16to2step-2
vTotal=total+mynum
vnext
vMsgbox"总和为:
"&total
v
v
v
v
v<%
vDimmynum,total,tt
vFormynum=16to2step-2
vtotal=total+mynum
vNext
vtt="总和为:
"&total
v%>
v<%=tt%>
v
v过程与函数
v两类过程:
Sub过程和Function函数
过程是编制程序时定义的一个语句序列，用来完成某种指定的操作。
函数是子程序的另一种形式,也是编制程序时定义的一个语句序列.与过程不同的是函数不以实现某种操作为目的,而仅是为了获得一个计算结果值.
这个结果值最终是通过函数名返回给调用者的.
vSub和Function的区别
vFunction可以返回值
vSub不返回值
vFunction可以当作一个变量用在程序中
vSub只能作为单独语句使用
v
vcontemp
vsubcontemp（）
vtemp=inputbox（"请输入华式温度：
",1）
vmsgbox"温度为"&celsius（temp）&"摄氏度"
vendsub
vfunctioncelsius（fdegrees）
vcelsius=（fdegrees-32）*5/9
vendfunction
v
输入与输出函数：
Inputbox（）实现对用户输入的数据程序进行处理并将处理信息反馈给用户。
Msgbox（）实现程序给用户提供信息提示窗口，接收用户的选择信息后加以处理反馈。
注：
这两个窗体函数仅能用在客户端脚本。
v错误处理
v“语法”错误
v错误处理
v“运行时”错误
v错误处理
vDoWithError.asp
vVBScript编写客户端脚本
vVBScript编写客户端脚本
v利用客户端脚本程序检验数据的有效性
v
vsubbutton_onclick
vdimtf
vsettf=document.form1
vifIsNumeric（tf.text.value）then
viftf.text.value<1ortf.text.value>10then
vmsgbox"请输入一个1到10之间的数字"
velsemsgbox"谢谢"
vendif
velse
vmsgbox"请输入一个数字"
vendif
vendsub
v
v
v
vsubbutton_onclick
vdimtheform
vsettheform=document.form1
viftheform.select.value>6andtheform.select.value<10then
viftheform.text2.value>20then
vmsgbox"金额为：
"&theform.text1.value*theform.text2.value*0.15
velseiftheform.text2.value>10then
vmsgbox"金额为：
"&theform.text1.value*theform.text2.value*0.05
velsemsgbox"金额为：
"&theform.text1.value*theform.text2.value*1
vendif
vendif
velse
viftheform.text2.value>20then
vmsgbox"金额为：
"&theform.text1.value*theform.text2.value*0.25
velseiftheform.text2.value>10then
vmsgbox"金额为：
"&theform.text1.value*theform.text2.value*0.15
velsemsgbox"金额为：
"&theform.text1.value*theform.text2.value*1
vendif
vendif
vendif
vendsub
v
v
升级会员 