select case 多分支语句 - 曲径通幽论坛

   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%>