📄 chang_user.asp

📁 后台路径:admin/login.asp 用户名:manage 密码:fansyou
💻 ASP
字号:
<!-- #include file="head.asp" -->
<script language="JavaScript">
function CheckForm1()
{
	 
	
	 
	if (document.ADDUser.pass1.value.length == 0) {
		alert("请输入您的密码.");
		document.ADDUser.pass1.focus();
		return false;
	}
		if (document.ADDUser.pass2.value.length == 0) {
		alert("请确认您的密码.");
		document.ADDUser.pass2.focus();
		return false;
	}
	if (document.ADDUser.pass1.value != document.ADDUser.pass2.value) {
		alert("您两次输入的密码不一样！请重新输入.");
		document.ADDUser.pass1.focus();
		return false;
	}
	if (document.ADDUser.email.value.length == 0) {
		alert("请输入您的Email.");
		document.ADDUser.email.focus();
		return false;
	}
		if (document.ADDUser.email.value.length > 0 && !document.ADDUser.email.value.match( /^.+@.+$/ ) ) {
		alert("Email 错误！请重新输入");
		document.ADDUser.email.focus();
		return false;
	}

	 
	if (document.ADDUser.tel.value.length == 0) {
		alert("请输入您的联系电话，以便我们可以为您更好服务.");
		document.ADDUser.tel.focus();
		return false;
	}
	 
	return true;
}
</script>
<TABLE width=760 border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF" class=bk>
  <TR> 
      <TD   vAlign=top>
	    <!-- #include file="lwconn.asp" -->
		<%if request.QueryString("add")="p2" then 
		 
		 
		 pass1=trim(request.Form("pass1"))
		 pass2=trim(request.Form("pass2"))
	 
		 pass1=replace(pass1,"'","")
		 if pass1<>pass2 or pass1="" then 
		 %>
<script language=javascript>
   history.back()
   alert("密码输入错误！")
</script> 
<%
Response.End
		 end if
		 
set rs=server.CreateObject ("Adodb.RecordSet")
rs.Source="select * from user where userid='"&request.Cookies("user_name")&"'"
rs.Open rs.Source,conn,1,3
if   rs.eof then
%>
<script language=javascript>
   history.back()
   alert("该用户不存在！")
</script> 
<%
Response.End
else
 
rs("fa_ren")=trim(request.Form("fa_ren"))
rs("contact")=trim(request.Form("contact"))
rs("pass1")=trim(request.Form("pass1"))
 
rs("address")=trim(request.Form("address"))
rs("email")=trim(request.Form("email"))
rs("tel")=trim(request.Form("tel"))
rs("fax")=trim(request.Form("fax"))
rs("url")=trim(request.Form("url"))
 
rs.update
rs.close
set rs=nothing
response.Write("<center><h3><font color='red'> 恭喜，会员资料修改成功！</font></h3><a href='info_add.asp'>返回管理中心</a></center>")
end if
end if
%>
		
			<%if request.QueryString("add")="geren" then 
		 
		 
		 pass1=trim(request.Form("pass1"))
		 pass2=trim(request.Form("pass2"))
	 
		 pass1=replace(pass1,"'","")
		 if pass1<>pass2 or pass1="" then 
		 %>
<script language=javascript>
   history.back()
   alert("密码输入错误！")
</script> 
<%
Response.End
		 end if
		 
set rs=server.CreateObject ("Adodb.RecordSet")
rs.Source="select * from user where userid='"&request.Cookies("user_name")&"'"
rs.Open rs.Source,conn,1,3
if   rs.eof then
%>
<script language=javascript>
   history.back()
   alert("该用户不存在！")
</script> 
<%
Response.End
else
 
  
rs("pass1")=trim(request.Form("pass1"))
 
rs("address")=trim(request.Form("address"))
rs("email")=trim(request.Form("email"))
rs("tel")=trim(request.Form("tel"))
rs("fax")=trim(request.Form("fax"))
 
 
rs.update
rs.close
set rs=nothing
response.Write("<center><h3><font color='red'> 恭喜，你的个人资料修改成功！</font></h3><a href='info_add.asp'>返回管理中心</a></center>")
end if
end if
%>
		
		
		
		
		
		
		
		
		
		
		
		
		
		
			<%if request.Cookies("ttype")<>"4"   then 
			set rs=server.CreateObject ("Adodb.RecordSet")
rs.Source="select * from user where userid='"&request.Cookies("user_name")&"'"
 
rs.Open rs.Source,conn,1,3
if not rs.eof then
			
			%>
  <form  name="ADDUser" method="post" action="?add=p2" onSubmit="return CheckForm1();">
