联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
<html>
<body>
<hr color="blue">
<input type="submit" name="btnl" value="click to test the code">
<script language="VBS">
<! - -
sub btnl _ onclick
dim message
message="hello world!"
msgbox message, 0, "tester result"
end sub
- - >
</script>
</body>
</html>
<html>
<body>
<hr color="blue">
<input type="submit" name="btnl" value="click to test the code" onClick="btnl()">
<script language="VBScript">
sub btnl
dim message
message="hello world!"
msgbox message, 0, "tester result"
end sub
</script>
</body>
</html>
<html>
<body>
<hr color="blue">
<input type="submit" name="button1" value="click to test the code">
<script language="VBS">
<!--
sub button1_onclick()
dim message
message="hello world!"
msgbox message, 0, "tester result"
end sub
-->
</script>
</body>
</html>
<html>
<body>
<hr color="blue">
<input type="button" name="button" value="click to test the code 1" onClick="button('aaa!')">
<br>
<input type="button" name="button" value="click to test the code 2" onClick="button('bbb!')">
<script language="VBScript">
sub button(str)
msgbox str, 0, "tester result"
end sub
</script>
</body>
</html><html>
<body>
<hr color="blue">
<input type="button" name="button" value="click to test the code 1" onClick="button1('aaa!')">
<br>
<input type="button" name="button" value="click to test the code 2" onClick="button2('bbb!')">
<script language="VBScript">
sub button1(str)
msgbox str, 0, "tester result 1"
end sub
sub button2(str)
msgbox str, 0, "tester result 2"
end sub
</script>
</body>
</html>