案例:ASP/ADO/VBScript案例     状态:可编辑再运行    进入竖版
 运行结果 
x
 
1
<html>
2
3
<head>
4
<script type="text/vbscript">
5
sub mySub()
6
  msgbox("这是一段子程序。")
7
end sub
8
</script>
9
</head>
10
11
<body>
12
<script type="text/vbscript">
13
call mySub()
14
</script>
15
<p>子程序不返回结果。</p>
16
</body>
17
</html>
18