案例：ASP/ADO/VBScript案例     状态：不可编辑再运行    进入竖版
 运行结果　
​x
 
1
<html>
2
<body>
3
​
4
<%
5
Dim fname(5),i
6
fname(0) = "George"
7
fname(1) = "John"
8
fname(2) = "Thomas"
9
fname(3) = "James"
10
fname(4) = "Adrew"
11
fname(5) = "Martin"
12
​
13
For i = 0 to 5
14
      response.write(fname(i) & "<br />")
15
Next
16
%>
17
​
18
</body>
19
</html>