user_userinfo.asp

正版创力4.1SQL商业版!!!ASP版。

		<td width="100" height="25" align="right"><strong>重复密码：</strong></td>
		<td><input type="password" name="PwdConfirm" value="" size="15" maxlength="12" /> <font color="red">(重复新 密 码)</font></td>
		<td width="100" height="25" align="right"><strong>头像地址：</strong></td>
		<td> <input name="UserFace" type="text" size="60" value="<%=rsUser(Db.UserFace)%>" /> 
		</td>
	</tr>
<%if UserTableType = "Bbsxp" Then
UserIM = Split(rsUser(Db.UserIM),"/")
%>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>用户邮箱：</strong></td>
		<td> <input name="UserEmail" type="text" size="30" value="<%=Cl.User_Info(7)%>" /><font color="blue">* </font></td>
		<td width="100" height="25" align="right"><strong>用户主页：</strong></td>
		<td> <input name="UserHome" type="text" size="30" value="<%=Cl.Execute_U("Select "&Db.UserHomePage&" From [User] where Id="&Clng(Cl.UserID)&"")(0)%>" /></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>用户QQ：</strong></td>
		<td> <input name="UserQQ" type="text" size="30" value="<%=UserIM(0)%>" /></td>
		<td width="100" height="25" align="right"><strong>用户ICQ：</strong></td>
		<td> <input name="UserICQ" type="text" size="30" value="<%=UserIM(1)%>" /></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>用户MSN：</strong></td>
		<td> <input name="UserMSN" type="text" size="30" value="<%=UserIM(4)%>" /></td>
		<td width="100" height="25" align="right"><strong>AIM号码：</strong></td>
		<td><input name="UserAIM" type="text" size="30" value="<%=UserIM(3)%>" /></td>
	</tr>
	<tr class="tdbg" >
		<td width="100" height="25" align="right"><strong>yahoo帐号：</strong></td>
		<td><input name="UserYahoo" type="text" size="30" value="<%=UserIM(5)%>" /></td>
		<td width="100" height="25" align="right"><strong>UC号码：</strong></td>
		<td><input name="UserUC" type="text" size="30" value="<%=UserIM(2)%>" /></td>
	</tr>
<%Else
UserIM = Split(rsUser(Db.UserIM),"|||")
%>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>用户邮箱：</strong></td>
		<td> <input name="UserEmail" type="text" size="30" value="<%=Cl.User_Info(7)%>" /><font color="blue">* </font></td>
		<td width="100" height="25" align="right"><strong>用户主页：</strong></td>
		<td> <input name="UserHome" type="text" size="30" value="<%=UserIM(0)%>" /></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>用户QQ：</strong></td>
		<td> <input name="UserQQ" type="text" size="30" value="<%=UserIM(1)%>" /></td>
		<td width="100" height="25" align="right"><strong>用户ICQ：</strong></td>
		<td> <input name="UserICQ" type="text" size="30" value="<%=UserIM(2)%>" /></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>用户MSN：</strong></td>
		<td> <input name="UserMSN" type="text" size="30" value="<%=UserIM(3)%>" /></td>
		<td width="100" height="25" align="right"><strong>AIM号码：</strong></td>
		<td><input name="UserAIM" type="text" size="30" value="<%=UserIM(4)%>" /></td>
	</tr>
	<tr class="tdbg" >
		<td width="100" height="25" align="right"><strong>yahoo帐号：</strong></td>
		<td><input name="UserYahoo" type="text" size="30" value="<%=UserIM(5)%>" /></td>
		<td width="100" height="25" align="right"><strong>UC号码：</strong></td>
		<td><input name="UserUC" type="text" size="30" value="<%=UserIM(6)%>" /></td>
	</tr>
