select case 多分支语句

easy

select case 多分支语句的基本格式为：

select case 条件变量
  case 条件值1
             条件值1成立则执行此处语句
  case 条件值2
             条件值2成立则执行此处语句
  case ... ...

    case else
             上面条件都不成立则执行此处语句

end select

一个真实的例子：

     select case action
           case "news"
                Response.Redirect("admin_news.asp")
           case "prod"
                Response.Redirect("admin_prod.asp")
           case "order"
                Response.Redirect("admin_order.asp")
           case "faq"
                Response.Redirect("admin_faq.asp")
           case "client"
                Response.Redirect("admin_client.asp")
           case "paytype"
                Response.Redirect("admin_paytype.asp")
           case "manager"
                Response.Redirect("admin_manager.asp")
           case "config"
                Response.Redirect("admin_config.asp")
           case "adv"
                Response.Redirect("admin_adv.asp")
           case "feedback"
                Response.Redirect("admin_feedback.asp")
           case "clearall"
                Response.Redirect("clearall.asp")
           case "password"
                username=session("admin")
                Set rs = conn.Execute("select * from admin where username='"&username&"'")
                %>
                <form method="post" action="admin.asp?action=modifypost">
                <p align="center"><b>管理员密码修改</b></p>
                <p align="center">用户名称
                <input type="text" name="Username" size="11" value="<%=rs("username")%>"> <br>
                <br>用户密码 <input type="password" name="Password" size="11" value="<%=rs("password")%>"><INPUT name=id TYPE="hidden" value=<%=rs("id")%>><br>
                <br> <input type="submit" name="Submit" value="确认">
                <input type="reset" name="Submit2" value="复位"></p></form>
                <%   
                rs.close
                conn.close
                set rs=nothing
                set conn=nothing
      
           case else
            if request.form("id")="" then
            %>
                <script language="javascript">
                if     (confirm("操作错误,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
                  location.href="admin.asp";
                else
                  location.href="quit.asp";
                </script>
            <%
            else
            end if
            end select%>

action 变量是用户所做的点击动作，然后通过 select case 进行对号入座的判断，若是发生匹配，则重定向到(Response.Redirect())到相应的页面去处理。如果没有一个选项匹配，那么会有操作错误的提示。