user.asp

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。

	sucNote="<li>修改成功!</li>|||<button onclick=""getPage('user/user.asp?action=business','userBusiness');winClose();"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"">返 回</button>"
	anysale.sucWin(sucNote)

end sub

sub contact()
	dim rs,contact,phone,fax
	set rs=conn.execute("select * from as_user where userID="&anysale.userID)
	if not(rs.bof and rs.eof) then
	contact=split(rs("contact"),"|||")
	phone=split(contact(2),"-")
	fax=split(contact(3),"-")
'	contact="您的姓名|性别|电话|传真|QQ|MSN|skype|邮编|街道地址"
'		昵称nickname邮箱email手机mobile所在地区myareaID
%>
<div id="userContact">
<!--userContact-->
<%userNav%>
<div class="detailBig" id="userContactDetail">
 <ul>
  <li class="detailT">
   <h2>修改联系方式</h2>
  </li>
 </ul>
 
 <ul>
  <li>
  <div class="detailBigC" id="userContactContent">
<!---->
<form name="userContactForm" id="userContactForm" method="post">
 <div class="list line30">
  <ul>
   <li class="name txtRig"><span class="red">*</span> 真实姓名：</li>
   <li class="value">
    <input type="text" name="truename" id="userContactTruename" value="<%=contact(0)%>" class="inpWidth" maxlength="20" onblur="check('真实姓名',this.value,'userContactTruenameNote',0,0,2,20)" /> <br />
    <input type="radio" name="sex" value="1" <%if contact(1)=1 then response.write"checked=""checked""" end if%> /> 先生
    <input type="radio" name="sex" value="0" <%if contact(1)=0 then response.write"checked=""checked""" end if%> /> 女士
   </li>
   <li><span class="note" id="userContactTruenameNote">您的真实姓名及性别。</span></li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 昵称：</li>
   <li class="value"><input type="text" name="nickname" id="userContactNickname" value="<%=rs("nickname")%>" class="inpWidth" maxlength="20" onblur="check('昵称',this.value,'userContactNicknameNote',0,0,1,20)" /></li>
   <li><span class="note" id="userContactNicknameNote">昵称是唯一性的。</span></li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 电子邮箱：</li>
   <li class="value"><input type="text" name="email" id="userContactEmail" value="<%=rs("email")%>" class="inpWidth" onblur="check('电子邮箱',this.value,'userContactEmailNote',0,5,5,128)" /></li>
   <li><span class="note" id="userContactEmailNote"></span></li>
  </ul>  
  <ul>
   <li class="name txtRig"><span class="red">*</span> 电话号码：</li>
   <li class="value">
    <input type="text" name="phoneC" id="userContactPhoneC" size="1" value="<%=phone(0)%>" onblur="check('国家区号',this.value,'userContactPhoneCNote',0,1,1,4,1)" maxlength="4" />
    <input type="text" name="phoneA" id="userContactPhoneA" size="1" value="<%=phone(1)%>" onblur="check('地区区号',this.value,'userContactPhoneANote',0,1,2,4,1)" maxlength="4" />
    <input type="text" name="phone" id="userContactPhone" size="39" value="<%=phone(2)%>" onblur="check('电话号码',this.value,'userContactPhoneNote',0,0,5,100)" maxlength="100" />
   </li>
   <li class="note"><span id="userContactPhoneCNote"></span><span id="userContactPhoneANote"></span><span id="userContactPhoneNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig">传真号码：</li>
   <li class="value">
    <input type="text" name="faxC" id="userContactFaxC" size="1" value="<%=fax(0)%>" onblur="check('国家区号',this.value,'userContactFaxCNote',1,1,1,4,1)" maxlength="4" />
    <input type="text" name="faxA" id="userContactFaxA" size="1" value="<%=fax(1)%>" onblur="check('地区区号',this.value,'userContactFaxANote',1,1,2,4,1)" maxlength="4" />
    <input type="text" name="fax" id="userContactFax" size="39" value="<%=fax(2)%>" onblur="check('传真号码',this.value,'userContactFaxNote',1,0,5,50)" maxlength="50" />
   </li>
   <li class="note"><span id="userContactFaxCNote"></span><span id="userContactFaxANote"></span><span id="userContactFaxNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 手机号码：</li>
   <li class="value"><input type="text" name="mobile" id="userContactMobile" value="<%=rs("mobile")%>" class="inpWidth" onblur="check('手机号码',this.value,'userContactMobileNote',0,6,11)" maxlength="11" /></li>
   <li><span class="note" id="userContactMobileNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig">QQ号码：</li>
   <li class="value"><input type="text" name="qq" id="userContactQq" value="<%=contact(4)%>" class="inpWidth" onblur="check('QQ号码',this.value,'userContactQqNote',1,1,5,20)" maxlength="20" /></li>
   <li><span class="note" id="userContactQqNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig">MSN：</li>
   <li class="value"><input type="text" name="msn" id="userContactMsn" value="<%=contact(5)%>" class="inpWidth" onblur="check('MSN',this.value,'userContactMsnNote',1,5,5,128)" maxlength="128" /></li>
   <li><span class="note" id="userContactMsnNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig">Skype：</li>
   <li class="value"><input type="text" name="skype" id="userContactSkype" value="<%=contact(6)%>" class="inpWidth" onblur="check('Skype',this.value,'userContactSkypeNote',1,4,5,20)" maxlength="20" /></li>
   <li><span class="note" id="userContactSkypeNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 邮政编码：</li>
   <li class="value"><input type="text" name="postcode" id="userContactPostcode" value="<%=contact(7)%>" class="inpWidth" onblur="check('邮政编码',this.value,'userContactPostcodeNote',0,1,6,6)" maxlength="6" /></li>
   <li><span class="note" id="userContactPostcodeNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 所在地区：</li>
   <li class="value">
    <select name="myareaID" id="userContactMyareaID">
	<%=anysale.IDSelect("area",0,0,0,rs("myareaID"))%>
	</select>
	&nbsp;&nbsp;<span class="iArr" style="cursor:pointer;" title="点击选择区域" onclick="getPage('windows.asp?action=clickID&amp;upValue=userContactMyarea&amp;table=area&amp;parentID=0&amp;groups=0&amp;isuser=0&amp;isselect=0');">&nbsp;&nbsp;&nbsp;</span>
   </li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 街道地址：</li>
   <li class="value"><input type="text" name="address" id="userContactAddress" value="<%=contact(8)%>" class="inpWidth" onblur="check('街道地址',this.value,'userContactAddressNote',0,0,5,200)" maxlength="200" /></li>
   <li><span class="note" id="userContactAddressNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 验证码：</li>
   <li class="value"><input type="text" name="passcode" id="userContactPasscode" onfocus="setCode('userContactCode','userContactPasscodeNote');" onblur="checkCode('验证码',this.value,'userContactPasscodeNote')" size="8" maxlength="4" /><span id="userContactCode"></span></li>
   <li><span class="note" id="userContactPasscodeNote"><strong>提示</strong>：点击文本框显示验证码</span></li>
  </ul>
  <ul>
   <li class="name">&nbsp;</li>
   <li>
    <input type="button" name="button" value="确 定" 
	onclick="if(
	check('真实姓名',$('userContactTruename').value,'userContactTruenameNote',0,0,2,20) &&
	check('昵称',$('userContactNickname').value,'userContactNicknameNote',0,0,1,20) &&
	check('电子邮箱',$('userContactEmail').value,'userContactEmailNote',0,5,5,128) &&
	check('国家区号',$('userContactPhoneC').value,'userContactPhoneCNote',0,1,1,4,1) &&
	check('地区区号',$('userContactPhoneA').value,'userContactPhoneANote',0,1,2,4,1) &&
	check('电话号码',$('userContactPhone').value,'userContactPhoneNote',0,0,5,100) &&
	check('国家区号',$('userContactFaxC').value,'userContactFaxCNote',1,1,1,4,1) &&
	check('地区区号',$('userContactFaxA').value,'userContactFaxANote',1,1,2,4,1) &&
	check('传真号码',$('userContactFax').value,'userContactFaxNote',1,0,5,50) &&
	check('手机号码',$('userContactMobile').value,'userContactMobileNote',0,6,11) &&
	check('QQ号码',$('userContactQq').value,'userContactQqNote',1,1,5,20) &&
	check('MSN',$('userContactMsn').value,'userContactMsnNote',1,5,5,128) &&
	check('Skype',$('userContactSkype').value,'userContactSkypeNote',1,4,5,20) &&
	check('邮政编码',$('userContactPostcode').value,'userContactPostcodeNote',0,1,6,6) &&
	check('街道地址',$('userContactAddress').value,'userContactAddressNote',0,0,5,200) &&
	checkCode('验证码',$('userContactPasscode').value,'userContactPasscodeNote')
	){getPage('user/user.asp?action=saveContact','userContact',1,'userContactForm');};" 
	class="button" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" />
	<input type="hidden" name="index" value="<%=cint(request("index"))%>" />
   </li>
  </ul>
 </div>
