<html>
<body>
<script language="vbscript">
<!--
Sub message
s=msgbox("Hello World",vbOKCancel)
select case s
case 1
msgbox "OK"
case 2
msgbox "キャンセル"
case 3
msgbox "中止"
case 4
msgbox "再試行"
case 5
msgbox "無視"
case 6
msgbox "はい"
case 7
msgbox "いいえ"
end select
End Sub
-->
</script>
<input type="button" value="ボタン" onclick="message">
</body>
</html>
|