VBScript总结.docVIP

VBScript脚本总结 Sub语句： 将VBScript与HTML结合在一起响应事件的三种方式。 方式一： script language=”vbscript” !- - Sub button1-onclick Msgbox”hellow,word!” End sub - - /script/head bodyform name=f1 input name=”button1”type=button value=”单击此处” /form/body 方式二： script language=”vbscript” !- - Sub b1() Msgbox”hellow,word!” End sub - - /script/head bodyform name=f2 input type=”button” name=button2 value=”单击此处” onclick=b1() /form/body 方法三： script language=”vbscript” for=”button3” event=”on-click” Msgbox”hellow,word” /script/head bodyform input name=button3 type=”botton” value=”单击此处” /form/body 实例应用: body script language=”vbscript” Dim var1 result Var1=0 Result=var1 Sub name1(v1) V1=v1+1 Result=doadd2(v1) Msgbox(result) End sub Function doadd2(v2) //这里的v2是隐式声明的一个变量，它的值参照上一个doadd2(v1)提供， V2=V2+1 doadd2=v2+10 end function msgbox(result) /scriptform input type=”button” name=”chengealue” onclick=changealue(5) value=”查看结果” /form /body 该实例的效果是首先弹出一个对话框显示0，单击查看结果后显示17 输入对话框inputbox的参数： Inptbox(prompt [,title] [,default] [,xpos] [,ypos]) Promt:表示在输入框内的字符串表达式 Title：表示输入框的头， Default：默认显示在输入栏的内容。 Xpos、ypos表示页面中出现inputbox的x、y的坐标 示例: script language=”vbscript” Dim inputdate Inputdate=inputbox(“输入你的文字:”，“标题内容”，“1234”) Msgbox（inputdate） /script 显示对话框msgbox的参数： Msgbox(prompt [,buttons] [,title]) Buttons表示显示框出现的样式，如只出现确定按钮，出现确定、取消，或显示、忽略、取消等，还有出现的图标 示例： script language=”vbscript” Sub button1-onclick() Dim msgboxname Msgboxname=msgbox(“选择按下的按钮”，1+vbexclama+...，“按钮对话框”) End sub /script form name=f1input type=”button” name=”button1” value=”msgbox” /form/body Document 对象： 主要功能是提取对象里面的内容，控制对象的显示。 htmlhead titledocument对象/title script language=”vbscript” !- - Sub button-onclick //单击名为Button的按钮触发sub事件 Dim theform,text1v Set theform=document.formname //set可以加可以不加，表示用theform代替formname的对象 Text1v=theform.text1.value //text1v代替text1的值。 Msgbox(text1v) End sub - - /script/head body form name=”formname” input type=”text” name=”text1” size=”3” input type=”