<!--#include virtual="/incs/config.asp"-->
<!--#include virtual="/incs/top.asp"-->
<% chk_log()%>
<%
chk_newpwr 4,23,2
fid=SafeRequest("fid")
if chk_int(fid)=false then
call errorpage(-2,"对不起,请选择区域组!")
end if
conn.open constr
query="select * from arelst where f_id="&fid
rs.open query,conn,1,1
if rs.eof then
call errorpage(-2,"对不起,您选择的区域组组不存在!")
end if
 %>
<table cellspacing=2 cellpadding=0 width="100%" border=0>
  <tbody> 
  <tr> 
    <td  colspan=2 valign="middle"> 
      <table class=line cellspacing=0 cellpadding=0 width="100%" 
                  border=0 align="center">
        <tbody> 
        <tr> 
          <td valign=bottom width="25%" height=20><font color="#000000" class=ddropshadow><b><span class=enbold><strong>区域管理分组</strong></span></b></font></td>
          <td valign=bottom noWrap align=right 
                        width="75%"><a href="javascript:showurl('are_add.asp');" class=commonface>区域组添加</a> 
            | <a href="javascript:showurl('are_lst.asp');" class=commonface>区域组列表</a></td>
        </tr>
        <tr> 
          <td align=middle width="100%" colspan=2 height=5></td>
        </tr>
        <tr> 
          <td align=middle width="100%" colspan=2 height=2 class=menuline></td>
        </tr>
        </tbody> 
      </table>
    </td>
  </tr>
  <tr> 
    <td  colspan=2 valign="top" height="20">&nbsp;</td>
  </tr>
  <tr> 
    <td  colspan=2 valign="top" height="28"> 
      <table border=0 cellpadding=0 
                        cellspacing=0 class=datalist align="center" width="80%">
        <form action="are_mng.asp" method=post>
          <tr  > 
            <th class=datalistheader height="22"  align=center width="30%">区域名称</th>
            <th class=datalistheader height="22" align=left> 
              <input type="text" name="f_nme" size="28" value="<%=rs("f_nme")%>">
            </th>
          </tr>
          <tr  > 
            <td class=datalistgrida height="22"  align=center>区域编号</td>
            <td class=datalistgrida height="22"> 
              <input type="text" name="f_tagid" size="28" value="<%=rs("f_tagid")%>">
            </td>
          </tr>
          <tr  > 
            <td class=datalistgrida height="22"  align=center>管理人员</td>
            <td class=datalistgrida height="22"> 
              <textarea name="f_usr" cols="40" rows="8"><%=rs("f_usr")%></textarea>
              多个用,号分隔</td>
          </tr>
          <tr  > 
            <td class=datalistgrida height="22"  align=center>所辖省份</td>
            <td class=datalistgrida height="22"><br>
              &nbsp;<%
			query="select * from myarea left outer join arelst on myarea.a_grpid=arelst.f_tagid order by myarea.a_id"
			rs1.open query,conn,1,1
			i=0
			while not rs1.eof 
			i=i+1
			if i<>1 and (i mod 2=1) then
			response.write "<br>&nbsp;"
			end if
			response.write "<input type='checkbox' name='a_tagid' value='"&rs1("a_tagid")&"' "
			if  cint(rs1("a_grpid"))=cint(rs("f_tagid")) then
			response.write " checked "
			end if
			response.write " >"
			response.write trim(rs1("a_nme"))
			if isnull(rs1("f_nme")) or rs1("f_nme")="" then
			tempgrp="(无)"
			tempgrpstr="<font color=#ff0000>(无)</font>"
			elseif cint(rs1("a_grpid"))=cint(rs("f_tagid")) then
			tempgrp="("&rs1("f_nme")&")"
			tempgrpstr="<font color=#ff0000>("&rs1("f_nme")&")</font>"
			else
			tempgrp="("&rs1("f_nme")&")"
			tempgrpstr="("&rs1("f_nme")&")"
			end if
			response.write tempgrpstr
			templen=30-mylen(trim(rs1("a_nme"))&tempgrp)
			for ab=1 to templen
			response.write "&nbsp;"
			next
			
			rs1.movenext
			wend
			rs1.close
			
			%>
              <br>
              <br>
            </td>
          </tr>
          <tr  > 
            <td class=datalistgrida height="22"  align=center>注意事项</td>
            <td class=datalistgrida height="22"> 一个管理员可以同时管理多个区域组，但是一个省份仅能属于一个区域组。</td>
          </tr>
          <tr  > 
            <td class=datalistgrida height="55"  align=center colspan="2"> 
              <input type="submit" name="Submit" value="修 改" class=btxx onclick="javascript:return confirmit();">
              <input type="reset" name="Submit2" value="重 置" class=btxx >
              <input type="hidden" name="module" value="are_edt">
              <input type="hidden" name="fid" value="<%=rs("f_id")%>">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
  <tr> 
    <td  colspan=2 valign="top" height="28">&nbsp; </td>
  </tr>
  </tbody> 
</table>
<!--#include virtual="/incs/bottom.asp"-->



