--假设你的表名为: tb
--刘希模、b314、n63,对应的字段分别为: fd1,fd2,fd3select re='<table width="100%" border="0" cellspacing="0" cellpadding="0" style="display:none" parent="tbl63" level="2">'
union all
select '
<tr><td width="30"></td>
'+'<td align="left"><input type="checkbox" name="'+fd3+'" id="'+fd2
+'" value="'+fd1+'" level="2" checktype="emp"><label for="'+fd2
+'">'+fd1+'</label>
</td></tr>'
from tb
union all
select '
</table>'

解决方案 »

  1.   

    --示例--示例数据
    create table tb(fd1 varchar(10),fd2 varchar(10),fd3 varchar(10))
    insert tb select '刘希模','b314','n63'
    union all select '刘模希','b341','n36'
    union all select '模刘希','b142','63n'
    go--假设你的表名为: tb
    --刘希模、b314、n63,对应的字段分别为: fd1,fd2,fd3
    select re='<table width="100%" border="0" cellspacing="0" cellpadding="0" style="display:none" parent="tbl63" level="2">'
    union all
    select '
    <tr><td width="30"></td>
    '+'<td align="left"><input type="checkbox" name="'+fd3+'" id="'+fd2
    +'" value="'+fd1+'" level="2" checktype="emp"><label for="'+fd2
    +'">'+fd1+'</label>
    </td></tr>'
    from tb
    union all
    select '
    </table>'
    go--删除测试
    drop table tb/*--测试结果re                                                                                                                                                                                                           
    ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 
    <table width="100%" border="0" cellspacing="0" cellpadding="0" style="display:none" parent="tbl63" level="2"> <tr><td width="30"></td>
    <td align="left"><input type="checkbox" name="n63" id="b314" value="刘希模" level="2" checktype="emp"><label for="b314">刘希模</label>
    </td></tr> <tr><td width="30"></td>
    <td align="left"><input type="checkbox" name="n36" id="b341" value="刘模希" level="2" checktype="emp"><label for="b341">刘模希</label>
    </td></tr> <tr><td width="30"></td>
    <td align="left"><input type="checkbox" name="63n" id="b142" value="模刘希" level="2" checktype="emp"><label for="b142">模刘希</label>
    </td></tr></table>(所影响的行数为 5 行)
    --*/
      

  2.   

    非常感谢!小弟不才,能否帮小将以下代码转为SQLfunction getrs(k,p)
    set rs=server.createobject("ADODB.Recordset")
    set rss=server.createobject("ADODB.Recordset")
    rs.Open "Select * from manage_dept where (id in (select distinct deptid from manage_user where id<>1 and leave=0) or id in(select parent from manage_dept )) and parent="&p&" order by number",source,3,3
    while not rs.eof 
    if p=0 then
    %>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" parent="tbl<%=rs("parent")%>" level="<%=k%>">
    <%else %>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" style="display:none" parent="tbl<%=rs("parent")%>" level="<%=k%>">
    <%end if%>
    <tr>
        <% if rs("parent")<>0 then '--第一级部门无需缩进 %>
    <td width="30"></td>
    <% end if %>
    <td id="tbl<%=rs("id")%>">
    <input type="checkbox" name="dept<%=rs("id")%>" value="checkbox" onclick="check(this);" level="<%=k%>">
    <a href="#" onclick="show(tbl<%=rs("id")%>);"><%=rs("deptname")%></a>
    <%
    sqls="Select * from manage_user where id<>1 and leave=0 and deptid="&rs("id")&" order by code"
    rss.Open sqls,source,3,3
    %>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" style="display:none" parent="tbl<%=rs("id")%>" level="<%=k+1%>">
    <%
    intCount=0
    while not rss.eof
    if intCount mod 3 = 0 then '-- 换行
    %>
    <tr><td width="30"></td>
                    <%
    end if
    %>
    <td align="left"><input type="checkbox" name="n<%=rs("id")%>" id="b<%=rss("id")%>" value="<%=rss("id")%>" level="<%=k+1%>" checktype="emp"><input type="hidden" name="user<%=rss("id")%>" value="<%=rss("name")%>"><label for="b<%=rss("id")%>"><%=writename(rss("name"))%></label><%if instr(application("onlinewy"),"["&rss("id"))>0 then%><font color="red">(在线)</font>
    <%end if%></td>
    <%
    if intCount mod 3 = 3 then '-- 换行
    %>
    </tr>
    <%
    end if
    intCount=intCount+1
    rss.movenext
    wend
    %>
    </table>
    <%
    rss.close 
    getrs k+1,rs("id")
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>" rs.movenext
    wend
    rs.close
    end function