📄 edit_user.asp
字号:
<!--#include file="../act_inc/ACT.User.asp"-->
<!--#include file="../act_inc/md5.asp"-->
<!--#include file="../ACT_inc/ACT.U_M.ASP"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>用户管理中心</title>
<link href="Images/css/css.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/javascript" src="../editor/fckeditor/fckeditor.js"></script>
<script type='text/javascript' src='../ACT_INC/WebTime/WdatePicker.js'></script>
</head>
<body>
<%
Dim UserHS
Set UserHS = New ACT_User
IF Cbool(UserHS.UserLoginChecked)=false then
Response.Write "<script>top.location.href ='login.asp' ;</script>"
Response.end
End If
%>
<table width="98%" height=20 border=0 align="center" cellPadding=2 cellSpacing=1 borderColor=#111111 class="table" id=AutoNumber3 style="BORDER-COLLAPSE: collapse">
<tr>
<td height=20 class="bg_tr"><B>个人资料修改</B></td>
<td width=583 height=20 align=right class="bg_tr"><a href="Edit_User.asp"><font color=red>·基本信息</font></a> ·<a href="Edit_User.asp?Action=ContactInfo">联系信息</a> ·<a href="Edit_User.asp?Action=PassInfo">密码设置</a> </td>
</tr>
</table>
<%
Select Case ACTCMS.S("Action")
Case "ContactInfo"
Call ContactInfo()
Case "PassInfo"
Call PassInfo()
Case "PassSave"
Call PassSave()
Case "PassQuestionSave"
Call PassQuestionSave()
Case "BasicInfoSave"
Call BasicInfoSave()
Case "ContactInfoSave"
Call ContactInfoSave()
Case Else
Call EditBasicInfo()
End Select
'基本信息
Sub EditBasicInfo()
%>
<script>
<!----检查用户名，电子邮箱结束-->
function CheckForm()
{
if (document.tcjdxr.RealName.value =="")
{
alert("请填写您的真实姓名！");
document.tcjdxr.RealName.focus();
return false;
}
if (document.tcjdxr.Sex.value =="")
{
alert("请选择您的性别！");
document.tcjdxr.Sex.focus();
return false;
}
return true;
}
</script>
<table cellspacing="1" cellpadding="3" class="table" width="98%" align="center" border="0">
<form action="Edit_User.asp?Action=BasicInfoSave" method="post" name="tcjdxr" id="tcjdxr" onSubmit="return CheckForm();">
<tr class="title">
<td height="22" colspan="2" align="center" class="bg_tr"> 基 本 资 料 </td>
</tr>
<tr class="tdbg">
<td width="22%" height="22" class="td_bg"><span style="font-weight: bold"> 会员名称： </span><br></td>
<td width="78%" class="td_bg">
<input class="textbox" type="text" name="username" size="30" value="<%=UserHS.username%>" disabled="disabled" />
用于登录会员中心的账号，不可修改。</td>
</tr>
<tr class="tdbg">
<td width="22%" height="22" class="td_bg"><span style="font-weight: bold"> 真实姓名：</span><br>
请务必填写真实姓名</td>
<td width="78%" class="td_bg">
<input name="RealName" class="textbox" type="text" id="RealName" value="<%=UserHS.Realname%>" size="30" maxlength="50" />
<span style="color: red">* </span></td>
</tr>
<tr class="tdbg">
<td width="22%" height="22" class="td_bg"><span style="font-weight: bold">性 别：</span><br>
请选择您的性别</td>
<td width="78%" class="td_bg">
<select name="Sex" id="Sex" style="width:110">
<option value="">==请选择性别==</option>
<option value="0" <%if UserHS.sex="0" then%> selected="selected" <%else%><%end if%>>男</option>
<option value="1" <%if UserHS.sex="1" then%> selected="selected" <%else%><%end if%>>女</option>
</select>
<span style="color: red">* </span></td>
<tr class="tdbg">
<td width="22%" height="22" class="td_bg"><span style="font-weight: bold"> 出生日期：</span><br>
请填写正确的出生日期，格式：0000-00-00</td>
<td width="78%" class="td_bg">
<input name="Birthday" class="textbox" type="text" id="Birthday" value="<%=UserHS.Birthday%>" size="30" maxlength="50" />
<span style="color: red">*</span></td>
</tr>
<tr class="tdbg">
<td height="22" class="td_bg"><span style="font-weight: bold">隐私设定：</span><br>开放后别人可以看到您的性别、Email、QQ等信息</td>
<td class="td_bg">
<input type="radio" <%if UserHS.Privacy=0 Then Response.Write "checked=""checked"""%> value="0" name="Privacy" />
公开全部信息(包括真实姓名/电话号码/生日等) <br />
<input type="radio" value="1" name="Privacy" <%if UserHS.Privacy=1 Then Response.Write "checked=""checked"""%>/>
公开部分信息(只公开QQ/Email等网上联络的信息) <br />
<input type="radio" value="2" name="Privacy" <%if UserHS.Privacy=2 Then Response.Write "checked=""checked"""%>/>
完全保密(别人只能查看你的昵称) </td>
</tr>
<tr class="tdbg">
<td width="22%" height="30" class="td_bg"> </td>
<td width="78%" class="td_bg"><input class="ACT_btn" name="Submit" type="submit" value=" 修 改 " />
<input class="ACT_btn" name="Submit2" type="reset" value=" 重 填 " /> </td>
</tr>
</form>
</table>
<%
End Sub
'联系信息
Sub ContactInfo()
%>
<script>
function OpenWindowAndSetValue(Url,Width,Height,WindowObj,SetObj)
{
var ReturnStr=showModalDialog(Url,WindowObj,'dialogWidth:'+Width+'pt;dialogHeight:'+Height+'pt;status:yes;help:no;scroll:yes;');
if (ReturnStr!='') SetObj.value=ReturnStr;
return ReturnStr;
}
function CheckForm()
{
if (document.tcjdxr.OfficeTel.value =="")
{
alert("请填写您的办公电话！");
document.tcjdxr.OfficeTel.focus();
return false;
}
if (document.tcjdxr.Email.value =="")
{
alert("请输入您的电子信箱！");
document.tcjdxr.Email.focus();
return false;
}
if((document.tcjdxr.Email.value.indexOf("@")==-1)||(document.tcjdxr.Email.value.indexOf(".")==-1))
{
alert("您输入的电子邮件地址有误！");
document.tcjdxr.Email.focus();
return false;
}
return true;
}
</script>
<table cellspacing="1" cellpadding="3" class="table" width="98%" align="center" border="0">
<form action="Edit_User.asp?Action=ContactInfoSave" method="post" name="tcjdxr" id="tcjdxr" onSubmit="return CheckForm();">
<tr class="title">
<td height="22" colspan="2" align="center" class="bg_tr"> 联 系 信 息 </td>
</tr><tr class="tdbg">
<td width="16%" height="22" align="right" class="td_bg"><span style="font-weight: bold"> 电子邮箱：</span><br></td>
<td width="84%" class="td_bg">
<input class="textbox" name="Email" type="text" id="Email" value="<%=UserHS.Email%>" size="35" maxlength="50" />
<span style="color: red">* 请输入有效的邮件地址。</span></td>
</tr>
<%
Call U_M.ACT_MXEdit(UserHS.UModeID,UserHS.UserID) %>
<tr class="tdbg">
<td height="22" align="right" class="td_bg"><span style="font-weight: bold">所在地区：</span><br></td>
<td class="td_bg">
<select name="prov" onChange="selectcityarea('prov','city','tcjdxr');" style="width:110">
<%if UserHS.Province<>"" then%>
<option value="<%=UserHS.Province%>" selected="selected"><%=UserHS.Province%></option>
<%else%>
<option value="" selected="selected">==请选择省份==</option>
<%end if%>
</select>
<select name="city" style="width:110">
<%if UserHS.city<>"" then%>
<option value="<%=UserHS.city%>" selected="selected"><%=UserHS.city%></option>
<%else%>
<option value="" selected="selected">==请选择城市==</option>
<%end if%>
</select>
选择您所在的省份和城市。</td>
</tr>
<!--省份城市的调用开始---->
<script language="JavaScript" src="<%=ACTCMS.ActCMSDM%>act_inc/Province.js" type="text/javascript"></script>
<!----省份城市调用结束---->
<tr class="tdbg">
<td height="30" class="td_bg"> </td>
<td width="84%" class="td_bg"><input class="ACT_btn" name="Submit" type="submit" value=" 修 改 " />
<input class="ACT_btn" name="Submit2" type="reset" value=" 重 填 " /> </td>
</tr>
</form>
</table>
<%
End Sub
'设置密码
Sub PassInfo()
%>
<script>
function CheckForm()
{
if (document.tcjdxr.oldpassword.value =="")
{
alert("请填写您的旧密码！");
document.tcjdxr.oldpassword.focus();
return false;
}
if (document.tcjdxr.newpassword.value =="")
{
alert("请输入您的新密码！");
document.tcjdxr.newpassword.focus();
return false;
}
if (document.tcjdxr.renewpassword.value =="")
{
alert("请输入您的新确认密码！");
document.tcjdxr.renewpassword.focus();
return false;
}
if (document.tcjdxr.newpassword.value !=document.tcjdxr.renewpassword.value)
{
alert("两次输入的密码不一致！");
document.tcjdxr.renewpassword.focus();
return false;
}
return true;
}
function CheckForm1()
{
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -