<% Select Case Session("MM_UserAuthorization") Case"0" if Session("MM_Username") <> rstop("name") Then Response.Redirect("error1.asp") Case"1,2" if Session("MM_Username") <> rstop("name") Then Response.Redirect("edit1.asp") End Select %> ----------------------------------------------------------------------------------- Microsoft VBScript 编译器错误 (0x800A0400) 缺少语句 /dwmx2004/web/edite.asp, line 146 Case"1,2" if Session("MM_Username") <> rstop("name") Then 请教错在哪里?谢了

怎么CASE里头还有IF？

&lt;%
if Session("MM_Username") &lt;&gt; rstop("name") then
Select Case Session("MM_UserAuthorization")
Case"0"
    Response.Redirect("error1.asp")
Case else
        Response.Redirect("edit1.asp")
End Select
end if
%&gt;

<% Select Case Session("MM_UserAuthorization") Case "0" if Session("MM_Username") <> rstop("name") Then Response.Redirect("error1.asp") end if Case "1,2" if Session("MM_Username") <> rstop("name") Then Response.Redirect("edit1.asp") end if End Select %> 或

<% Select Case Session("MM_UserAuthorization") Case"0" if Session("MM_Username") <> rstop("name") Then Response.Redirect("error1.asp") Case"1,2" if Session("MM_Username") <> rstop("name") Then Response.Redirect("edit1.asp") End Select %>