<!--#Include File="Connection.Asp"-->
<!--#Include File="Function.Asp"-->
<!--#Include File="JaClog.Asp"-->
<!--#Include File="../JaInc/Ja_MD5.Asp"-->
<%
If Request.QueryString("action")="do" Then
Dim Uid,Uname,S,Za,ag,xu,hyy,inter,xin,mo,vi,ji,fa,passA,SqlA,wen,Aid
Aid = Trim(Request.Form("id"))
Uid = JaKillStr(Trim(Request.Form("Uid")))
S = JaKillStr(Trim(Request.Form("sex")))
Za = JaKillStr(Trim(Request.Form("Zname")))
ag = Cint(JaKillStr(Trim(Request.Form("age"))))
xu = JaKillStr(Trim(Request.Form("xue")))
hyy = JaKillStr(Trim(Request.Form("head")))
inter = JaKillStr(Trim(Request.Form("Inter")))
xin = JaKillStr(Trim(Request.Form("Xin")))
'bo = JaKillStr(Trim(Request.Form("born")))
'rd = JaKillStr(Trim(Request.Form("RegDate")))
mo = JaKillStr(Trim(Request.Form("more")))
vi = Cint(JaKillStr(Trim(Request.Form("vip"))))
ji = CInt(JaKillStr(Trim(Request.Form("jifen"))))
fa = JaKillStr(Trim(Request.Form("fa")))
wen = Cint(JaKillStr(Trim(Request.Form("fawen"))))

SqlA = "Update [JaUser] Set JaZoneName='"&Za&"',JaUname='"&Uid&"',JaAge="&ag&",JaSex='"&S&"',JaInter='"&Inter&"',JaXue='"&xu&"',JaXin='"&xin&"'"
SqlA = SqlA & ",JaFace='"&hyy&"',JaVis="&wen&",JaVip="&vi&",JaMemo='"&mo&"',JaMonery="&ji&""

if Request.Form("pass")<>"" then
 passA = MD5(JaKillStr(Trim(Request.Form("pass"))),"long")
 SqlA = SqlA & ",JaPass='"&passA&"'"
End if
SqlA = SqlA & " WHERE JaUid='"&Aid&"'"

Conn.ExeCute(SqlA)
Response.Write "<script language=javascript>alert('修改用户成功!');"
  Response.Write "window.document.location.href='UserInfo.Asp?Id="&Aid&"';</script>"
  Response.End()
End If
Dim Id,Rs
Id = Trim(Request.QueryString("id"))
Set Rs = Conn.ExeCute("SELECT * FROM [JaUser] WHERE JaUid = '"&Id&"'")
If Not Rs.Eof Then
%>
<HTML><HEAD><TITLE>无标题文档</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">

<LINK href="JaImg/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY>
<FORM name=form action="?action=do" method=post>
<TABLE class=itemhead height=25 cellSpacing=0 cellPadding=0 width="100%" 
align=center border=0>
  <TBODY>
  <TR>
    <TD class=itemheadtd vAlign=bottom bgColor=#bcdbfe>
      <TABLE height=18 cellSpacing=0 cellPadding=0 width=250 border=0>
            <TBODY>
        <TR>
                <TD class=item>用户信息 ID:<%=Id%></TD>
              </TR></TBODY></TABLE>
        </TD>
      </TR></TBODY></TABLE>
<TABLE height=8 cellSpacing=0 cellPadding=0 width=100 border=0>
  <TBODY>
  <TR>
    <TD></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=3 width="100%" align=center bgColor=#164481 
border=0>
  <TBODY>
  <TR>
        <TD align=middle width="19%" bgColor=#daebfe height=25><STRONG>用 户 名 称：</STRONG></TD>
    <TD width="81%" bgColor=#ffffff><INPUT 
      name=Uid id="Uid" value=<%=Rs(2)%> maxLength=50>