<%end if%>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>国家/省/市：</strong></td>
		<td colspan="3"><input type="text" name="Country" size="18" maxlength="50" value="<%=sCityInfo(0)%>" /> 
		  / 
	      <input type="text" name="Province" size="10" maxlength="50" value="<%=sCityInfo(1)%>" />
			<select name="selectp" onChange="selectcityarea('selectp','selectc','Modify');Modify.Province.value=this.value;">
			<option value="0" selected="selected">请选择....</option>
			</select> / 
			<input type="text" name="City" size="10" maxlength="50" value="<%=sCityInfo(2)%>" />
			<select name="selectc" onChange="Modify.City.value=this.value;">
			<option value="0" selected="selected">请选择....</option>
		</select></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>出生日期：</strong></td>
		<td><input name="BirthDay" type="text" size="30" value="<%=rsUser(Db.UserBirthDay)%>" onfocus="show_cele_date(BirthDay,'','',BirthDay)" /></td>
		<td width="100" height="25" align="right"><strong>身份证号：</strong></td>
		<td><input name="IDCard" type="text" size="30" value="<%=rsUser(Db.IDCard)%>" /></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>工作单位：</strong></td>
		<td><input name="UserWorking" type="text" size="30" value="<%=rsUser(Db.UserWorking)%>" /></td>
		<td width="100" height="25" align="right"><strong>教育程度：</strong></td>
		<td><select name="SchoolAge">
			<option value="" selected>请选择....</option>
			<option value="大专以下">大专以下</option>
			<option value="大专">大专</option>
			<option value="本科">本科</option>
			<option value="本科以上">本科以上</option>
		</select></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>住宅电话：</strong></td>
		<td><input name="UserHomePhone" type="text" size="30" value="<%=rsUser(Db.UserHomePhone)%>" /></td>
		<td width="100" height="25" align="right"><strong>手机号码：</strong></td>
		<td><input name="UserMobile" type="text" size="30" value="<%=rsUser(Db.UserMobile)%>" /></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>办公电话：</strong></td>
		<td><input name="UserTelePhone" type="text" size="30" value="<%=rsUser(Db.UserTelePhone)%>" /></td>
		<td width="100" height="25" align="right"><strong>邮政编码：</strong></td>
		<td><input name="ZipCode" type="text" size="30" value="<%=rsUser(Db.ZipCode)%>" /></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>联系地址：</strong></td>
		<td colspan="3"><input name="UserAddRess" type="text" size="86" value="<%=rsUser(Db.UserAddRess)%>" /></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>注册时间：</strong></td>
		<td><input name="JoinDate" type="text" size="30" value="<%=Cl.Format_Time(rsUser(Db.UserJoinDate),1)%>" disabled="disabled" /></td>
		<td width="100" height="25" align="right"><strong>最后登录：</strong></td>
		<td><input name="LastLogin" type="text" size="30" value="<%=Cl.Format_Time(rsUser(Db.UserLastLogin),1)%>"  disabled="disabled" /></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" height="25" align="right"><strong>备注：</strong></td>
		<td colspan="3"><textarea id="UserReMark" cols="80" rows="5"  disabled="disabled"><%=rsUser(Db.UserReMark)%></textarea>
		  <br />
		<a href="javascript:admin_Size(-5,'UserReMark')"><img src="images/minus.gif" unselectable="on" border="0" alt="" /></a> <a href="javascript:admin_Size(5,'UserReMark')"><img src="images/plus.gif" unselectable="on" border="0" alt="" /></a></td>
	</tr>
		<tr align="center" class="tdbg" > 
			<td height="25" colspan="4">
		      <input name="Submit" type="submit" id="Submit" value="保存修改结果" style="cursor:hand;" /> 
		  <input type="button" value=" 取 消 修 改 " onClick="window.location.href='User_UserInfo.asp?Action=ShowInfo'" style="cursor:hand;" /></td>
		</tr>
  </form>
</table>
<script language="JavaScript" type="text/javascript">
first("selectp","selectc","Modify",0,0);
function CheckModify()
{
	if(document.Modify.OldPassword.value=="")
	{
		alert("请输入用户密码！");
		document.Modify.OldPassword.focus();
		return false;
	}
}
function changeimage(value)
{ 
	//document.formwrite.UserFace.value=document.formwrite.Image.value;
	document.Modify.showuserface.src="<%=InstallDir%>images/guestbook/" + value + ".gif";
	document.getElementById('UserFace').value="{$webdir}images/guestbook/" + value + ".gif";
}
chkradio(Modify.sex,'<%=RsUser(Db.UserSex)%>');
CheckSel('SchoolAge','<%=rsUser("SchoolAge")%>');

</script>
<%
Set rsUser=Nothing
end sub

