<title>用户权限设置 </title> </head> <% If Request.Form("submit") <>"" then 'response.Write (request("qux")) response.Write(Request.QueryString("Uid")) 'conn.Execute("UPDATE bg_usr SET qx ='"&request("qux")&"' WHERE id = "&request.Form("Uid")&"") End if
%> <body> <form name="form" method="POST" action="QuXi.asp"> <table border="1" cellspacing="0" width="90%" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF"> <tr> <td width="15%" align="center" bgcolor="#C1E0FF"> <strong>姓名 </strong> </td> <td width="15%" align="center" bgcolor="#C1E0FF"> <strong>所在部门 </strong> </td> <td width="15%" align="center" bgcolor="#C1E0FF"> <strong>职位 </strong> </td> <td width="10%" align="center" bgcolor="#C1E0FF"> <strong>收通知 </strong> </td> <td width="10%" align="center" bgcolor="#C1E0FF"> <strong>发通知 </strong> </td> <td width="10%" align="center" bgcolor="#C1E0FF"> <strong>收邮件 </strong> </td> <td width="10%" align="center" bgcolor="#C1E0FF"> <strong>发邮件 </strong> </td> <td width="10%" align="center" bgcolor="#C1E0FF"> <strong>操作 </strong> </td> </tr> <% sql = "SELECT * FROM bg_usr" Set rs = Conn.Execute(sql) If rs.EOF Then Response.Write " <tr> <td colspan=4 align=center> <font style='COLOR:Red'>目前还没有记录。 </font> </td> </tr> </table>" Else Do While Not rs.EOF If rs("flag") then sql2 = "SELECT * FROM bg_bm WHERE num = "&rs("depnum")&"" Set bmrs = Conn.Execute(sql2) intro=split(rs("qx"),",") %> <tr> <td align="center"> <%=rs("name")%> </td> <td align="center"> <%=bmrs("dep")%> </td> <td align="center"> <%=rs("pos")%> </td> <td align="center"> <input name="qux" type="checkbox" value="1" <%for i=0 to ubound(intro) if intro(i)=1 then response.Write "checked" End If next%>> </td> <td align="center"> <input name="qux" type="checkbox" value="2" <%for i=0 to ubound(intro) if intro(i)=2 then response.Write "checked" End If next%>> </td> <td align="center"> <input name="qux" type="checkbox" value="3" <%for i=0 to ubound(intro) if intro(i)=3 then response.Write "checked" End If next%>> </td> <td align="center"> <input name="qux" type="checkbox" value="4" <%for i=0 to ubound(intro) if intro(i)=4 then response.Write "checked" End If next%>> </td> <td align="center"> <input name="submit" type="submit" value=" 提交 " onClick="window.alert('添加成功')" > </tr>