usermyinfo.asp

管理登录system 管理员：admin 密码：admin888 数据库链接文件： conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy

<!--#include file="System/MD5.asp"-->
<%
M_L=session("My_Login")
L_N=session("Uname")
Action=trim(request.QueryString("Action"))
UAction=trim(request.QueryString("UAction"))

'=================================== 
'提交修改后的数据
'===================================
if Action="MyInfo"and UAction="Up" and not(M_L<>"My_Login_Succeed" or L_N="") then  
  set rs=server.createobject("adodb.recordset")
  sql = "select * from UserInfo where Uname='"&L_N&"'" 
  rs.open sql,conn,1,3
  rs("Uname1")=trim(request.Form("Uname1"))
  if len(trim(request.Form("Upass")))<>0 or len(trim(request.Form("Upass1")))<>0 then
	 if len(trim(request.Form("Upass")))<6 or isempty(trim(request.Form("Upass")))  then
        response.write "<script language=javascript> alert('密码长度必须大于或等于6位的！');history.back(-1);</script>"
        response.end
     end if 
	 if trim(request.Form("Upass"))<>trim(request.Form("Upass1"))  then
        response.write "<script language=javascript> alert('两次输入密码不一样！');history.back(-1);</script>"
        response.end
     else
		  rs("Upass")=MD5(trim(request.Form("Upass")))
	 end if
  end if
  rs("Sex")=request.Form("Sex")
  rs("Ucom")=trim(request.Form("Ucom"))
  rs("Uadd")=trim(request.Form("Uadd"))
  rs("Utel")=trim(request.Form("Utel"))
  rs("Umtel")=trim(request.Form("Umtel"))
  rs("Ufax")=trim(request.Form("Ufax"))
  rs("Ucode")=trim(request.Form("Ucode"))
  rs("Uemail")=trim(request.Form("Uemail"))
  rs.update
  rs.close
  set rs=nothing 
  response.write "<script language=javascript> alert('修改成功点击确定返回!');history.back(-1);</script>"
end if
'===================================	 
%>

<table width="90%" border="0" cellspacing="0" cellpadding="3">
<% 
if M_L<>"My_Login_Succeed" or L_N="" then 
   response.write "<script language=javascript> alert('修改成功点击确定返回!');history.back(-1);</script>"
else
  if Action="MyInfo" then
    set Rs = server.createobject("adodb.recordset")
    rs.source = "select * from UserInfo where Uname='"&L_N&"'"
    rs.open rs.source,conn,1,3
	   set RsGN = server.createobject("adodb.recordset")
       RsGN.source = "select * from Nweb_UGroup where GroupID='"&rs("GroupID")&"'"
       RsGN.open RsGN.source,conn,1,1
	GroupName=RsGN("GroupName")
       RsGN.close
       set RsGN=nothing
	Sex=rs("Sex")
	Uname1=trim(rs("Uname1")) 
    Ucom=trim(rs("Ucom")) 
    Uadd=trim(rs("Uadd"))
    Utel=trim(rs("Utel")) 
    Umtel=trim(rs("Umtel")) 
    Ufax=trim(rs("Ufax"))
    Ucode=trim(rs("Ucode")) 
    Uemail=trim(rs("Uemail"))
  %>
  <tr>
    <td>
	 <table width="100%"  border="0" cellspacing="0" cellpadding="2">
      <form name="Upform" method="post" action="UserMyInfo.asp?UAction=Up&Action=<%=Action%>">

	  <tr>
        <td width="32%" height="22" align="right">登录名：</td>
        <td width="68%">
		  <font color="#ff6600"><% =rs("Uname") %></font>		</td>
      </tr>
	  <tr>
        <td height="22" align="right">所属组别：</td>
	    <td><font color="#ff6600">
	      <% =GroupName%>
	      </font> </td>
	    </tr>
      <tr>
        <td height="22" align="right">姓名：</td>
        <td><input name="Uname1" type="text" class="myput" id="Uname1" value="<%=Uname1%>" size="20"></td>
      </tr>
      <tr>
        <td height="22" align="right">性别：</td>
        <td><input name="Sex" type="radio" value="男" <% if Sex="男" then response.write "checked='checked'"%> />
          男
            <input type="radio" name="Sex" value="女" <% if Sex="女" then response.write "checked='checked'"%>/>
            女</td>
      </tr>
      <tr>
        <td height="22" align="right">修改密码：</td>
        <td><input name="Upass" class="MyPut" type="password" id="Upass" size="20">（空表示不修改）</td>
      </tr>
      <tr>
        <td height="22" align="right">验证修改密码：</td>
        <td><input name="Upass1" class="MyPut" type="password" id="Upass1" size="20">（空表示不修改）</td>
      </tr>
      <tr>
        <td height="22" align="right">密码保护提示问题：</td>
        <td><font color="#000000">
          <% =rs("UpassS1") %>
        </font></td>
      </tr>
      <tr>
        <td height="22" align="right">密码保护答案：</td>
        <td><font color="#ff6600">**********</font>（不可查看）</td>
      </tr>
      <tr>
        <td height="22" align="right">注册日期：</td>
        <td><font color="#000000">
          <% =rs("Udate") %>
        </font></td>
      </tr>
      <tr>
        <td height="22" align="right">单位名称：</td>
        <td><input name="Ucom" type="text" class="MyPut" id="Ucom" value="<%=Ucom%>" size="40"></td>
      </tr>
      <tr>
        <td height="22" align="right">地址：</td>
        <td><input name="Uadd" type="text" class="MyPut" id="Uadd" value="<%=Uadd%>" size="40"></td>
      </tr>
      <tr>
        <td height="22" align="right">电话：</td>
        <td><input name="Utel" type="text" class="MyPut" id="Utel" value="<%=Utel%>" size="22"></td>
      </tr>
      <tr>
        <td height="22" align="right">手机：</td>
        <td><input name="Umtel" type="text" class="MyPut" id="Umtel" value="<%=Umtel%>" size="22"></td>
      </tr>
      <tr>
        <td height="22" align="right">传真：</td>
        <td><input name="Ufax" type="text" class="MyPut" id="Ufax" value="<%=Ufax%>" size="18"></td>
      </tr>
      <tr>
        <td height="22" align="right">邮编：</td>
        <td><input name="Ucode" type="text" class="MyPut" id="Ucode" value="<%=Ucode%>" size="12"></td>
      </tr>
      <tr>
        <td height="22" align="right">电子邮件：</td>
        <td><input name="Uemail" type="text" class="MyPut" id="Uemail" value="<%=Uemail%>" size="30"></td>
      </tr>
      <tr>
        <td height="22" align="right">是否通过验证：</td>
        <td>
		<% if rs("Utemp")=TRUE then  response.write "<font color='#ff6600'>是</font>" else response.write "<font color='#ff6600'>否</font>" end if %>		</td>
      </tr>
      <tr>
        <td height="22" align="right">&nbsp;</td>
        <td><input type="submit" name="Submit" value="保存修改"></td>
      </tr>
	  </form>
    </table>
   </td>
  </tr>
<% 
    rs.Close
    set rs=nothing
  end if 
end if%>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>