en_manage.asp

此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。此系统直接上传到你的网站空间就可以使用了

<!--#include file="Inc/En_syscode.asp" -->
<%
'=================================
'
'  冠龙网络科技有限公司
'  网址：http://www.glgk.com
'  电话 :[phone]
'  信箱：[e-mail]
'  QQ：53180986
'
'=================================
%>
<!--#include file="inc/md5.asp"-->
<%
dim Action,UserName
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 "En_Server.asp"
	else
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>The parameter is insufficient ！</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>Can find designated users ！</li>"
		call writeErrMsg()
	else
		if Action="Modify" then
			dim Sex,Email,Homepage,QQ,MSN
			Sex=trim(Request("Sex"))
			Email=trim(request("Email"))
			Homepage=trim(request("Homepage"))
			Comane=trim(request("Comane"))
			Add=trim(request("Add"))
			Somane=trim(request("Somane"))
			Zip=trim(request("Zip"))
			Phone=trim(request("Phone"))
			Fox=trim(request("Fox"))
			if Sex="" then
				founderr=true
				errmsg=errmsg & "<br><li>The sex can be empty </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 It can be empty </li>"
			else
				if IsValidEmail(Email)=false then
					errmsg=errmsg & "<br><li>Your Email has a mistake </li>"
			   		founderr=true
				end if
			end if
			if Comane="" then
				founderr=true
				errmsg=errmsg & "<br><li>Company name can be empty </li>"
			end if
			if Add="" then
				founderr=true
				errmsg=errmsg & "<br><li>The address can be empty to receive </li>"
			end if
			if Somane="" then
				founderr=true
				errmsg=errmsg & "<br><li>The consignee can be empty </li>"
			end if
			if Phone="" then
				founderr=true
				errmsg=errmsg & "<br><li>The telephone number can be empty </li>"
			end if
			if FoundErr<>true then
				rsUser("Sex")=Sex
				rsUser("Email")=Email
				rsUser("HomePage")=HomePage
				rsUser("Comane")=Comane
				rsUser("Add")=Add
				rsUser("Somane")=Somane
				rsUser("Zip")=Zip
				rsUser("Phone")=Phone
				rsUser("Fox")=Fox
				rsUser.update
				response.write"<SCRIPT language=JavaScript>alert('Member materials revise success! ');"
                response.write"javascript:history.go(-1)</SCRIPT>"
				'call WriteSuccessMsg("会员资料修改成功！")
			else
				call WriteErrMsg()
			end if
		else

%>
<!-- #include file="Inc/En_Head.asp" -->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
  
    <TR> 
      <TD width=196 vAlign=top bgcolor="#FFFFFF"> 
        <table width="92%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
          <tr>
            <td valign="top">

<!-- 会员中心 -->
<!-- #include file="En_L_vip.asp" -->
<!-- 产品列表 -->
<!-- #include file="En_L_product.asp" -->

			</td>
		</tr>
	</table> 
</TD>

<TD width=1 background=Img/kropki_pion_naBialym.gif><IMG height=2 src="img/1x1_pix.gif" width=1></TD>
<TD vAlign=top>
	<TABLE width="90%" border=0 align="right" cellPadding=0 cellSpacing=0>
<!-- 广告栏 -->
<!-- #include file="L_adcolumn.asp" -->
<!-- 修改会员资料 -->
		<TR> 
			<TD> <TABLE cellSpacing=0 cellPadding=0 width="555" border=0>
				<TR> 
					<TD height="25"><img src="Img/enpt/pt_81.gif" width="450" height="30"></TD>
				</TR>
			</TABLE></TD>
		</TR>
		<TR> 
			<TD background=img/naBialym.gif height=1><IMG height=1 src="img/1x1_pix.gif" width=10></TD>
		</TR>
		<TR> 
			<FORM name="Form1" action="En_Manage.asp" method="post">
				<TD>
					<table width=500 border=0 align="center" cellpadding=2 cellspacing=2 class='border'>
						<TR align=center class='title'> 
							<TD height=30 colSpan=2><font color="#FF6600" size="2" class=en><b>Revise registered user info</b></font></TD>
						</TR>
						<TR class="tdbg" > 
							<TD width="120" align="right"><b>UserName：</b></TD>
							<TD> <INPUT name=UserName value="<%=rsUser("UserName")%>" size=30   maxLength=14></TD>
						</TR>
						<TR class="tdbg" > 
							<TD width="120" align="right"><strong>Sex ：</strong></TD>
							<TD> <INPUT type=radio value="1" name=sex <%if rsUser("Sex")=1 then response.write "CHECKED"%>>
							Male &nbsp;&nbsp; <INPUT type=radio value="0" name=sex <%if rsUser("Sex")=0 then response.write "CHECKED"%>>
							Female</TD>
						</TR>
						<TR class="tdbg" > 
							<TD width="120" align="right"><strong>Email：</strong></TD>
							<TD> <INPUT name=Email value="<%=rsUser("Email")%>" size=30   maxLength=50></TD>
						</TR>
						<TR class="tdbg" > 
							<TD width="120" align="right"><strong>Website：</strong></TD>
							<TD> <INPUT   maxLength=100 size=30 name=homepage value="<%=rsUser("HomePage")%>"></TD>
						</TR>
						<TR class="tdbg" > 
							<TD width="120" align="right"><strong>CompanyName：</strong></TD>
							<TD> <INPUT name=Comane value="<%=rsUser("Comane")%>" size=30 maxLength=20></TD>
						</TR>
						<TR class="tdbg" > 
							<TD width="120" align="right"><strong>ReceiveAddress：</strong></TD>
							<TD> <INPUT name=Add value="<%=rsUser("Add")%>" size=30 maxLength=50></TD>
						</TR>
						<TR class="tdbg" > 
							<TD align="right"><strong>Consignee：</strong></TD>
							<TD><INPUT name=Somane value="<%=rsUser("Somane")%>" size=30 maxLength=50></TD>
						</TR>
						<TR class="tdbg" > 
							<TD align="right"><strong>Zipcode：</strong></TD>
							<TD><INPUT name=Zip value="<%=rsUser("Zip")%>" size=30 maxLength=50></TD>
						</TR>
						<TR class="tdbg" > 
							<TD align="right"><strong>Telephone：</strong><br></TD>
							<TD><INPUT name=Phone value="<%=rsUser("Phone")%>" size=30 maxLength=50></TD>
						</TR>
						<TR class="tdbg" > 
							<TD align="right"><strong>Fax：</strong></TD>
							<TD><INPUT name=Fox value="<%=rsUser("Fox")%>" size=30 maxLength=50></TD>
						</TR>
						<TR align="center" class="tdbg" > 
							<TD height="40" colspan="2"><input name="Action" type="hidden" id="Action" value="Modify"
							><input name=Submit type=submit id="Submit" value="SaveRevise"></TD>
						</TR>
					</TABLE>
				</TD>
			</form>
		</TR>
		<TR> 
			<TD background=img/naBialym.gif height=1><IMG height=1 src="img/1x1_pix.gif" width=10></TD>
		</TR>
		<TR> 
			<TD height=45>&nbsp; </TD>
		</TR>
	</TABLE>
</TD>

</TR>
</TABLE>
<!-- #include file="Inc/En_Foot.asp" -->
</BODY></HTML>
<%
end if
end if
rsUser.close
set rsUser=nothing
end if
call CloseConn()
%>