usercorp.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

Sub Add_Edit_Search()
''添加删除查询共用。
Dim UserNumber,Bol_IsEdit
Bol_IsEdit = false
if request.QueryString("Act")="Edit" then 
	UserNumber = NoSqlHack(Trim(request.QueryString("UserNumber")))
	if UserNumber="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的UserName没有提供</li>") : response.End()
	UserSql = "select UserID,UserName,UserPassword,HeadPic,HeadPicSize,PassQuestion,PassAnswer,safeCode,tel,Mobile,isMessage,Email," _
			  &"HomePage,QQ,MSN,Corner,Province,City,Address,PostCode,NickName,RealName,Vocation,Sex,BothYear,Certificate,CertificateCode,IsCorporation,PopList," _
			  &"PopList,Integral,FS_Money,RegTime,CloseTime,TempLastLoginTime,TempLastLoginTime_1,IsMarray,SelfIntro,isOpen,GroupID,LastLoginIP," _
			  &"ConNumber,ConNumberNews,isLock,UserFavor,MySkin,UserLoginCode,OnlyLogin,hits" _

			  &",C_Name,C_ShortName,C_Province,C_City,C_Address,C_PostCode,C_ConactName,C_Tel,C_Fax,C_VocationClassID,C_Website,C_size,C_Capital,C_BankName,C_BankUserName" _
			  &" from FS_ME_Users A,FS_ME_CorpUser B where  A.UserNumber=B.UserNumber and A.UserNumber= '"& UserNumber &"'"
	Set GetUserDataObj_Rs	= CreateObject(G_FS_RS)
	GetUserDataObj_Rs.Open UserSql,User_Conn,1,1
	if GetUserDataObj_Rs.eof then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>没有相关的内容,或该内容已不存在.</li>") : response.End()
	Bol_IsEdit = True
