📄 en_manage.asp
字号:
<%@ LANGUAGE=VBScript CodePage=936%>
<%option explicit%>
<%Response.Buffer=True%>
<!--#include file="Include/En_System.asp"-->
<!--#include file="Include/En_StrLeft.asp"-->
<!--#include file="../Inc/md5.asp"-->
<%
'=========================================================
'
' 产品名称：良精软件 公司(企业)网站管理系统（简称：liangjing.net）
' 版权所有：liangjing.net
' 程序制作：liangjing开发团队
' Copyright 2004-2005 liangjing.net - All Rights Reserved.
'
'========================================================
%>
<%
dim Action,UserName
dim FoundErr,ErrMsg
dim rsUser,sqlUser
dim Sex,Email,Homepage,Comane,Add,Somane,Zip,Phone,Fox
Action=trim(request("Action"))
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 [Bs_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
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="Include/En_Head.asp" -->
<TABLE cellPadding=0 cellSpacing=0 class='Middle_Title'>
<TR>
<TD vAlign=top class='M_Left_Td'>
<table cellpadding="0" cellspacing="0" align="center" class='M_Left_Title'>
<tr>
<td valign="top">
<% Call Left_Member() %>
</td>
</tr>
</table>
</TD>
<TD class='M_Jgx_TD'><IMG src='../img/1x1_pix.gif' width=1 height=2></TD>
<TD vAlign=top>
<TABLE cellPadding=0 cellSpacing=0 align='center' class='M_Center_Title'>
<% Call Style_Adcolumn() '广告栏 %>
<!-- 修改会员资料 -->
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 class='MC_Pt_Title'>
<TR>
<TD class='MC_Pt_TD1'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
<TD class='MC_Pt_TD2'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
<TD class='MC_Pt_TD3'><SPAN class=Glow>
Revise registered user info
</SPAN></TD>
<TD class='MC_Pt_TD4'><div align="right">
</div></TD>
<TD class='MC_Pt_TD5'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 class='MC_ServeNr_Title'>
<TR>
<TD><FORM name="Form1" action="En_Manage.asp" method="post">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="5">
<TR><TD height=15><IMG height=1 src="img/1x1_pix.gif" width=10></TD></TR>
<TR class="tdbg" >
<TD width="120" align="right"><b>UserName：</b></TD>
<TD> <%=rsUser("UserName")%><INPUT name="UserName" type="hidden" value="<%=rsUser("UserName")%>" size=30 maxLength=30></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 <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>
</form></TD>
</TR>
</TABLE>
</TD>
</TR>
<%
end if
end if
rsUser.close
set rsUser=nothing
end if
%>
<!-- 修改会员资料 End -->
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 class='MC_bottom_title'>
<tr>
<td>
</td>
</tr>
<tr><td class='MC_bottom_Td2'></td></tr>
</table>
</TD>
</TR>
<TR><TD height=10><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
</TABLE>
</TD>
</TR>
</TABLE>
<!--#include file="Include/En_Foot.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -