user.asp

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

   <li>
    <input type="button" name="button" value="确 定" 
	onclick="if(
	check('工作经历',$('userExperienceJob').value,'userExperienceJobNote',1,0,1) &&
	check('教育经历',$('userExperienceEducation').value,'userExperienceEducationNote',1,0,1) &&
	check('所获荣誉',$('userExperienceHonor').value,'userExperienceHonorNote',1,0,1) &&
	check('技能专长',$('userExperienceSkill').value,'userExperienceSkillNote',1,0,1) &&
	checkCode('验证码',$('userExperiencePasscode').value,'userExperiencePasscodeNote')
	){getPage('user/user.asp?action=saveExperience','userExperience',1,'userExperienceForm');};" 
	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>
<!--userExperience.end-->
</div>
<%
	end if
	rs.close
	set rs=nothing
end sub

sub saveExperience()
'	experience="工作|教育|荣誉|专长"

	dim experience
	if not anysale.checkPost then
		errNote=errNote+"<li>请不要从外部提交。</li>"
		iserr=true
	end if
	if request.form("job")="" or request.form("education")="" or request.form("honor")="" or request.form("skill")="" then
		errNote=errNote+"<li>请填好完整的个人经历信息。</li>"
		iserr=true
	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
	
	experience=request.form("job")&"|||"&request.form("education")&"|||"&request.form("honor")&"|||"&request.form("skill")
	
	dim rs,sql
	set rs= server.createobject ("adodb.recordset")
	sql = "select * from as_user where userID="&anysale.userID
	rs.open sql,conn,1,3
	rs("experience")=experience
	rs.update
	rs.close
	set rs=nothing

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

end sub

sub password()
	dim rs
	set rs=conn.execute("select * from as_user where userID="&anysale.userID)
	if not(rs.bof and rs.eof) then
%>
<div id="userPassword">
<!--userPassword-->
<%userNav%>
<div class="detailBig" id="userPasswordDetail">
 <ul>
  <li class="detailT">
   <h2>修改登录密码</h2>
  </li>
 </ul>
 
 <ul>
  <li>
  <div class="detailBigC" id="userPasswordContent">
<!---->
<form name="userPasswordForm" id="userPasswordForm" method="post">
 <div class="list line30">
  <ul><li>&nbsp;</li></ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 旧密码确认：</li>
   <li class="value"><input type="password" name="oldpassword" id="userPasswordOldpassword" class="inpWidth" onblur="check('旧密码',this.value,'userPasswordOldpasswordNote',0,3,6,20)" maxlength="20" /></li>
   <li><span class="note" id="userPasswordOldpasswordNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 输入新密码：</li>
   <li class="value"><input type="password" name="newpassword" id="userPasswordNewpassword" class="inpWidth" onblur="check('新密码',this.value,'userPasswordNewpasswordNote',0,3,6,20)" maxlength="20" /></li>
   <li><span class="note" id="userPasswordNewpasswordNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 确认新密码：</li>
   <li class="value"><input type="password" name="password" id="userPasswordPassword" class="inpWidth" onblur="check('确认新密码',this.value,'userPasswordPasswordNote',0,3,6,20)" maxlength="20" /></li>
   <li><span class="note" id="userPasswordPasswordNote"></span></li>
  </ul>
  <ul><li>&nbsp;</li></ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 密码问题：</li>
   <li class="value"><input type="text" name="question" id="userPasswordQuestion" value="<%=rs("question")%>" class="inpWidth" onblur="check('密码问题',this.value,'userPasswordQuestionNote',0,0,5,100)" maxlength="100" /></li>
   <li><span class="note" id="userPasswordQuestionNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig">问题答案：</li>
   <li class="value"><input type="password" name="answer" id="userPasswordAnswer" class="inpWidth" onblur="check('问题答案',this.value,'userPasswordAnswerNote',1,0,5,100)" maxlength="100" /></li>
   <li><span class="note" id="userPasswordAnswerNote">取回密码用的答案,不改请勿动!</span></li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 验证码：</li>
   <li class="value"><input type="text" name="passcode" id="userPasswordPasscode" onfocus="setCode('userPasswordCode','userPasswordPasscodeNote');" onblur="checkCode('验证码',this.value,'userPasswordPasscodeNote')" size="8" maxlength="4" /><span id="userPasswordCode"></span></li>
   <li><span class="note" id="userPasswordPasscodeNote"><strong>提示</strong>：点击文本框显示验证码</span></li>
  </ul>
  <ul>
   <li class="name">&nbsp;</li>
   <li>
	<input type="button" name="button" value="确 定" 
	onclick="if(
	check('旧密码',$('userPasswordOldpassword').value,'userPasswordOldpasswordNote',0,3,6,20) &&
	check('新密码',$('userPasswordNewpassword').value,'userPasswordNewpasswordNote',0,3,6,20) &&
	check('确认新密码',$('userPasswordPassword').value,'userPasswordPasswordNote',0,3,6,20) &&
	check('密码问题',$('userPasswordQuestion').value,'userPasswordQuestionNote',0,0,5,100) &&
	check('问题答案',$('userPasswordAnswer').value,'userPasswordAnswerNote',1,0,5,100) &&
	checkCode('验证码',$('userPasswordPasscode').value,'userPasswordPasscodeNote')
	){getPage('user/user.asp?action=savePassword','userPassword',1,'userPasswordForm');};" 
	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>
<!--userPassword.end-->
</div>
<%
	end if
	rs.close
	set rs=nothing
end sub

sub savePassword()
'	旧密码 新密码 密码问题,密码答案

	if not anysale.checkPost then
		errNote=errNote+"<li>请不要从外部提交。</li>"
		iserr=true
	end if
	if request.form("oldpassword")="" or request.form("newpassword")="" or request.form("password")="" or request.form("question")="" then
		errNote=errNote+"<li>请填好完整的修改密码信息。</li>"
		iserr=true
	end if
	if cstr(request.form("newpassword"))<>lcase(cstr(trim(request("password")))) then
		errNote=errNote+"<li>您输入的密码和确认密码不一致，请重新输入。</li>"
		iserr=true
	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
		
	dim rs,sql
	set rs= server.createobject ("adodb.recordset")
	sql = "select * from as_user where userID="&anysale.userID&" and password='"&md5(replace(request.form("oldpassword"),"'",""),32)&"'"
	rs.open sql,conn,1,3
	if not(rs.bof and rs.eof) then
		rs("password")=md5(replace(request.form("password"),"'",""),32)
		rs("question")=request.form("question")
		if request.form("answer")<>"" then
			rs("answer")=md5(replace(request.form("answer"),"'",""),32)
		end if
		rs.update
	else
		anysale.errWin("您的旧密码不正确,请重新输入!")
		exit sub
	end if
	rs.close
	set rs=nothing

	sucNote="<li>修改成功，请记住修改后的密码及问题答案!</li>|||<button onclick=""getPage('user/user.asp?action=password','userPassword');winClose();"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"">返 回</button>"
	anysale.sucWin(sucNote)
end sub

sub username()

	dim rs,sql,i,uname
	if not anysale.checkPost then
		errNote=errNote+"<li>请不要从外部提交。</li>"
		iserr=true
	end if
	uname=trim(replace(request.form("username"),"'",""))
	if request.form("username")="" then
		errNote=errNote+"<li>请填写要修改的用户名。</li>"
		iserr=true
	end if
	
	set rs = server.CreateObject ("adodb.recordset")
	sql="select * from as_user where username='"&uname&"' 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(uname,anysale.regwords(i))>0 then
				errNote=errNote+"<li>对不起，您输入的用户名中含有系统禁止注册字符。</li>"
				iserr=true
			end if
		next
	end if
	conn.Execute("update as_user set username='"&uname&"',trust=0 where userID="&anysale.userID)
	conn.Execute("update as_admin set username='"&uname&"' where username='"&anysale.username&"'")
	conn.Execute("update as_ann set username='"&uname&"' where username='"&anysale.username&"'")
	conn.Execute("update as_article set username='"&uname&"' where username='"&anysale.username&"'")
	conn.Execute("update as_bbs set username='"&uname&"' where username='"&anysale.username&"'")
	conn.Execute("update as_bbslist set username='"&uname&"' where username='"&anysale.username&"'")
	conn.Execute("update as_business set username='"&uname&"' where username='"&anysale.username&"'")
	conn.Execute("update as_comment set username='"&uname&"' where isuser=1 and username='"&anysale.username&"'")
	conn.Execute("update as_exhibit set username='"&uname&"' where username='"&anysale.username&"'")
	conn.Execute("update as_friend set friend='"&uname&"' where friend='"&anysale.username&"'")
	conn.Execute("update as_job set username='"&uname&"' where username='"&anysale.username&"'")
	conn.Execute("update as_log set username='"&uname&"' where username='"&anysale.username&"'")
	conn.Execute("update as_message set sen