end if	
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
	<tr class="hback">
		<td width="140" class="xingmu" colspan="3">
			<%if request.QueryString("Act")<>"Search" then response.Write("会员系统参数设置") else response.Write("查询会员") end if %>
		</td>
	</tr>
	<tr class="hback">
		<td width="33%"  id="Lab_Base">
			<div align="center">
				<%if left(request.QueryString("Act"),3)="Add" then 
		response.Write("<span class=tx>第一步：企业注册信息</span>") 
	elseif request.QueryString("Act")="Search" then 
		response.Write("<a href=""#"" onClick=""showDataPanel(1)"">企业注册信息查询模式</a>") 
	else
		response.Write("<a href=""#"" onClick=""showDataPanel(1)"">企业注册信息设置</a>") 
	end if%>
			</div>
		</td>
		<td width="33%" height="19" class="xingmu" id="Lab_Other">
			<div align="center">
				<%if left(request.QueryString("Act"),3)="Add" then 
		response.Write("<span class=tx>第二步：企业扩展信息</span>") 
	elseif request.QueryString("Act")="Search" then 
		response.Write("<a href=""#"" onClick=""showDataPanel(2)"">企业扩展信息查询模式</a>") 
	else 
		response.Write("<a href=""#"" onClick=""showDataPanel(2)"">企业扩展信息设置</a>") 
	end if%>
			</div>
		</td>
		<td height="19" class="xingmu" id="Lab_Three">
			<div align="center">
				<%if left(request.QueryString("Act"),3)="Add" then 
		response.Write("<span class=tx>第三步：公司相关信息</span>") 
	elseif request.QueryString("Act")="Search" then 
		response.Write("<a href=""#"" onClick=""showDataPanel(3)"">企业相关信息查询模式</a>") 
	else 
		response.Write("<a href=""#"" onClick=""showDataPanel(3)"">企业相关信息设置</a>") 
	end if%>
			</div>
		</td>
	</tr>
	<tr class="hback">
		<td align="right"  colspan="3">
			<!---基础数据开始-->
			<div id="Layer1" style="position:relative; z-index:1; left: 0px; top: 0px;">
				<table width="96%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
					<form name="UserForm" method="post" <%if request.QueryString("Act")="Add" then 
			   response.Write(" action=""?Act=Add_BaseData""  onsubmit=""return CheckForm(this);""") 
			  elseif request.QueryString("Act")="Search" then 
			  	response.Write(" action=""?Act=SearchGo""")
			  else
			   response.Write(" action=""UserCorp_DataAction.asp?Act=BaseData""  onsubmit=""return CheckForm(this);""") 
			  end if%>>
						<%if request.QueryString("Act")<>"Search" then%>
						<tr class="hback">
							<td height="20" colspan="3" class="xingmu">请填写您的基本资料<span class="tx">(以下项目为空的不修改则请留空)</span></td>
						</tr>
						<%end if%>
						<tr class="hback">
							<td width="15%" height="65">
								<div align="right">用户名</div>
							</td>
							<td width="29%">
								<input name="frm_UserName" type="text" id="frm_UserName" style="width:90%" value="<%if Bol_IsEdit then response.Write""&GetUserDataObj_Rs("UserName")&"" end if%>" <%if Bol_IsEdit then response.write "readonly"%> >
								<%if request.QueryString("Act")<>"Search" then%>
								<a href="javascript:CheckName('../../user/lib/CheckName.asp')">是否被占用</a>
								<%end if%>
							</td>
							<td width="56%">
								<%if request.QueryString("Act")<>"Search" then%>
								户名由a～z的英文字母(不区分大小写)、0～9的数字、点、减号或下划线及中文组成，长度为3～18个字符，只能以数字或字母开头和结尾,例如:coolls1980。
								<%else%>
								模糊查询
								<%end if%>
							</td>
						</tr>
						<tr class="hback">
							<td height="16" colspan="3" class="xingmu">请填写安全设置：（安全设置用于验证帐号和找回密码）</td>
						</tr>
						<%If p_isValidate = 0 and request.QueryString("Act")<>"Search" then%>
						<tr class="hback">
							<td height="16">
								<div align="right">密码</div>
							</td>
							<td>
								<input name="frm_UserPassword" type="password" id="frm_UserPassword" style="width:90%" maxlength="50">
							</td>
							<td rowspan="2">密码长度为<%=p_LenPassworMin%>～<%=p_LenPassworMax%>位，区分字母大小写。登录密码可以由字母、数字、特殊字符组成。</td>
						</tr>
						<tr class="hback">
							<td height="24">
								<div align="right">确认密码</div>
							</td>
							<td>
								<input name="frm_cUserPassword" type="password" id="frm_cUserPassword" style="width:90%" maxlength="50">
							</td>
						</tr>
						<%End if
				if request.QueryString("Act") <> "Search" then %>
						<tr class="hback">
							<td height="16">
								<div align="right">密码提示问题</div>
							</td>
							<td>
								<input name="frm_PassQuestion" type="text" id="frm_PassQuestion" style="width:90%" maxlength="30">
							</td>
							<td rowspan="2">当您忘记密码时可由此找回密码。例如，问题是“我的哥哥是谁？”，答案为&quot;coolls8&quot;。问题长度不大于36个字符，一个汉字占两个字符。答案长度在6～30位之间，区分大小写。</td>
						</tr>
						<tr class="hback">
							<td height="16">
								<div align="right">密码答案</div>
							</td>
							<td>
								<input name="frm_PassAnswer" type="text" id="frm_PassAnswer" style="width:90%" maxlength="50">
							</td>
						</tr>
						<tr class="hback">
							<td height="16">
								<div align="right">安全码</div>
							</td>
							<td>
								<input name="frm_SafeCode" type="password" id="frm_SafeCode" style="width:90%" maxlength="30">
							</td>
							<td rowspan="2">全码是您找回密码的重要途径，安全码长度为6～20位，区分字母大小写，由字母、数字、特殊字符组成。<br>
								<Span class="tx">特别提醒：安全码一旦设定，将不可自行修改.</Span></td>
						</tr>
						<tr class="hback">
							<td height="16">
								<div align="right">确认安全码</div>
							</td>
							<td>
								<input name="frm_cSafeCode" type="password" id="frm_cSafeCode" style="width:90%" maxlength="30">
							</td>
						</tr>
						<%end if%>
						<tr class="hback">
							<td height="16">
								<div align="right">电子邮件</div>
							</td>
							<td>
								<input name="frm_Email" type="text" id="frm_Email" style="width:90%" maxlength="100" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("Email")) end if%>">
								<%if request.QueryString("Act")<>"Search" then%>
								<br>
								<a href="javascript:CheckEmail('../../user/lib/Checkemail.asp')">是否被占用</a>
								<%end if%>
							</td>
							<td>
								<%if request.QueryString("Act")<>"Search" then%>
								您的注册电子邮件。<Span class="tx">注册成功后，将不能修改</span>
								<%end if%>
							</td>
						</tr>
						<!--会员类型。-->
						<input type="hidden" name="frm_UserNumber_Edit1" value="<%=UserNumber%>">
						<tr class="hback">
							<td height="39" colspan="3">
								<div align="center">
									<input type="submit" name="Submit" value="<%if request.QueryString("Act")="Search" then response.Write(" 执行查询 ") else response.Write(" 保存企业基本信息 ") end if%>" style="CURSOR:hand">
									<input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
								</div>
							</td>
						</tr>
					</form>
				</table>
			</div>
			<!---基础数据结束-->
			<div id="Layer2" style="position:relative; z-index:1; left: 0px; top: 0px; width: 889px; height: 942px;">
				<table width="96%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
					<form name="UserForm" method="post"<%if request.QueryString("Act")="Add_BaseData" then 
			   response.Write(" action=""UserCorp_DataAction.asp?Act=Add_OtherData""  onsubmit=""return CheckForm_Other(this);""") 
			  elseif request.QueryString("Act")="Search" then 
			  	response.Write(" action=""?Act=SearchGo""")
			  else
			   response.Write(" action=""UserCorp_DataAction.asp?Act=OtherData""  onsubmit=""return CheckForm_Other(this);""") 
			  end if%>>
						<tr class="hback">
							<td height="27">
								<div align="right"><span class="tx">*</span>昵称</div>
							</td>
							<td>
								<input name="frm_NickName" type="text" id="frm_NickName" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("NickName")) end if%>">
							</td>
							<td>
								<%if request.QueryString("Act")<>"Search" then%>
								请填写您对外的昵称。可以为中文
								<%end if%>
							</td>
						</tr>
						<tr class="hback">
							<td width="15%" height="27">
								<div align="right">姓名</div>
							</td>
							<td width="29%">
								<input name="frm_RealName" type="text" id="frm_RealName" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("RealName")) end if%>">
							</td>
							<td width="56%">
								<%if request.QueryString("Act")<>"Search" then%>
								请填写您的真实姓名。
								<%end if%>
							</td>
						</tr>
						<tr class="hback">
							<td height="16">
								<div align="right"><span class="tx">*</span>性别</div>
							</td>
							<td>
								<input type="radio" name="frm_Sex" value="0" <%if Bol_IsEdit then if GetUserDataObj_Rs("Sex")=0 then response.Write("checked") end if else if request.QueryString("Act")<>"Search" then response.Write("checked") end if end if%>>
								男
								<input type="radio" name="frm_Sex" value="1" <%if Bol_IsEdit then if GetUserDataObj_Rs("Sex")=1 then response.Write("checked") end if end if%>>
								女 </td>
							<td>
								<%if request.QueryString("Act")<>"Search" then%>
								请您选择性别。
								<%end if%>
							</td>
						</tr>
						<tr class="hback">
							<td height="24" align="right">生日</td>
							<td>
								<input type="text" name="frm_BothYear" style="width:60%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("BothYear")) end if%>" readonly>
								<input name="SelectDate" type="button" id="SelectDate" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.all.frm_BothYear);">
							</td>
							<td>
								<%if request.QueryString("Act")="Search" then response.Write("支持简单比较运算符，*123，123*，123的模糊查询。") else response.Write("请填写您的真实生日，该项用于取回密码。") end if%>
							</td>
						</tr>
						<tr class="hback">
							<td height="16">
								<div align="right">证件类别</div>
							</td>
							<td>
								<select name=frm_Certificate  id="frm_Certificate">
									<%if request.QueryString("Act")="Search" then response.Write("<option value="""">请选择</option>") end if%>
									<option value="0" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=0 then response.Write("selected") end if else if request.QueryString("Act")<>"Search" then response.Write("selected") end if end if%>>身份证</option>
									<option value="2" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=2 then response.Write("selected") end if end if%>>学生证</option>
									<option value="1" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=1 then response.Write("selected") end if end if%>>驾驶证</option>
									<option value="3" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=3 then response.Write("selected") end if end if%>>军人证</option>
									<option value="4" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=4 then response.Write("selected") end if end if%>>护照</option>
								</select>
							</td>
							<td rowspan="2">
								<%if request.QueryString("Act")="Search" then response.Write("支持简单比较运算符，*123，123*，123的模糊查询。") else response.Write("有效证件作为取回帐号的最后手段，用以核实帐号的合法身份，请您务必如实填写。<br> <span class=""tx"">特别提醒：有效证件一旦设定，不可更改</span>") end if%>
							</td>
						</tr>
						<tr class="hback">
							<td height="16">
								<div align="right">证件号码</div>
							</td>
							<td>
								<input name="frm_CerTificateCode" type="text" id="frm_CerTificateCode" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("CerTificateCode")) end if%>">