<input type=hidden name="id" value="<%=id%>">
          <STRONG>性别</STRONG>： <input 
      name=sex id="sex2" value=<%=Rs(4)%> size=8 maxlength=8></TD>
      </TR>
  <TR>
        <TD align=middle bgColor=#daebfe height=25><STRONG>空 间 名 称：</STRONG></TD>
    <TD bgColor=#e7ebf1><INPUT 
      name=ZName id="ZName" value=<%=Rs(1)%> size=35 maxLength=100>
        </TD>
      </TR>
  <TR>
        <TD align=middle bgColor=#daebfe height=25><STRONG>年龄/血型/头象：</STRONG></TD>
    <TD bgColor=#ffffff><INPUT 
      name=age id="age" value=<%=Rs(3)%> size=8 maxLength=8>
          <INPUT 
      name=xue id="xue" value=<%=Rs(6)%> size="15" maxLength=50>
          <INPUT 
      name=head id="head" value=<%=Rs(9)%> size="15" maxLength=50> </TD>
      </TR>
  <TR>
        <TD align=middle bgColor=#daebfe height=25><STRONG>兴 趣 爱 好：</STRONG></TD>
        <TD bgColor=#e7ebf1> 
          <INPUT 
      name=Inter id="Inter" value=<%=Rs(5)%> maxLength=50> </TD></TR>
  <TR>
        <TD align=middle bgColor=#daebfe height=25><STRONG>用 户 星 座：</STRONG></TD>
    <TD bgColor=#ffffff><INPUT 
      name=Xin id="Xin" value=<%=Rs(7)%> maxLength=50></TD></TR>
  <TR>
        <TD align=middle bgColor=#daebfe height=25><STRONG>用 户 生 日：</STRONG></TD>
    <TD bgColor=#e7ebf1> <%=Rs(8)%> 
           </TD>
      </TR>
  <TR>
        <TD align=middle bgColor=#daebfe height=25><STRONG>注 册 日 期：</STRONG></TD>
        <TD bgColor=#ffffff> <%=Rs(12)%> 
            </TD>
      </TR>
  <TR>
        <TD align=middle bgColor=#daebfe height=25><STRONG>用 户 签 名：</STRONG></TD>
    <TD bgColor=#e7ebf1><SPAN class=font1 id=PreAddress></SPAN>
          <textarea name="More" cols="35" rows="5" id="More"><%=Rs(14)%></textarea>
        </TD>
      </TR></TBODY></TABLE>
<TABLE height=8 cellSpacing=0 cellPadding=0 width=100 border=0>
  <TBODY>
  <TR>
    <TD></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=5 width="100%" align=center border=0>
  <TBODY>
  <TR>
    <TD style="PADDING-LEFT: 30px" bgColor=#bcdbfe>
      <TABLE cellSpacing=0 cellPadding=0 width=200 border=0>
        <TBODY>
        <TR>
                <TD 
  class=buttonfont><STRONG>主要信息：</STRONG></TD>
              </TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
  <TABLE cellSpacing=1 cellPadding=3 width="100%" align=center bgColor=#164481 
border=0>
    <TBODY>
      <TR> 
        <TD align=middle width="19%" bgColor=#daebfe height=25><STRONG>VIP 用 户： 
          </STRONG></TD>
        <TD width="81%" bgColor=#ffffff colSpan=2><input name=Vip id="Vip" 
      value=<%=Rs(11)%> size=10 maxlength=10>
          此用户为 <font class="font6">
          <%if Rs(11)=1 Then Response.Write "VIP用户" Else Response.Write "普通用户" End If%></font>
          <strong>1</strong>为<strong><font class="font6">VIP用户</font> 0</strong> 
          为<strong><font class="font6">普通用户</font></strong></TD>
      </TR>
      <TR> 
        <TD align=middle bgColor=#daebfe height=25><STRONG>用 户 积 分：</STRONG></TD>
        <TD bgColor=#e7ebf1 colSpan=2><INPUT name=Jifen 
      value="<%=Rs(15)%>" size=30 maxLength=100> </TD>
      </TR>
      <TR> 
        <TD align=middle bgColor=#daebfe height=25><STRONG>用 户 密 码：</STRONG></TD>
        <TD bgColor=#ffffff colSpan=2><INPUT 
      name=pass id="pass" size=20 type=password maxLength=100> <SPAN 
      class=font6>*</SPAN> 如不修改请留空</TD>
      </TR>
      <TR> 
        <TD align=middle bgColor=#daebfe><STRONG>访 问 量：</STRONG></TD>
        <TD colSpan=2 bgColor=#e7ebf1> <INPUT maxLength=100 size=20 
      value=<%=Rs(10)%> name=fawen> </TD>
      </TR>
    
      <TR> 
        <TD align=middle bgColor=#daebfe height=35>&nbsp;</TD>
        <TD bgColor=#ffffff colSpan=2><INPUT class=button1 type=submit value=确认无误，我要修改 name=Submit23></TD>
      </TR>
    </TBODY>
  </TABLE>
</FORM>
</BODY></HTML>
<%
End If
Rs.Close
Set Rs = Nothing
%>