www.gusucode.com > 绿色环保工作企业网站源码程序 > UserEdit.asp
<!--#include file="inc/conn.asp"--> <!--#include file="inc/config.asp"--> <!--#include file="inc/function.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 %> <!-- #include file="Head.asp"--> <TABLE cellSpacing=0 cellPadding=0 width=1002 align=center border=0> <TBODY> <TR> <TD vAlign=top width=210><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD><IMG height=40 src="imgbly/lt29.gif" width=210></TD> </TR> <TR> <TD align=middle><TABLE style="BORDER-RIGHT: #e9e9e9 1px solid; BORDER-TOP: #e9e9e9 1px solid; BORDER-LEFT: #e9e9e9 1px solid; BORDER-BOTTOM: #e9e9e9 1px solid" cellSpacing=0 cellPadding=0 width=178 border=0> <TBODY> <TR> <TD height=15> </TD> </TR> <TR> <TD><TABLE cellSpacing=0 cellPadding=0 width=162 align=center border=0> <TBODY> <TR> <TD class=lNav1><a href="UserEdit.asp">修改会员资料</a></TD> </TR> <TR> <TD class=lNav><a href="UserEditPwd.asp">修改会员密码</a></TD> </TR> <TR> <TD class=lNav><a href="UserOrder.asp">购物订单查询</a></TD> </TR> <TR> <TD class=lNav><a href="FeedbackMember.asp">站内留言中心</a></TD> </TR> <TR> <TD class=lNav><a href="UserLogout.asp?Action=Ch">退出会员中心</a></TD> </TR> </TBODY> </TABLE></TD> </TR> <TR> <TD height=15> </TD> </TR> </TBODY> </TABLE></TD> </TR> </TBODY> </TABLE> <TABLE style="MARGIN-TOP: 10px; MARGIN-BOTTOM: 9px" cellSpacing=0 cellPadding=0 width=178 align=center border=0> <TBODY> <TR> <TD><SELECT style="BORDER-RIGHT: #d4d0c8 1px solid; BORDER-TOP: #d4d0c8 1px solid; BORDER-LEFT: #d4d0c8 1px solid; WIDTH: 178px; BORDER-BOTTOM: #d4d0c8 1px solid" onchange="if(this.value!='')document.location.href=this.value;" name=select> <OPTION selected> - - -产品导航 - - -</OPTION> <OPTION value=Product.asp>产品系列1</OPTION> <OPTION value=Product.asp>产品系列2</OPTION> <OPTION value=Product.asp>产品系列3</OPTION> <OPTION value=Product.asp>产品系列4</OPTION> <OPTION value=Product.asp>产品系列5</OPTION> </SELECT></TD> </TR> </TBODY> </TABLE> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD><IMG height=38 src="imgbly/tit_sel.gif" width=210></TD> </TR> <TR> <TD align=center><table width="180" border=0 align="center" cellpadding=0 cellspacing=1 style="BORDER-RIGHT: #e3e3e3 1px solid; BORDER-TOP: #e3e3e3 1px solid; BORDER-LEFT: #e3e3e3 1px solid; BORDER-BOTTOM: #e3e3e3 1px solid"> <tbody> <tr> <td style="PADDING-BOTTOM: 8px; PADDING-TOP: 8px"><table border="0" cellpadding="2" cellspacing="0" align="center"> <form method="Get" name="myform" action="search.asp"> <tr> <td height="28"><input type="text" name="keyword" style="BORDER-RIGHT: #b7b7b7 1px solid; BORDER-TOP: #b7b7b7 1px solid; BORDER-LEFT: #b7b7b7 1px solid; WIDTH: 120px; BORDER-BOTTOM: #b7b7b7 1px solid" size=12 value="关键字" maxlength="50" onFocus="this.select();"> <input type="submit" name="Submit" value="搜索"> </td> </tr> </form> </table></td> </tr> </table></TD> </TR> </TABLE></TD> <TD style="BACKGROUND: url(imgbly/bg_body.gif) repeat-y 50% top" vAlign=top><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD background=imgbly/bg_rt.gif><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD><IMG src="imgbly/rt16.gif" width="209" height=41></TD> <TD> </TD> <TD class=loc style="BACKGROUND: url(img/bg_rtjiao.gif) no-repeat right 50%; COLOR: #9f9f9f" align=right>你现在的位置:<A href="index.asp">首页</A> > 服务中心 >修改资料</TD> </TR> </TBODY> </TABLE></TD> <TD width=17> </TD> </TR> </TBODY> </TABLE></TD> </TR> </TBODY> </TABLE> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="3%" height="34" rowspan="3"> </td> <td width="94%"> </td> <td width="3%" rowspan="3"> </td> </tr> <tr> <td><form name="Form1" action="UserEdit.asp" method="post"> <table width=90% border=0 align="center" cellpadding=3 cellspacing=1 bgcolor="#E3E3E3" class='border'> <tr align=center bgcolor="#FFFFFF" > <td height=40 colspan=2><font color="#FF6600"><b>修改注册用户信息</b></font><font color="#ffffff" class=font14> </font></td> </tr> <tr bgcolor="#FFFFFF"> <td width="120" height="30" align="right">用 户 名:</td> <td height="30"><input name=UserName value="<%=rsUser("UserName")%>" size=30 maxlength=14></td> </tr> <tr bgcolor="#FFFFFF"> <td width="120" height="30" align="right">性别:</td> <td height="30"><input type=radio value="1" name=sex <%if rsUser("Sex")=1 then response.write "CHECKED"%>> 男 <input type=radio value="0" name=sex <%if rsUser("Sex")=0 then response.write "CHECKED"%>> 女</td> </tr> <tr bgcolor="#FFFFFF"> <td width="120" height="30" align="right">Email地址:</td> <td height="30"><input name=Email value="<%=rsUser("Email")%>" size=30 maxlength=50> </td> </tr> <tr bgcolor="#FFFFFF"> <td width="120" height="30" align="right">主页:</td> <td height="30"><input maxlength=100 size=30 name=homepage value="<%=rsUser("HomePage")%>"></td> </tr> <tr bgcolor="#FFFFFF"> <td width="120" height="30" align="right">公司名称:</td> <td height="30"><input name=CompanyName value="<%=rsUser("CompanyName")%>" size=30 maxlength=20></td> </tr> <tr bgcolor="#FFFFFF"> <td width="120" height="30" align="right">收货地址:</td> <td height="30"><input name=Add value="<%=rsUser("Add")%>" size=30 maxlength=50></td> </tr> <tr bgcolor="#FFFFFF"> <td height="30" align="right">收货人:</td> <td height="30"><input name=Receiver value="<%=rsUser("Receiver")%>" size=30 maxlength=50></td> </tr> <tr bgcolor="#FFFFFF"> <td height="30" align="right">邮政编码:</td> <td height="30"><input name=Postcode value="<%=rsUser("Postcode")%>" size=30 maxlength=50></td> </tr> <tr bgcolor="#FFFFFF"> <td height="30" align="right">联系电话:<br></td> <td height="30"><input name=Phone value="<%=rsUser("Phone")%>" size=30 maxlength=50></td> </tr> <tr bgcolor="#FFFFFF"> <td height="30" align="right">手机:</td> <td height="30"><input name=Mobile value="<%=rsUser("Mobile")%>" size=30 maxlength=50></td> </tr> <tr bgcolor="#FFFFFF"> <td height="30" align="right">传 真:</td> <td height="30"><input name=Fax value="<%=rsUser("Fax")%>" size=30 maxlength=50></td> </tr> <tr align="center" bgcolor="#FFFFFF" > <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></td> </tr> <tr> <td> </td> </tr> </table></TD> </TR> </TBODY> </TABLE> <!-- #include file="Inc/Foot.asp" --> </BODY></HTML> <% end if end if rsUser.close set rsUser=nothing end if call CloseConn() %>