Fatal编程技术网
  • asp-classic/
  • Asp classic Microsoft VBScript编译错误'；800a041f'；：意外'；下一个'；

Asp classic Microsoft VBScript编译错误'；800a041f'；：意外'；下一个'；

asp-classic vbscript

Asp classic Microsoft VBScript编译错误'；800a041f'；：意外'；下一个'；,asp-classic,vbscript,Asp Classic,Vbscript,我正在尝试用VBScript/ASP编写一个多人tic-tac-toe游戏 Microsoft VBScript编译错误“800a041f”：意外的“下一步” 以下是发生上述错误的代码： 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) =

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

Microsoft VBScript编译错误“800a041f”：意外的“下一步”

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

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
x=1到3的

如果AllEqual（arr（x，1），arr（x，1），arr（x，1）），那么
如果arr（x，1）=GetText（currentplayer），那么
bWinner=currentplayer
否则，如果arr（x，1）=GetText（0），则
”“没什么可做的
其他的
如果GetNumber（arr（x，1））currentplayer那么
bWinner=GetNumber（arr（x，1））
如果结束
如果结束
如果结束
下一个
下面是错误消息的输出：

/iTicTic/play.asp，第82行

Next ^ 下一个 ^ 我做错了什么

编辑：此处完整代码：

我认为这是由于使用了
，否则如果
，正确的语法是
ElseIf
。基本上，对于
Else If
来说，它是一个新的
If
语句，需要它自己的结束
End If
语句。
这就是文件的全部吗？如果您来这里试图在循环中使用
Next
：VBScript中没有
continue
。它只能产生800A041F。