📄 useredit.asp

📁 架設ROSE私服必備之物 ROSE數據庫
💻 ASP
字号:
<!--#include file="conn.asp" --><HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>会员中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Content-Language content=zh-CN>
<META content=all name=robots>
<META content=LJCMS name=Copyright>
<META 
content=
name=description>
<META 
content="" 
name=keywords><LINK id="skin"
href="../images/css.css" 
type=text/css rel=stylesheet><!--#include file="../inc/md5.asp"-->
<%
dim Action,UserName,FoundErr,ErrMsg
dim rsUser,sqlUser
Action=trim(request("Action"))
UserName=trim(request("UserName"))
if UserName="" then
	UserName=session("UserName")
end if
if  UserName="" then
	if Action="" then
		response.redirect "UserServer.asp"
	else
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
	end if
end if
if FoundErr=true then
	call WriteErrMsg()
else
	Set rsUser=Server.CreateObject("Adodb.RecordSet")
	sqlUser="select * from [User] where UserName='" & UserName & "'"
	rsUser.Open sqlUser,conn,1,3
	if rsUser.bof and rsUser.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到指定的用户！</li>"
		call writeErrMsg()
	else
		if Action="Modify" then
			dim Sex,Email,Homepage
			Sex=trim(Request("Sex"))
			Email=trim(request("Email"))
			Homepage=trim(request("Homepage"))
			CompanyName=trim(request("CompanyName"))
			Add=trim(request("Add"))
			Receiver=trim(request("Receiver"))
			Postcode=trim(request("Postcode"))
			Phone=trim(request("Phone"))
			Mobile=trim(request("Mobile"))
			Fax=trim(request("Fax"))
			if Sex="" then
				founderr=true
				errmsg=errmsg & "<br><li>性别不能为空</li>"
			else
				sex=cint(sex)
				if Sex<>0 and Sex<>1 then
					Sex=1
				end if
			end if
			if Email="" then
				founderr=true
				errmsg=errmsg & "<br><li>Email不能为空</li>"
			else
				if IsValidEmail(Email)=false then
					errmsg=errmsg & "<br><li>您的Email有错误</li>"
			   		founderr=true
				end if
			end if
			if CompanyName="" then
				founderr=true
				errmsg=errmsg & "<br><li>公司名称不能为空</li>"
			end if
			if Add="" then
				founderr=true
				errmsg=errmsg & "<br><li>收货地址不能为空</li>"
			end if
			if Receiver="" then
				founderr=true
				errmsg=errmsg & "<br><li>收货人不能为空</li>"
			end if
			if Phone="" then
				founderr=true
				errmsg=errmsg & "<br><li>联系电话不能为空</li>"
			end if
			if FoundErr<>true then
				rsUser("Sex")=Sex
				rsUser("Email")=Email
				rsUser("HomePage")=HomePage
				rsUser("CompanyName")=CompanyName
				rsUser("Add")=Add
				rsUser("Receiver")=Receiver
				rsUser("Postcode")=Postcode
				rsUser("Phone")=Phone
				rsUser("Mobile")=Mobile
				rsUser("Fax")=Fax				
				rsUser("LastLoginTime")=Now()
				rsUser.update
				response.write"<SCRIPT language=JavaScript>alert('会员资料修改成功！');"
                response.write"javascript:history.go(-1)</SCRIPT>"				
			else
				call WriteErrMsg()
			end if
		else

