<script language="vbscript">
Sub Btn1_Click()
MsgBox "点击事件"
End Sub
Sub Btn1_MouseOver()
MsgBox "鼠标经过"
End Sub
</script>
<form>
<input type="button" name="Btn1" onClick="Btn1_Click()" value=点击事件 >
<input type="button" name="Btn1" onMouseOver="Btn1_MouseOver()" value=鼠标经过 >