Microsoft VBScript编译错误'800a041f':意外'下一步'

Question

我正在尝试用VBScript/ASP编写一个多人tic-tac-toe游戏.

以下是发生上述错误的代码:

For x = 1 To 3
 If AllEqual(arr(x,1),  arr(x,1), arr(x,1)) Then
  If arr(x,1) = GetText(currentplayer) Then
   bWinner = currentplayer
  Else If arr(x,1) = GetText(0) Then
   'nothing to do
  Else
   If GetNumber(arr(x,1)) <> currentplayer Then
    bWinner = GetNumber(arr(x,1))
   End If
  End If 
 End If
Next

这是错误消息的输出:

/iTicTic/play.asp,第82行

Next
^

我在这做错了什么？

谢谢!伊凡

编辑:完整代码:http://pastebin.com/BcR4HZ4a

Answer 1

我相信这是由于使用Else If,正确的语法是ElseIf.基本上Else If它是作为一个新的If声明,需要它自己的结束End If声明.