sub btnShowt_onClick()
    dim counter,sum
counter=1
sum=0
do while counter <= 100
    sum = sum + counter
    counter = counter + 1
Loop
MsgBox "1+2+3+...+100="&sum&"。"&,vbOnlyOk+vbInformation,"do 循环语句应用示例"
End sub        
</script>



<form name="form1" method="post" action="">
  <input type="button" name="btnShowt" value="按钮">
</form>

[此贴子已经被作者于2005-3-24 18:03:43编辑过]

<script language=VBScript> sub btnShowt_onClick() dim counter,sum counter=1 sum=0 do while counter <= 100 sum = sum + counter counter = counter + 1 Loop MsgBox "1+2+3+...+100=" & sum & "。" ,vbOnlyOk+vbInformation, "do 循环语句应用示例" ',vbOnlyOk前多了一个& End sub </script>

<form name="form1" method="post" action=""> <input type="button" name="btnShowt" value="按钮"> </form>

MsgBox()函数是在服务器端运行.

楼主的代码在IE中打开时应该会有类似这样意思的出错提示-----:"权限不足" MsgBox行

楼主自己干吗不先测试下再求帮助呢?

晕倒，人家是客户端脚　本