%>
<SCRIPT language=javascript>
function opencat(cat,img){
	if(cat.style.display=="none"){
	cat.style.display="";
	img.src="img/class2.gif";
	}	else {
	cat.style.display="none"; 
	img.src="img/class1.gif";
	}
}
</Script>
<SCRIPT language=JavaScript 
src="../images/Prototype.js"></SCRIPT>
<script type="text/javascript" src="../images/setCss.js"></script>
<META content="MSHTML 6.00.6000.16441" name=GENERATOR></HEAD>
<BODY><!--  顶部开始  -->
<DIV id=BigTop>
<DIV id=TopLeft></DIV>
<DIV id=TopCenter>
<DIV id=Logo><IMG height=84 
src="../images/Logo.gif" 
width=238 border=0> </DIV>
<DIV id=BigMenu>
<UL class=AllUl>
 <LI class=MenuLi1>换皮肤：<a  href="" onClick="setCss('../images/css.css'); return false; " ><span class="blue">水晶蓝</span></a>&nbsp;&nbsp;&nbsp;<a  href="" onClick="setCss('../images/css1.css'); return false; "><span class="pink">浪漫粉</span></a>&nbsp;&nbsp;&nbsp;</li><SPAN class=S_Spanlink>⊙<A href="<%=EnterpriseMail%>" > 企业邮局 </A>⊙<A onClick="window.external.addFavorite('<%=SiteUrl%>','<%=SiteName%>');return false;" target="mainFrame"  href="#"> 加入收藏 </A>⊙<A onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=SiteUrl%>');" href="#">  设为首页 </A> <a href="Contact.asp"></a> ⊙  <a id="based">繁体中文</a>
    <Script Language=Javascript Src="../Inc/southidcj2f.Js"></Script> ⊙  <a href="../enHtml/index.html">English</a></LI>
	
<form name="Search_form" id="Search_form" class="AllForm" action="search.asp" target="_blank" method="get">
				<li class="MenuLi1"><span class="S_Span"><input type="text" name="KeyWords" id="KeyWords" class="Input" style="width:200px;" /></span><span class="S_SeType"><input type="hidden" name="SeTypeTxt" id="SeTypeTxt" value="" /><input type="button" name="Setype" id="Setype" value="搜索类型" class="S_Typebutton" onClick="Dis_HiddenDiv();" /></span><span class="S_ImgSpan"><img src="../images/ssBount.jpg" width="57" height="20" border="0" align="absbottom" onClick="Fun_Se_Form();" /></span></li>
		</form></LI>

				
				
  <LI class=MenuLi2><div class="menu"><ul>
 <!--#include file="inc/menu.asp" -->


</ul></div></LI>
</UL></DIV></DIV>
<DIV id=TopRight></DIV></DIV><!--  顶部结束  --><!--  主体部分开始  -->
<DIV id=BodyDiv><!--  主体左边部分  -->
<DIV id=BodyLeft><!--  用户登陆  -->
<DIV class=BigLoginDiv>
<DIV class=Login_Type_Div><SPAN class=Lo_Web_User_1 id=Lo_Web_User 
></SPAN></DIV>
<DIV><iframe name="login_frame1" src="../login.asp"  style=" width:100%; height:100px" frameborder="0"></iframe></DIV>

</DIV><!--  用户登陆结束  --><!--  快速通道 -->
<DIV class="DivBorder Fs_Kstd">
<DIV class=Fs_Kstd_Top><SPAN class=Fs_Text>产品列表>></SPAN></DIV>
<DIV class=Fs_Kstd_Bottom>
<UL class=AllUl>
<li class=Fs_KstdLi>·<a href=UserEdit.asp target=_blank>修改会员资料</b></a></li><li class=Fs_KstdLi>·<a href=UserEditPwd.asp target=_blank>修改会员密码</b></a></li><li class=Fs_KstdLi>·<a href=UserOrder.asp target=_blank>产品询价管理</b></a></li><li class=Fs_KstdLi>·<a href=FeedbackMember.asp target=_blank>查看我的留言</b></a></li><li class=Fs_KstdLi>·<a href=UserLogout.asp?Action=Ch target=_blank>退出会员中心</b></a></li>
  
</UL></DIV><DIV class=Fs_Kstd_Bo><SPAN class=Fs_Dot></SPAN><SPAN class=Fs_Textt></SPAN></DIV></DIV><!--  快速通道结束 --><!--  产品中心 -->
<!--  产品中心结束 -->
<!--  代理中心 -->
<!--  代理中心结束 -->
<!--  解决方案 -->
<!--  解决方案结束 -->
<!--  合作联盟 -->
<!--  合作联盟结束 -->
</DIV>
<!-- 主体左边部分结束  --><!-- 主体中间部分 -->
<!-- 产品介绍结束 --><!-- 购买流程 -->
<DIV class="DivBorder OrderDiv1">
<DIV class=News_Top1><SPAN class=News_Dot><IMG height=9 
src="../images/Ddot.jpg" 
width=9 border=0></SPAN><SPAN class=News_Text1>会员中心</SPAN></DIV>

