<HTML>
<HEAD><TITLE>在表单中使用按钮控件</TITLE>
<SCRIPT LANGUAGE="VBSCRIPT">
SUB MYSUB()
AB="这是按钮的单击事件"
MSGBOX AB
END SUB
SUB MYSUB1()
Window.location.href=http://bianceng.cn
end sub
</SCRIPT>
</HEAD>
<BODY>
<center><H3>调用事件过程</H3><HR WIDTH="70%" color="#009999">
<INPUT TYPE="BUTTON" NAME="BUTTON" VALUE="事件" ONCLICK="MYSUB">
<INPUT TYPE="BUTTON" NAME="BUTTON1" VALUE="网易" ONCLICK="MYSUB1">
</center>
</BODY>
</HTMl>