<%@ Language=VBScript %> <html>
<head> <title>用户组栏目授权</title> <meta name="generator" content="BPHTML 2002 Build 31a"> <meta name="date_time" content="2005-4-1 10:26:38"> <meta name="dc.creator" content="BPHTML 2002 Build 31a"> <meta name="dc.title" content="用户组栏目授权"> </head> <link rel="stylesheet" type="text/css" href="..css/tablePage.CSS">
<body bgcolor=#f7f5f8 >
<!--#include file="inc.asp"--> <% opendb my '连接数据库 Dim m %>
<table ></div><tr><td bgcolor="#5794E4" > <font style="font-family: 宋体;font-size: 12pt;color:#333333"></font></td></tr><tr><td width=990> </td></tr> <form method="POST" action="power_mlqx.asp" name="form"> <tr> <td align=left bgcolor="#C8DFFF">请选择授权栏目： <select name="jdid" size="1"> <option value="0" name="aa">请选择授权栏目</option> <% sql="select JDID,JDMC from SYS_WEB02 " '查询语句 searchtable my,sql,rs ''查询数据库 if not rs.eof then ''如果有这个调查记录 for i=1 to rs.recordcount Response.Write("<option value="&rs("jdid")&" >"&rs("jdmc")&"</option>") rs.movenext next closetable rs ''关闭表 end if %> </select> </td> </tr> <TR> <td bgcolor="#C8DFFF" > <font style=font-size:12pt;color:#333333 face=宋体>请选择用户组：</font> <select name="yhzmc" size="1"> <option value="0" name="aa">请选择用户组</option> <% 'sql1="select YHZMC,YHZBT,YHZLX,FWSD,SFSD,SSYHZ,YHZSM from SYS_User01" sql1="select * from sys_user01" searchtable my,sql1,rs2 ''查询数据库 if not rs2.eof then ''如果有这个调查记录 for i=1 to rs2.recordcount ' yhm=rs2("yhm") gname=rs2("yhzmc") gnameqm=rs2("yhzbt") Response.Write("<option value="&gname&">"&gname&"["&gnameqm&"用户组]</option>") rs2.MoveNext next response.Write "</select>" closetable rs2 end if %> </select> <input type="submit" value="查找" name="B1" ID="Submit1" class="button"></td>
</form> <% temp=trim(request("yhzmc")) yhm=trim(request("yhm")) jdid=trim(request("jdid")) jdmc=trim(request("jdmc")) if temp<>"" then %> <tr> <form method="POST" action="power_mlqxsub.asp" name="form"> <input type="hidden" name="yhzmc" value="<%=temp%>" ID="Hidden1"> <input type="hidden" name="jdid" value="<%=jdid%>" ID="Hidden1"> <input type="hidden" name="jdmc" value="<%=jdmc%>" ID="Hidden1"> <input type="hidden" name="yhm" value="<%=yhm%>" ID="Hidden1"> <td valign="middle" align="left" width="15%" bgcolor="#C8DFFF"> <p align="center">授权信息</td></tr> <tr> <td align=left colspan="3" bgcolor="#C8DFFE"> <table border="0" cellpadding="0" cellspacing="0" id="table1" width="776" height="65"> <tr> <td valign="top" colspan="3"></td> <td width="73"></td> <td></td> <td></td> <td></td> <td></td> <td></td> <td height="15"></td> </tr>
<tr> <td align="center"> 授权用户</td> <td colspan="3" align="center"> 授权目录ID</td> <td width="111" align="center"> 不可访问</td> <td align="center">只读</td> <td align="center"> 只写</td> <td align="center">可审核</td> <td align="center">可授权</td> <td height="15"></td> </tr> <% 'dim i i=1 sql="select yhm,yhzmc from sys_user05 where yhzmc='"&temp&"' " changetable my,sql,rs ''查询数据库 response.write " <input type=hidden name='ctlgCount' value=" & rs.recordcount & ">" DO while not rs.eof %>
<tr> <td align="center" colspan="2"> <input style="border:0 none;; background-color:#C8DFFE; text-align:center; float:left" name="yhm_<%=i%>" value=<%=rs("yhm")%> size="15" > </td> <td align="left" colspan="2"> <input name="jdid_<%=i%>" value="<%=jdid%>" style="border:0 none;; background-color:#C8DFFE; text-align:center" size="11" ></td> <td align="center"><input type=radio name="checknum_<%=i%>" value=0 ></td> <td align="center" width="105"> <input type=radio name="checknum_<%=i%>" value=1> </td> <td align="center" width="105"><input type=radio name="checknum_<%=i%>" value=2> </td> <td align="center" width="105"><input type=radio name="checknum_<%=i%>" value=3> </td> <td align="center" width="105"><input type=radio name="checknum_<%=i%>" value=4> </td> <td height="20"></td> </tr> <% i=i+1 rs.movenext loop closetable rs Response.Write("</td></tr>")%> <tr> <td valign="top" colspan="9"> </td> <td height="15" width="12"></td> </tr> </table> </td></tr>
<tr> <td colspan="3" height="35" bgcolor="#C8DFFE"><p align="center"> <input onclick="LockChanges();" type="submit" value="提 交" name="B1" class="button" ID="Submit1"> <input type="reset" value="重 置" name="B2" class="button" ID="Reset1"></td> </tr>
</td> </tr>
<% closedb my end if %> </body> </html> 上面的源码,我想实现的是,通过选择"授权栏目"和"用户组"查找出数据库中已经满足我选择的条件的权限radio是哪个为check