<DIV class=Fs_All_Bottom1>  <FORM name="Form1" action="UserEdit.asp" method="post">		  
                    <table width=649 border=0 align="center" cellpadding=2 cellspacing=2 class='border'>
                      <TR align=center class='title'> 
                        <TD height=20 colSpan=2><font color="#FF6600" class=font14><b>修改注册用户信息</b></font></TD>
                      </TR>
                      <TR> 
                        <TD width="120" align="right">用 户 名：</TD>
                        <TD> <INPUT name=UserName value="<%=rsUser("UserName")%>" size=30   maxLength=14></TD>
                      </TR>
                      <TR> 
                        <TD width="120" align="right">性别：</TD>
                        <TD> <INPUT type=radio value="1" name=sex <%if rsUser("Sex")=1 then response.write "CHECKED"%>>
                          男 &nbsp;&nbsp; <INPUT type=radio value="0" name=sex <%if rsUser("Sex")=0 then response.write "CHECKED"%>>
                          女</TD>
                      </TR>
                      <TR> 
                        <TD width="120" align="right">Email地址：</TD>
                        <TD> <INPUT name=Email value="<%=rsUser("Email")%>" size=30   maxLength=50> 
                        </TD>
                      </TR>
                      <TR> 
                        <TD width="120" align="right">主页：</TD>
                        <TD> <INPUT   maxLength=100 size=30 name=homepage value="<%=rsUser("HomePage")%>"></TD>
                      </TR>
                      <TR> 
                        <TD width="120" align="right">公司名称：</TD>
                        <TD> <INPUT name=CompanyName value="<%=rsUser("CompanyName")%>" size=30 maxLength=20></TD>
                      </TR>
                      <TR> 
                        <TD width="120" align="right">收货地址：</TD>
                        <TD> <INPUT name=Add value="<%=rsUser("Add")%>" size=30 maxLength=50></TD>
                      </TR>
                      <TR> 
                        <TD align="right">收货人：</TD>
                        <TD><INPUT name=Receiver value="<%=rsUser("Receiver")%>" size=30 maxLength=50></TD>
                      </TR>
                      <TR> 
                        <TD align="right">邮政编码：</TD>
                        <TD><INPUT name=Postcode value="<%=rsUser("Postcode")%>" size=30 maxLength=50></TD>
                      </TR>
                      <TR> 
                        <TD align="right">联系电话：<br></TD>
                        <TD><INPUT name=Phone value="<%=rsUser("Phone")%>" size=30 maxLength=50></TD>
                      </TR>
                      <TR>
                        <TD align="right">手机：</TD>
                        <TD><INPUT name=Mobile value="<%=rsUser("Mobile")%>" size=30 maxLength=50></TD>
                      </TR>
                      <TR> 
                        <TD align="right">传 真：</TD>
                        <TD><INPUT name=Fax value="<%=rsUser("Fax")%>" size=30 maxLength=50></TD>
                      </TR>
                      <TR align="center" > 
                        <TD height="40" colspan="2"><input name="Action" type="hidden" id="Action" value="Modify"> 
                          <input name=Submit   type=submit id="Submit" value="保存修改结果"> 
                      </TR>
                    </TABLE> 
				  </form>
<DIV class=Fs_C_Center></DIV>
</DIV></DIV><!-- 购买流程结束 --><!-- 客户案例 -->
<!-- 客户案例结束 -->
</DIV>
<!-- 主体中间部分结束 --><!-- 右边部分开始  -->
<!-- 右边部分结束  -->
</DIV></div>
<!--  主体部分结束  --><!--  版权部分开始  -->
<!--#include file="inc/foot.asp" --><!--  版权部分结束  -->
<SCRIPT language=javascript 
src="../images/js.js" 
type=text/javascript></SCRIPT>
</BODY></HTML>
<%
		end if
	end if
	rsUser.close
	set rsUser=nothing
end if
call CloseConn()
%>
💿 文件大小 32475 K
👤 上传用户 zcflion
📂 所属分类 MySQL数据库
🏷️ 相关标签

#ROSE
⌨️ 快捷键说明

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