<%
subaction = Request("subaction")
if subaction = "delete" then	'确认删除
	adminid = Request("adminid")
	adminid = 0+adminid
	if (adminid > 0) then
		sql="DELETE FROM bg_adminUser WHERE id="& adminid
		conn.Execute(sql)
		DisplayMessage "您成功的删除了此操作员！", false
	else
		DisplayMessage "请先选择要修改的操作员！", false
	end if
elseif subaction = "select" then '显示确认信息
	adminid = Request("adminid")
	adminid = 0+adminid
	if adminid > 0 then
		sql="SELECT name FROM bg_adminUser WHERE id="& adminid
		set rs = conn.Execute(sql)
		if not rs.Eof then
%>
<br>
<br>
<table border="0" align="center" width="300" bordercolorlight="#CCE0CF" bordercolordark="#FFFFFF">
<form action="functions.asp" method="post">
<input type="hidden" name="action" value="<% =action %>">
<input type="hidden" name="subaction" value="delete">
<input type="hidden" name="LOGINID" value="<%=LOGINID%>">
<input type="hidden" name="adminid" value="<%=adminid%>">
  <tr class="ListTableHeader">
    <td background="images/TableHeaderBg.gif" nowrap><b>删除操作员 <% =rs("name") %>：</b></td>
  </tr>
  <tr>
    <td class="InputTableRow" align="center">请您确认！</td>
  </tr>
  <tr class="MainPageBar" height="26">
    <td align="right"><input type="submit" name="Submit" value=" 确 定 " class="ButtonReply"></td>
  </tr>
</form>
</table>
<%
		else
			DisplayMessage "系统故障，操作失败！", false
		end if
		rs.Close
	else
		DisplayMessage "请先选择要修改的操作员！<br>\n请点击浏览器的“后退”按钮修改。", false
	end if
else	'选择操作员
	sql = "SELECT id,name FROM bg_adminUser WHERE id<>"& LOGINUSER
	set rs = conn.Execute(sql)
	if not rs.Eof then
%>
<br>
<br>
<table border="0" align="center" width="300" bordercolorlight="#CCE0CF" bordercolordark="#FFFFFF">
<form action="functions.asp" method="post">
<input type="hidden" name="action" value="<% =action %>">
<input type="hidden" name="subaction" value="select">
<input type="hidden" name="LOGINID" value="<%=LOGINID%>">
  <tr class="ListTableHeader">
    <td background="images/TableHeaderBg.gif" nowrap><b>请选择要删除的操作员：</b></td>
  </tr>
  <tr class="InputTableRow">
    <td align="center">
	  <select name="adminid" class="ButtonSelect">
<%
	while not rs.Eof
		Response.Write "	    <option value="""& rs("id") &""">"& rs("name") &"</option>"& vbCrLf
		rs.MoveNext
	wend
%>
	  </select>
	</td>
  </tr>
  <tr class="MainPageBar" height="26">
    <td align="right"><input type="submit" name="Submit" value=" 确 定 " class="ButtonReply"></td>
  </tr>
</form>
</table>
<%
	else
%>
<br>
<br>
<table border="0" align="center" width="300" bordercolorlight="#CCE0CF" bordercolordark="#FFFFFF">
  <tr class="ListTableHeader">
    <td background="images/TableHeaderBg.gif" nowrap>没有其他的操作员。</td>
  </tr>
</table>
<%
	end if
end if
%>