正在加载图片...
对象 例3-2-3 Option Explicit Dim intx·声明脚本级变量 intx=1·给脚本级变量赋值 Setlocalvariable·调用过程修改变量的值 Response. Write intx'将脚本级变量的值发送到浏览器,值为2 Sub set local variable intx=2·给脚本级变量赋值 End Sub 例3-24 <HTML < TITLE> MsgBOx使用方法</ TITLE> <Script Language="VBScript"> 定义子过程 Sub but ton1 Onclick Dim int Result intResult= MsgBOx("你真的确定要提交吗?"chr(13) chx(10)&"提交后数据不可再更改。",4+32,"请你选择:") 当点击不同按钮时给出不同响应 if intResult=6 then MsgBox("提交成功!"&chr(13)&chr(10)&"请点击确定关闭窗口!") else MsgBOx("数据未提交成功!") end if End sub </Sc1 <INPUT type=button" name="button1"value=Ex"> </BODY> </HTML> 例3-2-5: < TITLE> InputBox函数的使用</TTLE>第 4 章 Response 与 Request 对象 9 %> 例 3-2-3： <% Option Explicit Dim intX '声明脚本级变量 intX=1 '给脚本级变量赋值 SetLocalVariable '调用过程修改变量的值 Response.Write intX '将脚本级变量的值发送到浏览器，值为 2 Sub SetLocalVariable intX=2 '给脚本级变量赋值 End Sub %> 例 3-2-4： <HTML> <HEAD> <TITLE>MsgBox 使用方法</TITLE> <Script Language="VBScript"> <!— ’定义子过程 Sub button1_OnClick Dim intResult intResult=MsgBox("你真的确定要提交吗？"&chr(13)&_ chr(10)&"提交后数据不可再更改。",4+32,"请你选择：") ’当点击不同按钮时给出不同响应 if intResult=6 then MsgBox("提交成功！"&chr(13)&chr(10)&"请点击确定关闭窗口！") else MsgBox("数据未提交成功！") end if End Sub --> </Script> </HEAD> <BODY> <INPUT type="button" name="button1" value="提交"> </BODY> </HTML> 例 3-2-5： <HTML> <HEAD> <TITLE>InputBox 函数的使用</TITLE>