1.asp 代码,用记事本写的
<%
Dim a '定义变量A
a=10 '假设a为12,改变a得到case结果
Select Case a '开始
Case 1,2,3,4 '输入1或2或3或4
response.write "你好" '输出你好
Case 5,6,7,8 '输入5或6或7或8
response.write "他好"
Case 9,10,11,12 '输入9或10或11或12
response.write "我好"
End select '结束
%>
<%
'dim a 不应重复定义
a=1 '定义a初值为1,后面循环时累加
%>
</P>
<%
Do While a<10 ' 循环10次
response.write "123<br>;" '输出123后换行
a=a+1 '循环加1
loop '循环
%>