Sub User_SaveModifyInfo()
	Dim OldPassword,StrPassword,StrPwdConfirm,StrSex,StrEmail,StrIM
	Dim str_Info,UserFace,FaceWidth,FaceHeight
	Dim UserReName,UserTelePhone,UserAddRess
	Dim IDCard,BirthDay,CityInfo,ZipCode
	Dim SchoolAge,UserWorking,UserHomePhone,UserMobile
	OldPassword		= Cl.Checkstr(Trim(Request("OldPassword")))
	StrPassword		= Cl.Checkstr(Trim(Request("Password")))
	StrPwdConfirm	= Cl.Checkstr(Trim(Request("PwdConfirm")))
	StrSex			= Trim(Request("Sex"))
	UserFace		= Cl.Checkstr(Trim(Request("UserFace")))
	FaceWidth		= Cl.GetClng(Trim(Request("FaceWidth")))
	FaceHeight		= Cl.GetClng(Trim(Request("FaceHeight")))
	StrEmail		= Trim(request("UserEmail"))
	UserReName		= Cl.Checkstr(Trim(Request("UserReName")))
	UserTelePhone	= Cl.Checkstr(Trim(Request("UserTelePhone")))
	UserAddRess		= Cl.Checkstr(Trim(Request("UserAddRess")))
	IDCard			= Trim(request("IDCard"))
	BirthDay		= Trim(request("BirthDay"))
	CityInfo		= sRIM(request("Country")) & "|||"&sRIM(request("Province")) & "|||" & sRIM(request("City"))
	CityInfo		= Server.HTMLencode(CityInfo)
	ZipCode			= Trim(Request("ZipCode"))
	if UserTableType = "Bbsxp" then
	StrIM=""& sRIM(Trim(Request("UserQQ"))) &"\"& sRIM(Trim(Request("UserIcq"))) &"\"& sRIM(Trim(Request("UserUC"))) &"\"& sRIM(Trim(Request("UserAIM"))) &"\"& sRIM(Trim(Request("UserMsn"))) &"\"& sRIM(Trim(Request("UserYahoo")))
	else
	StrIM=sRIM(Trim(Request("Userhome"))) &"|||"& sRIM(Trim(Request("UserQQ"))) &"|||"& sRIM(Trim(Request("UserIcq"))) &"|||"& sRIM(Trim(Request("UserMsn"))) &"|||"& sRIM(Trim(Request("UserAIM"))) &"|||"& sRIM(Trim(Request("UserYahoo"))) &"|||"& sRIM(Trim(Request("UserUC")))
	end if
	StrIM			= Server.HTMLenCode(StrIM)
	SchoolAge		= Trim(request("SchoolAge"))
	UserWorking		= Trim(request("UserWorking"))
	UserHomePhone	= Trim(request("UserHomePhone"))
	UserMobile		= Trim(request("UserMobile"))
	if OldPassword="" then
		Call Cl.OutMsg(0,"请输入用户密码！","javascript:history.go(-1)")
	else
		if Cl.User_Info(6)<>md5(OldPassword,16) then Call Cl.OutMsg(0,"用户密码错误，请重新输入！","javascript:history.go(-1)")
	end if
	if StrSex="" then
		Call Cl.OutMsg(0,"性别不能为空","javascript:history.go(-1)")
	else
		StrSex=Cint(StrSex)
		if StrSex<>0 and StrSex<>1 then
			StrSex=1
		end if
		if UserTableType="Bbsxp" then
			if StrSex=1 then
				StrSex="male"
			else
				StrSex="female"
			end if
		end if
	end if
	if StrEmail="" then
		Call Cl.OutMsg(0,"Email不能为空","javascript:history.go(-1)")
	else
		if Not Cl.ChkEmail(StrEmail) then
			Call Cl.OutMsg(0,"您的Email有错误!","javascript:history.go(-1)")
		end if
	end if
	if Request("UserMsn")<>"" then
		if Not Cl.ChkEmail(Request("UserMsn")) then Call Cl.OutMsg(0,"您的Msn有错误！","javascript:history.go(-1)")
	end if
	if Request("UserQQ")<>"" then
		if Not IsNumeric(Request("UserQQ")) then Call Cl.OutMsg(0,"您的QQ有错误，QQ必需为数字！","javascript:history.go(-1)")
	end if
	if BirthDay<>"" then
		if Not IsDate(BirthDay) then
		Call Cl.OutMsg(0,"<br /><li>出生日期错误！</li>","javascript:history.go(-1)")
		end if
	end if
	if IDCard<>"" then
		if Not Isnumeric(IDCard) or len(Cstr(IDCard))<15 then
			Call Cl.OutMsg(0,"<br /><li>身份证号码错误！</li>","javascript:history.go(-1)")
		end if
	end If
	If FaceWidth>120 Then FaceWidth=120
	If FaceHeight>120 Then FaceHeight=120
	if StrPassword<>"" then
		if StrPassword<>StrPwdConfirm then Call Cl.OutMsg(0,"两次输入的密码不一至，请重新输入！","javascript:history.go(-1)")

		if Cl.strLength(StrPwdConfirm)>12 or Cl.strLength(StrPwdConfirm)<6 then
			Call Cl.OutMsg(0,"密码(不能大于12小于6)，请重新输入！","javascript:history.go(-1)")
		else
			if Instr(StrPwdConfirm,chr(32))>0 or Instr(StrPwdConfirm,",")>0 or Instr(StrPwdConfirm,chr(34))>0 or Instr(StrPwdConfirm,chr(9))>0 or Instr(StrPwdConfirm,"