Question

我正在使用asp经典（没有.net）我有一个用户列表，我一直在努力当用户（由id_rol订购）改变时，例如如果是，则放置一种标签用户在列表中查找第一个选项（“Todos”），这意味着他可以看到所有用户，但如果他看起来1可以看到id_rol = 1的10个用户，如果看起来是这个的12个位置列表它显示一个标签调用“编辑器”，并显示其他10个用户，我的问题是，在代码我告诉我，如果选项为0则显示TODO，如果是1则显示DIRECTOR和下面的用户，如果选择是12则显示DIGITADOR和所有用户描述，如果列表中的位置是22，则显示EDITOR并继续，

enter image description here rigth现在显示0,1,2和3位置的选项，但我需要它在0,1,12和22位置任何帮助？请。这是我的代码：

function cb_usuarios(cod_usuario)
'response.write seccion&"<*------"
sql=" select * from usuarios where 1=1"
'sql=" select * from usuarios where 1=1 order by id_rol asc"
if Session("id_perfil") ="1" then sql = sql &" and id_rol in(3,4)"
if Session("id_perfil") ="2" then sql = sql &" and id_rol=3"
if Session("id_perfil") ="3" then sql = sql &" and id_rol in(3,4,7)"
if Session("id_perfil") ="4" then sql = sql &" and id_rol in(1,7,6)"
if Session("id_perfil") ="6" then sql = sql &" and id_rol in(7,4)"
'sql = sql &" order by nombre "
 sql = sql &" order by id_rol "

'if(id_rol=1)then
'response.write director
'else
'response.write('esto es una prueba')
'response.write sql
Set rsx = Server.CreateObject("ADODB.Recordset")
rsx.Open SQL, conexion, 3
%>

Usuarios<select name="usuarios" class="filtros">
<option selected value="0">TODOS</option>
<option selected value="1">DIRECTOR</option>
<option selected value="12">DIGITADOR</option>
<option selected value="22">EDITOR</option>

<%
while not rsx.eof
if ( trim(rsx("usuario")) = trim(cod_usuario)) then
sel="Selected"
else
sel=""
end if 
%>
<option select value="<%=rsx("usuario")%>" <%=sel%>><%=rsx("nombre")%></option>
<%
rsx.movenext
wend
rsx.close
%></select><%
end function

Answer 1

这段代码成功了：

enter image description here

function cb_usuarios(cod_usuario)
'response.write seccion&"<*------"


     sql=" select * from usuarios where 1=1"
    'sql=" select * from usuarios where 1=1 order by id_rol asc"


            if Session("id_perfil") ="1" then sql = sql &" and id_rol in(3,4)"
            if Session("id_perfil") ="2" then sql = sql &" and id_rol=3"
    if Session("id_perfil") ="3" then sql = sql &" and id_rol in(3,4,7)"
    if Session("id_perfil") ="4" then sql = sql &" and id_rol in(1,7,6)"
    if Session("id_perfil") ="6" then sql = sql &" and id_rol in(7,4)"

        'sql = sql &" order by nombre "
     sql = sql &" order by id_rol "

    'if(id_rol=1)then
    'response.write director
    'else
    'response.write('esto es una prueba')






'   response.write sql
    Set rsx = Server.CreateObject("ADODB.Recordset")
    rsx.Open SQL, conexion, 3
%>

Usuarios<select name="usuarios" class="filtros">

        <option selected value="0">TODOS</option>





    <%
    while not rsx.eof
        if ( trim(rsx("usuario")) = trim(cod_usuario)) then
            sel="Selected"
        else
            sel=""
        end if 
                    if ( trim(rsx("id")) =9) then
                     %>
        <option select value="0" <%=sel%>>======DIRECTOR=======</option>
        <%
                      end if
                     if ( trim(rsx("id")) =47) then
                     %>
        <option select value="0" <%=sel%
>>======DIGITADOR=======</option>
        <%
                      end if
                  if ( trim(rsx("id")) =37) then
                  %>
        <option select value="0" <%=sel%>>=====EDITOR========</option>
        <%
        end if
        if ( trim(rsx("id")) =24) then
                  %>
        <option select value="0" <%=sel%>>=====SUPERVISOR
JEFE========</option>
        <%
        end if
        if ( trim(rsx("id")) =41) then
                  %>
        <option select value="0" <%=sel% 
 >>=====ADMINISTRADOR========</option>
        <%
        end if
        if ( trim(rsx("id")) =43) then
                  %>
        <option select value="0" <%=sel%
 >>=====SUPERVISOR========</option>
        <%
        end if

        if ( trim(rsx("id")) =29) then
                  %>
        <option select value="0" <%=sel%
 >>=====CODIFICACION========</option>
        <%
        end if      %>
        <option select value="<%=rsx("usuario")%>" <%=sel%>><%=rsx
 ("nombre")%></option>
        <%
        rsx.movenext
    wend
    rsx.close
%></select><%
 end function

Answer 2

select的语法是......

<select>
    <option value="1">unos</option>
    <option selected value="2">duos</option>

没有以下内容：选项选择值.... 选择是错误的仅选择的html是html

在asp中的组合框中选择了选项

2 个答案: