Question

asp 中关于while......wend 的问题

<%
while not rs.eof

IF rs("flag")=0 then '权限为用户
if doing=0 then

%>
<table width="431" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="93"><%=rs("id")%></td>
<td width="93"><%=rs("name")%></td>
<td width="86"><%=rs("psd")%></td>
<td width="83"><%=rs("money")%></td>
<td width="38"><a href="do.asp?action=delete&id=<%=rs("id")%>">删除</a></td>
<td width="38"><a href="do.asp?action=modify&id=<%=rs("id")%>">修改</a></td>
</tr>
</table>
<%
end if
If doing=1 then

if cstr(rs("id"))<>a then
%>
<table width="431" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="93"><%=rs("id")%></td>
<td width="93"><%=rs("name")%></td>
<td width="86"><%=rs("psd")%></td>
<td width="83"><%=rs("money")%></td>
<td width="38"><a href="do.asp?action=delete&id=<%=rs("id")%>">删除</a></td>
<td width="38"><a href="do.asp?action=modify&id=<%=rs("id")%>">修改</a></td>
</tr>
</table>
<%
else if cstr(rs("id"))=a then

%>

<table width="431" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="91"><form id="form1" name="form1" method="post" action="">
<label>
<input type="text" name="textfield" width="50" value=<%=rs("id")%> />
</label>
</form> </td>
<td width="93"><form id="form2" name="form2" method="post" action="">
<label>
<input type="text" name="textfield2" width="50" value=<%=rs("name")%> />
</label>
</form> </td>
<td width="89"><form id="form3" name="form3" method="post" action="">
<label>
<input type="text" name="textfield3" width="50" value=<%=rs("psd")%> />
</label>
</form> </td>
<td width="81"><form id="form4" name="form4" method="post" action="">
<label>
<input type="text" name="textfield4" width="50" value=<%=rs("money")%> />
</label>
</form> </td>
<td width="38"><label></label></td>
<td width="39"> </td>
</tr>
</table>
<%
end if
End if
end if
rs.movenext
WEND
%> </td>
</tr>
</table>
</body>
</html>
上面是详细代码
下面是除掉非asp代码
<%
while not rs.eof
IF rs("flag")=0 then '权限为用户
if doing=0 then
%>

<%
end if
If doing=1 then
if cstr(rs("id"))<>a then
%>

<%
else if cstr(rs("id"))=a then
%>
<%
end if
End if
end if
rs.movenext
WEND
%> </td>
</tr>
</table>
</body>
</html>
总是弹缺少语句是怎么回事呢?标注位置是最下面的WEND,提示那里缺少语句

Answer 1

错误应该在：

else if cstr(rs("id"))=a then

else if ..Then
ElseIf 中间不能有空格

Answer 2

IF rs("flag")=0 then '权限为用户

好像没有end if的结束符.