<table width="490"  border="0" align="center">
  <tr>
    <td width="23%">&nbsp;</td>

    <td width="67%"><p><strong>  会员资料修改 </strong></p></td>
  </tr>
  
  <tr>
    <td>公司名称 * ：</td>
    <td><p><%=rs("company")%>
      　　
      </p>
      </td>
  </tr>
  <tr>
    <td>营业执照编号 * ：</td>
    <td><p><%=rs("yinye")%>
       
    </p>
    </td>
  </tr>
  <tr>
    <td>法人代表 * ：</td>
    <td><p>
      <input name="fa_ren" type="text" id="fa_ren" value="<%=rs("fa_ren")%>">
    </p>
      </td>
  </tr>
  <tr>
    <td>联系人 * ：</td>
    <td><p>
      <input name="contact" type="text" id="contact" value="<%=rs("contact")%>">
    </p>
      </td>
  </tr>
  <tr>
    <td>登入密码 * ：</td>
    <td><input name="pass1" type="password" id="pass1" value="<%=rs("pass1")%>"> 
      <br>
    6-14 位并只能由字母和数字组成。 </td>
  </tr>
  <tr>
    <td>确认密码 * ：</td>
    <td><input name="pass2" type="password" id="pass2" value="<%=rs("pass1")%>"> </td>
  </tr>
  
  <tr>
    <td>住所 * ：</td>
    <td><input name="address" type="text" id="address" value="<%=rs("address")%>"></td>
  </tr>
  <tr>
    <td>E-mail* ：</td>
    <td><input name="email" type="text" id="email" value="<%=rs("email")%>"> 
    请正确填写，以备忘记密码时用。 </td>
  </tr>
  <tr>
    <td>电　话 * ：</td>
    <td><input name="tel" type="text" id="tel" value="<%=rs("tel")%>">
    固话、小灵通、手机均可。 </td>
  </tr>
  <tr>
    <td>传　真 * ：</td>
    <td><input name="fax" type="text" id="fax" value="<%=rs("fax")%>"></td>
  </tr>
  <tr>
    <td>公司网址：</td>
    <td><input name="url" type="text" id="url" value="<%=rs("url")%>"></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><input type="submit" name="Submit" value="提交">
&nbsp;&nbsp;&nbsp;
<input type="reset" name="Submit2" value="重填"></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
</form>
  
  <%
  end if
  else
  set rs=server.CreateObject ("Adodb.RecordSet")
rs.Source="select * from user where userid='"&request.Cookies("user_name")&"'"
 
rs.Open rs.Source,conn,1,3
if not rs.eof then
  
  %>
  <form    method="post" action="?add=geren"  >
<table width="590"  border="0" align="center">
  <tr>
    <td width="33%">&nbsp;</td>

    <td width="67%"><p><strong>会员资料修改 </strong></p></td>
  </tr>
   
  <tr>
    <td>身份证号 * ：</td>
    <td><p>
       <%=rs("yinye")%> 
    </p>
    </td>
  </tr>
  <tr>
    <td>真实姓名 * ：</td>
    <td><p>
       <%=rs("contact")%> 
    </p>
      </td>
  </tr>
  <tr>
    <td>登入密码 * ：</td>
    <td><input name="pass1" type="password" id="pass1" value="<%=rs("pass1")%>"> 
      <br>
    6-14 位并只能由字母和数字组成。 </td>
  </tr>
  <tr>
    <td>确认密码 * ：</td>
    <td><input name="pass2" type="password" id="pass2" value="<%=rs("pass1")%>"> </td>
  </tr>
  <tr>
    <td>住所 * ：</td>
    <td><input name="address" type="text" id="address" value="<%=rs("address")%>"></td>
  </tr>
  <tr>
    <td>E-mail* ：</td>
    <td><input name="email" type="text" id="email" value="<%=rs("email")%>"> 
    请正确填写，以备忘记密码时用。 </td>
  </tr>
  <tr>
    <td>电　话 * ：</td>
    <td><input name="tel" type="text" id="tel" value="<%=rs("tel")%>">
    固话、小灵通、手机均可。 </td>
  </tr>
  <tr>
    <td>传　真 * ：</td>
    <td><input name="fax" type="text" id="fax" value="<%=rs("fax")%>"></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><input type="submit" name="Submit" value="提交">
&nbsp;&nbsp;&nbsp;
<input type="reset" name="Submit2" value="重填"></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
</form>
  <%
  end if
  rs.close
  set rs=nothing
  
  
  end if%>
    </TD>
            </TR>    
        </TABLE>

         
        
      
       <!-- #include file="footer.asp" -->
💿 文件大小 1401 K
👤 上传用户 anlan001
📂 所属分类 *行业应用
🏷️ 相关标签

#fansyou #manage #admin #login
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -