<!--#include file="../inc/py.asp" -->
<!--#include file="conn.asp" -->
<% adm_power_page="6" %>
<!--#include file="admin_dn.asp" -->
<!--#include file="../inc/md5.asp" -->
<% 
e_address2=py(Trim(Request.Form("address")))
e_name2=py(Trim(Request.Form("name")))
rs.open "matter",conn,1,1
dim mattersf(),matterdl()
redim mattersf(rs.recordcount-1)
redim matterdl(rs.recordcount-1)
i1=0
 while not rs.eof
  mattersf(i)=rs("class")
  matterdl(i)=rs("matter")
  i=i+1
 rs.movenext
wend
rs.close
'Response.Write ubound(matterdl)

if Trim(Request.QueryString("w"))="save" then
rs.open "select * from user where id="&request("id"),conn,2,3
 if not Trim(Request.Form("password"))="" then
 rs("password")=md5(Trim(Request.Form("password")))
 end if
rs("address")=request("address")
rs("province")=request("province")
rs("name")=request("name")
rs("tel")=request("tel")
rs("email")=request("email")
rs("qq")=request("qq")
'rs("je")=request("je")
rs("unit")=Trim(Request.Form("unit"))
rs("eunit")=Trim(Request.Form("eunit"))
rs("sf")=request("sf")

rs("biz")=Trim(Request.Form("biz"))
rs("zip")=Trim(Request.Form("zip"))

if Trim(Request.Form("ename"))="" then 
rs("ename")=e_name2
else
rs("ename")=Trim(Request.Form("ename"))
end if
if Trim(Request.Form("eaddress"))="" then 
rs("eaddress")=e_address2
else
rs("eaddress")=Trim(Request.Form("eaddress"))
end if
rs("Unit")=Trim(Request.Form("Unit"))
rs("eUnit")=Trim(Request.Form("eUnit"))
rs("cz")=Trim(Request.Form("cz"))
rs.update
rs.close


end if 


 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>:::管理页面:::</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="2" topmargin="0">
<p>用户信息：</p>
<p>&nbsp;</p>
<%
rs.open "select * from user where id="&request("id"),conn,1,1
if not rs.eof then
  %>

<form name="form1" method="post" action="user_list.asp?w=save">
  <table width="79%" height="364" border="0" align="center" cellpadding="0" cellspacing="2">
    <tr bgcolor="#000066"> 
      <td colspan="2"><font color="#FFFFFF">用户资料修改</font></td>
    </tr>
    <tr> 
      <td width="22%" bgcolor="#F5F5F5">用 户 名：</td>
      <td width="78%"><font color="#FF0000"><strong><%= rs("userid") %>&nbsp; 
        <input name="id" type="hidden" id="id" value="<%=request("id")%>">
        </strong></font><a href="adm_7.asp?sel=userid&search=<%=rs("userid")%>">[查看<font color="#FF0000"><strong><%= rs("userid") %></strong></font> 的购物车]</a></td>
    </tr>
    <tr> 
      <td bgcolor="#F5F5F5">密　　码：</td>
      <td><input name="password" type="text" id="password" size="15">
        如果不需要更改密码请留空</td>
    </tr>
    <tr> 
      <td bgcolor="#F5F5F5">所在地址(中文)</td>
      <td><input name="address" type="text" id="address" value="<%= rs("address") %>" size="25"></td>
    </tr>
    <tr> 
      <td bgcolor="#F5F5F5">所在地址(英文)</td>
      <td><input name="eaddress" type="text" id="eaddress" value="<%= rs("eaddress") %>" size="25"></td>
    </tr>
    <tr> 
      <td bgcolor="#F5F5F5">邮政编码;</td>
      <td><input name="zip" type="text" id="province3" value="<%= rs("zip") %>" size="15"></td>
    </tr>
    <tr> 
      <td bgcolor="#F5F5F5">所 在 省：</td>
      <td><input name="province" type="text" id="province2" value="<%= rs("province") %>" size="15">
        城市: 
        <input name="biz" type="text" id="province" value="<%= rs("biz") %>" size="15"></td>
    </tr>
    <tr> 
      <td bgcolor="#F5F5F5">联 系 人：</td>
      <td><input name="name" type="text" id="name" value="<%= rs("name") %>" size="15">
        英文: 
        <input name="name2" type="text" id="name2" value="<%= rs("ename") %>" size="15"></td>
    </tr>
    <tr>
      <td bgcolor="#F5F5F5">单 位:</td>
      <td><input name="unit" type="text" id="unit" value="<%= rs("unit") %>" size="15">
        单位E文: 
        <input name="eunit" type="text" id="eunit" value="<%= rs("eunit") %>" size="15"></td>
    </tr>
    <tr> 
      <td bgcolor="#F5F5F5">电　　话：</td>
      <td><input name="tel" type="text" id="tel" value="<%= rs("tel") %>" size="15"></td>
    </tr>
    <tr> 
      <td bgcolor="#F5F5F5">传　　真：</td>
      <td><input name="cz" type="text" id="cz" value="<%= rs("cz") %>" size="15"></td>
    </tr>
    <tr> 
      <td bgcolor="#F5F5F5">电子邮件：</td>
      <td><input name="email" type="text" id="email" value="<%= rs("email") %>" size="15"></td>
    </tr>
    <tr> 
      <td bgcolor="#F5F5F5">QQ：</td>
      <td><input name="qq" type="text" id="qq" value="<%= rs("qq") %>" size="15"></td>
    </tr>
    <tr> 
      <td bgcolor="#F5F5F5">账号金额：</td>
      <td> <input name="je" type="text" id="je" value="<%= rs("je") %>" size="15" disabled> 
        <a href="adm_9.asp?w=us&userid=<%=rs("userid")%>"><font color="#FF0000">[用户财务处理请点这里]</font> 
        </a></td>
    </tr>
    <tr> 
      <td bgcolor="#F5F5F5">代理身份：</td>
      <td><select name="sf" id="select2">
          <% for i2=0 to ubound(matterdl)
	   %>
          <option value="<%=mattersf(i2) %>" <% if rs("sf")=mattersf(i2) then Response.Write("selected")  %>><%= matterdl(i2) %></option>
          <% next %>
        </select></td>
    </tr>
    <tr> 
      <td height="22" bgcolor="#F5F5F5">注册日期：</td>
      <td><font color="#FF0000"><%= rs("dat") %></font></td>
    </tr>
    <tr> 
      <td height="18" bgcolor="#F5F5F5">最后登陆时间：</td>
      <td><font color="#FF0000"><%= rs("lastdat") %></font></td>
    </tr>
    <tr> 
      <td height="19" bgcolor="#F5F5F5">登录次数：</td>
      <td><font color="#FF0000"><%= rs("dlnum") %></font></td>
    </tr>
    <tr bgcolor="#000066"> 
      <td>&nbsp;</td>
      <td> <input type="submit" name="Submit" value="确定更新"></td>
    </tr>
  </table>
</form>
<% 
else 
Response.Write("查询不正确，用户不存在")
end if
 %>
<p align="center">&nbsp;</p>
<p align="center"><a href="javascript:history.back(1)">返回 &gt;&gt;</a></p>
</body>
</html>