</form>
<!---->
  </div>  
  </li>
 </ul>
 
</div>
<!--userContact.end-->
</div>
<%
	end if
	rs.close
	set rs=nothing
end sub

sub saveContact()
'	contact="您的姓名|性别|电话|传真|QQ|MSN|skype|邮编|街道地址"
'		昵称nickname邮箱email手机mobile所在地区myareaID
	dim contact,rs,sql,i
	if not anysale.checkPost then
		errNote=errNote+"<li>请不要从外部提交。</li>"
		iserr=true
	end if
	if request.form("truename")="" or request.form("sex")="" or request.form("email")="" or request.form("phone")="" or request.form("mobile")="" or request.form("postcode")="" or request.form("address")="" then
		errNote=errNote+"<li>请填好完整的联系信息。</li>"
		iserr=true
	end if
	
	set rs = server.CreateObject ("adodb.recordset")
	sql="select * from as_user where nickname='"&trim(request.form ("nickname"))&"' and userID<>"&anysale.userID
	rs.open sql,conn,1,3
	if not (rs.eof and rs.bof) then
		errNote=errNote+"<li>对不起，您输入的昵称已经有人使用，请重新输入。</li>"
		iserr=true
	end if
	rs.close
	set rs=nothing
	
	if cint(anysale.asReg(1))=1 then	'是否启用注册关键字过滤
		for i = 0 to ubound(anysale.regwords)
			if instr(trim(request.form ("nickname")),anysale.regwords(i))>0 then
				errNote=errNote+"<li>对不起，您输入的昵称中含有系统禁止注册字符。</li>"
				iserr=true
			end if
		next
	end if
	
	if cstr(session("getcode"))<>lcase(cstr(trim(request("passcode")))) then
		errNote=errNote+"<li>您输入的确认码和系统产生的不一致，请重新输入。</li>"
		iserr=true
	end if
	session("getcode")=""
	
	if iserr then
		anysale.errWin(errNote)
		exit sub
	end if
	
	contact=request.form("truename")&"|||"&request.form("sex")&"|||"&request.form("phoneC")&"-"&request.form("phoneA")&"-"&request.form("phone")&"|||"&request.form("faxC")&"-"&request.form("faxA")&"-"&request.form("fax")&"|||"&request.form("qq")&"|||"&request.form("msn")&"|||"&request.form("skype")&"|||"&request.form("postcode")&"|||"&request.form("address")
	
	set rs= server.createobject ("adodb.recordset")
	sql = "select * from as_user where userID="&anysale.userID
	rs.open sql,conn,1,3
	rs("contact")=contact
	rs("nickname")=trim(request.form ("nickname"))
	rs("email")=trim(request.form ("email"))
	rs("mobile")=request.form("mobile")
	rs("myareaID")=request.form("myareaID")
	rs.update
	rs.close
	set rs=nothing
	
	conn.Execute("update as_bbslist set nickname='"&trim(request.form ("nickname"))&"' where userID="&anysale.userID)

	sucNote="<li>修改成功!</li>|||<button onclick=""getPage('user/user.asp?action=contact','userContact');winClose();"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"">返 回</button>"
	anysale.sucWin(sucNote)

end sub

sub about()
	dim rs,about,face
	set rs=conn.execute("select * from as_user where userID="&anysale.userID)
	if not(rs.bof and rs.eof) then
	about=split(rs("about"),"|||")
	face=split(rs("face"),"|||")
'	about="生日|血型|籍贯|工作年限|收入水平|学历|宗教信仰|个人主页|兴趣爱好|自我介绍"
'		头像face个性签名sign
%>
<div id="userAbout">
<!--userAbout-->
<%userNav%>
<div class="detailBig" id="userAboutDetail">
 <ul>
  <li class="detailT">
   <h2>修改个人资料</h2>
  </li>
 </ul>
 
 <ul>
  <li>
  <div class="detailBigC" id="userAboutContent">
<!---->
<form name="userAboutForm" id="userAboutForm" method="post">
 <div class="list line30">
 <%if cint(anysale.asUser(2))=1 and cint(anysale.asGroups(41))=1 then '使用头像设置%>
  <ul style="padding:5px 0;">
   <li class="name txtRig">&nbsp;</li>
   <li class="value txtCen"><img src="<%=face(0)%>" id="userfaceImg" alt="头像" width="<%=face(1)%>" height="<%=face(2)%>" class="border" /></li>
  </ul>