Question

asp if可以输出 select case不行

求高手解答
代码如下：

select case request("action")
case "addnav" : call navadd
end select
sub navadd
if trim(request("title"))<>"" or trim(request("title"))<>"菜单名称" then
set rs1=server.createobject("adodb.recordset")
rs1.open "select * from navsort",conn,3,3
if trim(request("leve"))<>"" or tirm(request("leve"))<>"==请选择菜单级别==" then
if request("leve")=1 then
if request("s1")<>"" or request("s1")<>"==请选择一级菜单==" or request("s2")<>"" or request("s2")<>"==请选择二级菜单==" then
alertmsgboxgo "对不起，菜单级别与菜单选项不符\n\n请认真填写，级别1不能选择下拉菜单\n\n级别2可选择所属的一级菜单做子菜单\n\n级别3可选择所属的一级菜单下的二级菜单做子菜单","-1"
else
rs1.addnew
rs1("sortleve1")=request("leve")
rs1("sortname")=request("title")
end if
end if
if request("leve")=2 then
if request("s2")<>"" or request("s2")<>"==请选择二级菜单==" then
alertmsgboxgo "对不起，菜单级别与菜单选项不符\n\n请认真填写，级别1不能选择下拉菜单\n\n级别2可选择所属的一级菜单做子菜单\n\n级别3可选择所属的一级菜单下的二级菜单做子菜单","-1"
elseif request("s1")<>"" or request("s1")<>"==请选择一级菜单==" then
rs1("topsortid")=request("s1")
rs1("sortleve1")=request("leve")
rs1("sortname")=request("title")
else
alertmsgboxgo "对不起，一级菜单不能为空！！！\n\n请认真填写谢谢！！！","-1"
end if
end if

if request("leve")=3 then
if request("s2")<>"" or request("s2")<>"==请选择二级菜单==" or request("s1")<>"" or request("s1")<>"==请选择一级菜单==" then
rs1("topsortid")=request("s1")
rs1("parentid")=request("s2")
rs1("sortleve1")=request("leve")
rs1("sortname")=request("title")
else
alertmsgboxgo "对不起，一级、二级菜单不能为空！！！\n\n请认真填写谢谢！！！","-1"
end if
end if
else
rs1("sortleve1")=1
rs1("sortname")=request("title")
end if

rs1.update
rs1.close
set rs1=nothing
else
alertmsgboxgo "请输入菜单名称\n\n级别菜单请在下拉框中选择\n\n顶级菜单请直接提交\n\n谢谢！！！","-1"
end if

set rs2=server.createobject("adodb.recordset")
rs2.open "select * from navsort where sortname='"&tirm("title")&"'",conn,1,3
if rs2("parentid")<>"" or rs2("topsortid")<>"" then
rs2("sortstatus")=true
else
rs2("parentid")=rs2("id")
rs2("topsortid")=rs2("id")
end if
if rs2("id")=rs2("topsortid") and rs2("topsortid")=rs2("parentid") then
rs2("sortpath")=rs2("id")
elseif rs2("topsortid")=rs2("parentid") then
rs2("sortpath")=rs2("topsortid")&","&rs2("id")
else
rs2("sortpath")=rs2("topsortid")&","&rs2("parentid")&","&rs2("id")
end if

rs2.update
rs2.close
set rs2=nothing
end sub

Answer 1

select case request("action")
case "addnav"
call navadd
end select
中间为何有个冒号：，用不着的
一般select case 都用在选项较多的情况下，如：

select case request("action")
case "a"
call a
case "b"
call b
end select
条件少的判断，直接用 if then end if
if request("action")= "addnav"
then call navadd
end if
就这样可以了

追问

我试过不行
条件很多 我只不过是提取一段不行的来提问
能否帮我解答一下

追答

a = request("action")
select case a
case "a"
call a
case "b"
call b
end select
先赋值，再试试。

追问

我有赋值 可是不行 不知是哪里问题
用if都好好的

追答

select case unit
case "港城"
new_jmb=rs_kpi("gc")
old_jmb=rs_kpi_old("gc")
case "惠南"
new_jmb=rs_kpi("hn")
old_jmb=rs_kpi_old("hn")
case "康桥"
new_jmb=rs_kpi("kq")
old_jmb=rs_kpi_old("kq")

end select

我正在用的代码，没问题的。
a=trim(request("action")
是不是传过来的参数有什么问题啊。或者你试试直接写上值。
a = addnav

Answer 2

那就用 if

追问

能否解释一下