admin_power.asp

学生报名管理系统 一个基于asp的网站

<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->
<STYLE TYPE="text/css">
	.power_ul { width:90%;}
	.power_ul li { float:left; width:120px;font-weight: normal;padding-top:3px;padding-bottom:3px;}
	.power_ul fir {clear:left;font-weight: bold;border-bottom:1px dotted #CCCCCC;}
	.power_ul li button {width:120px;text-align:left;padding-top:3px; }
</STYLE>

<%
Login_Judge
Ispower 1045
id=che(request("id"))
action=che(request("action"))
If action="" Then
	If id="" Then errormsg "参数错误"
	Sql_Lists="a_UserId,a_UserName,a_Power"
	Sql_tables="Admin_User"
	Sql_Conditions=" ID = "&id
	sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
	user_edit = connopen(sql)
	%>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<form name="del" method="Post" action="admin_power.asp?action=set">
<TR><TD colspan=2 class="art_tit zq"><A HREF="admin_user.asp?action=list">返回管理员列表</A></TD></TR>
	<%
	If isArray(user_edit) Then
		response.write "<TR><TD class=""art_info2 zq"">帐号:"&user_edit(0,0)&"</TD></TR>" & vbcrlf
		response.write "<TR><TD class=""art_info2 zq"">姓名:"&user_edit(0,0)&"</TD></TR>" & vbcrlf
	Else
		 errormsg "参数错误"
	End If
	Sql_Lists="id,Description,DescriptionNo"
	Sql_tables="admin_power"
	Sql_Conditions=" Grading =0 "
	sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
	power_edit = connopen(sql)
	If IsArray(power_edit) Then
		response.write "<TR><TD class=""art_info2 zq"">" & vbcrlf
		For power_top_i=0 To UBound(power_edit,2)
			response.write "<ul class=""power_ul"" id=""power_id_"&power_top_i&""">"
			response.write "<li><button onClick=""power_chkll('power_id_"&power_top_i&"')"">"&power_edit(1,power_top_i) &"</button></li>" & vbcrlf
			Sql_Lists="id,Description,DescriptionNo"
			Sql_tables="admin_power"
			Sql_Conditions=" Grading ="&power_edit(2,power_top_i)
			sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
			power2_edit = connopen(sql)
			If IsArray(power2_edit) Then
				For power_top2_i=0 To UBound(power2_edit,2)
					response.write "<li><input name='pID' type='checkbox' class=""chek"" id=""pID"" "
					response.write "value="""&power2_edit(2,power_top2_i)&""" style=""border: 0px;"" "
					If user_edit(2,0)<>"" Then
					If Replace(user_edit(2,0),"*"&power2_edit(2,power_top2_i)&"*","")<>user_edit(2,0) Then response.write "checked "
					End If
					response.write " >"&power2_edit(1,power_top2_i) &"</li>" & vbcrlf
				Next
			End If	
			response.write "</ul>" & vbcrlf & vbcrlf
		Next 
		response.write "<ul class=""power_ul""><li><button onClick=""power_chkll('del')"">全选/取消</button></li></ul></TD></TR>" & vbcrlf
	End If 
%>
<TR><TD class="art_info2"><INPUT TYPE="submit" style="margin-left:20px;" value="确定"><INPUT TYPE="reset"></TD></TR>
<INPUT TYPE="hidden" NAME="id" value="<%=id%>">
</form>
</table>
<H1></H1>
<%
ElseIf action="set" Then 
	pID=che(request("pID"))
	If id="" Then errormsg "参数错误!"
	If pID<>"" Then pID="*" & Replace(pID,", ","*") & "*"
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [Admin_User] WHERE id="&id
	rs.Open Sql, Conn, 1, 3
	If Not rs.Eof Then
		rs("a_Power") = pID
		rs.Update
	Else
		Response.Redirect "admin_user.asp?action=list"
	End If
	rs.close
	rightmsg "admin_power.asp?id="&id,""
End If
%>
<!--#include file="admin_page_footer.asp"-->