register.asp

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

     <li class="value"><input type="text" name="buy" id="buy" class="inpWidth" onblur="check('求购的商品',this.value,'buyNote',1,0,1,200)" maxlength="200" /></li>
     <li><span class="note" id="buyNote">需要的服务，如有多个请用英文的逗号","分开。</span></li>
    </ul>
   </div>
  
  </div>
 
  <div id="forhidden">
   <ul class="borderB"><li class="color f14 txtRig"><strong>姓名及联系方式</strong></li></ul>
   <ul><li>&nbsp;</li></ul>
   <ul>
    <li class="left name txtRig f14"><span class="red">*</span> 真实姓名：</li>
    <li class="value">
     <input type="text" name="truename" id="truename" class="inpWidth" onblur="check('真实姓名',this.value,'truenameNote',0,0,2,20)" maxlength="20" /><br />
     <input type="radio" name="sex" value="1" checked="checked" /> 先生
     <input type="radio" name="sex" value="0" /> 女士
    </li>
    <li><span class="note" id="truenameNote">您的真实姓名及性别。</span></li>
   </ul>
   <ul>
    <li class="left name txtRig f14"><span class="red">*</span> 您的职位：</li>
    <li class="value"><input type="text" name="position" id="position" class="inpWidth" onblur="check('职位',this.value,'positionNote',0,0,2,20)" maxlength="20" /></li>
    <li><span class="note" id="positionNote">您所在的工作职位。</span></li>
   </ul>
   <ul>
    <li class="left name txtRig f14"><span class="red">*</span> 电子邮箱：</li>
    <li class="value"><input type="text" name="email" id="email" class="inpWidth" onblur="check('电子邮箱',this.value,'emailNote',0,5,5,128)" /></li>
    <li><span class="note" id="emailNote"><strong>重要！</strong>我们需要您通过邮箱完成注册，请填写常用的电子邮箱，这也是客户联系您的首选方式！</span></li>
   </ul>
   <ul>
    <li class="left name txtRig f14"><span class="red">*</span> 固定电话：</li>
    <li class="value">
     <input type="text" name="phoneC" id="phoneC" size="1" value="86" onblur="check('国家区号',this.value,'phoneNote',0,1,1,4,1)" maxlength="4" />
     <input type="text" name="phoneA" id="phoneA" size="1" onblur="check('地区区号',this.value,'phoneNote',0,1,2,4,1)" maxlength="4" />
     <input type="text" name="phone" id="phone" size="39" onblur="check('电话号码',this.value,'phoneNote',0,0,5,100)" maxlength="100" />
    </li>
    <li><span class="note" id="phoneNote">如果要输入多个固定电话号码，请使用"/"分隔；<br />分机号码用"-"分隔，格式如：0755-81905010-888</span></li>
   </ul>
   <ul>
    <li class="left name txtRig f14">传真：</li>
    <li class="value">
     <input type="text" name="faxC" id="faxC" size="1" value="86" onblur="check('国家区号',this.value,'faxNote',1,1,1,4,1)" maxlength="4" />
     <input type="text" name="faxA" id="faxA" size="1" onblur="check('地区区号',this.value,'faxNote',1,1,2,4,1)" maxlength="4" />
     <input type="text" name="fax" id="fax" size="39" onblur="check('传真号码',this.value,'faxNote',1,0,5,50)" maxlength="50" />
    </li>
    <li><span class="note" id="faxNote"></span></li>
   </ul>
   <ul>
    <li class="left name txtRig f14"><span class="red">*</span> 手机：</li>
    <li class="value"><input type="text" name="mobile" id="mobile" class="inpWidth" onblur="check('手机号码',this.value,'mobileNote',0,6,11,11)" maxlength="11" /></li>
    <li><span class="note" id="mobileNote">方便客户及时与您取得联系。网站不绑定任何收费服务。</span></li>
   </ul>
 
   <ul class="borderB"><li class="color f14 txtRig"><strong>注册确认</strong></li></ul>
   <ul><li>&nbsp;</li></ul>
   <ul>
    <li class="left name txtRig f14"><span class="red">*</span> 验 证 码：</li>
    <li class="value">
     <input type="text" name="passcode" id="passcode" onfocus="setCode('code','passcodeNote');" onblur="checkCode('验证码',this.value,'passcodeNote')" size="8" maxlength="4" />
	 <span id="code"></span>
    </li>
    <li><span class="note" id="passcodeNote"><strong>提示</strong>：点击文本框显示验证码</span></li>
   </ul> 
   <ul>
    <li class="left name txtRig">&nbsp;</li>
    <li class="value"><input name="agreement" id="agreement" type="checkbox" value="1" checked="checked" onclick="checkConfirm(this.checked);" /> 我已阅读并接受 [&nbsp;<a class="links" href="javascript:anysale();" onclick="winNew('会员注册协议',$('regAgreement').innerHTML,0,600,300);">会员服务协议</a>&nbsp;]</li>
    <li class="note"></li>
   </ul>
   <ul><li>&nbsp;</li></ul>
   <ul><li class="txtCen"><input type="button" id="btSubmit" name="button" value="同意协议，注册" onclick="if(fCheck()){getPage('register.asp?action=register','register',0,'registerForm');winNew('提交注册','<div class=anysaleLoad><ul class=winNote><li class=iLoad>&nbsp;</li><li class=left><ul><li class=f14>正在提交注册资料，请稍后...</li></ul></li></ul></div>',0,400,94);};" class="button" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" /></li></ul>
   <ul><li>&nbsp;</li></ul>
  </div>
 </form>
 <!--list.end-->
 </div>
<!--minB.end-->
</div>


<!--agreement-->
<div id="regAgreement" class="hidden">
 <div class="winNote" style="height:245px;padding:10px;">
  <ul><li class="color f14 txtCen" style="width:575px;"><strong>会员注册协议</strong></li></ul>
  <ul class="border f14">
   <li style="width:575px;height:220px;overflow:auto;">
   <%=anysale.htmlencode(anysale.codeReplace(anysale.getValue("as_config","agreement","")))%>
   </li>
  </ul>
 </div>
 <div class="txtCen"><button onclick="winClose();" class="button" onmouseover="this.className='buttonH'" onmouseout="this.className='button'">同 意</button></div>
</div>
<!--agreement.end-->
<%
anysale.minFoot
end sub

sub register()
	if cint(anysale.asReg(0))=0 then exit sub  '如果不允许注册，则退出
	
	dim rs,sql,username,password,splitWords,business,contact,rndNum,num
	if not anysale.checkPost then
		errNote=errNote+"<li>请不要从外部提交。</li>"
		iserr=true
	end if
	if request.form("username")="" or request.form("question")="" or request.form("answer")="" then
		errNote=errNote+"<li>请输入您的会员信息。</li>"
		iserr=true
	end if
	if request.form("groups")=7 and (request.form("title")="" or request("address")="") then
		errNote=errNote+"<li>请输入您的商务信息。</li>"
		iserr=true
	end if
	if request.form("truename")="" or request.form("position")="" or request("email")="" or request.form("phone")="" or request.form("mobile")="" 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 instr(request("username"),"=")>0 or instr(request("username"),"%")>0 or instr(request("username"),chr(32))>0 or instr(request("username"),"?")>0 or instr(request("username"),"&")>0 or instr(request("username"),";")>0 or instr(request("username"),",")>0 or instr(request("username"),"'")>0 or instr(request("username"),",")>0 or instr(request("username"),chr(34))>0 or instr(request("username"),chr(9))>0 or instr(request("username"),"")>0 or instr(request("username"),"$")>0 then
		errNote=errNote+"<li>用户名中含有非法字符。</li>"
		iserr=true
	else
		username=trim(request("username"))
	end if

	if cint(anysale.asReg(1))=1 then	'是否启用注册关键字过滤
		for i = 0 to ubound(anysale.regwords)
			if instr(username,anysale.regwords(i))>0 then
				errNote=errNote+"<li>您输入的用户名包含系统禁止注册字符。</li>"
				iserr=true
				exit for
			end if
		next
	end if
	
	if cint(anysale.asReg(2))=0 or cint(anysale.asMail(0))=0 then	'邮箱发送密码时的随机密码
		password=md5(replace(request.form("password2"),"'",""),32)
	else
		randomize
		do while len(rndNum)<8
			num=cstr(chr((57-48)*rnd+48))
			rndNum=rndNum&num
		loop
		password=md5(rndNum,32)
	end if

	if iserr then
		anysale.errWin(errNote)
		exit sub
	end if

'	business="公司类型|职位|经营模式|法人代表|经营地址|邮编|销售的产品+求购的商品|公司网站"
'		标志logo公司名称title注册资本capital注册时间regdate所在区域areaID主营行业classID公司简介detail
'	contact="您的姓名|性别|电话|传真|QQ|MSN|skype|邮编|街道地址"
'		昵称nickname邮箱email手机mobile所在区域myareaID
	if request.form("groups")=7 then
		business=request.form("kind")&"|||"&request.form("position")&"|||经营模式|||法人代表|||"&request.form("address")&"|||000000|||"&request.form("sell")&";"&request.form("buy")&"|||http://"
	else
		business="未经工商注册，个人|||请填写职位|||经营模式|||法人代表|||请填写地址|||000000|||主营产品或服务|||http://"
	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")&"|||QQ|||MSN|||skype|||邮编|||街道地址"
	
	set rs = server.CreateObject ("adodb.recordset")
	sql="select * from as_user where username='"&username&"'"
	rs.open sql,conn,1,3
	if not (rs.eof and rs.bof) then
		anysale.errWin("<li>您输入的用户名已经被注册。</li>")
		exit sub
	else
		rs.addnew
		rs("groups")=request.form("groups")
		rs("username")=username
		rs("nickname")=username
		rs("password")=password
		rs("question")=request.form("question")
		rs("answer")=md5(request.form("answer"),32)
		if request.form("groups")=7 then
			rs("title")=request.form("title")
			rs("classID")=request.form("classID")
			rs("areaID")=request.form("areaID")
		else
			rs("title")=request.form("truename")
			rs("classID")=1
			rs("areaID")=1
		end if
		rs("email")=request.form("email")
		rs("mobile")=request.form("mobile")
		rs("money")=clng(anysale.asMoney(0))
		rs("nickname")=username
		rs("level")=10
		rs("business")=business
		rs("contact")=contact
		rs("detail")="暂无公司或业务介绍。"
		rs("myareaID")=1
		rs("myStyle")="style/default/style.css|||style/default/style.jpg"
		rs("logo")="images/nologo.gif|||"&cint(anysale.asUser(13))&"|||"&cint(anysale.asUser(14))
		if request.form("sex")=0 then
			rs("face")="images/userface/face2.gif|||"&cint(anysale.asUser(4))&"|||"&cint(anysale.asUser(5))
		else
			rs("face")="images/userface/face1.gif|||"&cint(anysale.asUser(4))&"|||"&cint(anysale.asUser(5))
		end if
		rs("about")="2000-01-01|||保密|||中国|||0|||保密|||保密|||无|||http://|||暂无兴趣爱好|||暂无自我介绍相关信息"
		rs("experience")="暂无工作经历及相关信息|||暂无教育经历及相关信息|||暂无所获荣誉及相关信息|||暂无技能专长及相关信息"
		if cint(anysale.asReg(4))=1 then
			rs("userInfo")="0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||1|||1|||0|||0|||0|||0"
		else
			rs("userInfo")="0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0"
		end if
		rs.update
	end if
	rs.close
	set rs=nothing

	if cint(anysale.asMail(0))>0 and (cint(anysale.asReg(3))=1 or cint(anysale.asReg(2))=1) then	'发送注册邮件
		dim asMail,email,topic,mailbody,getPass
		if cint(anysale.asReg(2))=0 then
			getPass=request.form("password2")
		else
			getPass=rndNum
		end if
		
		email=request.form("email")
		topic="您在"&anysale.asInfo(0)&"的注册资料"
		mailbody="<html>"
		mailbody=mailbody & "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />"
		mailbody=mailbody & "<title>"&topic&"</title>"
		mailbody=mailbody & "<body>"
		mailbody=mailbody & "<table border='0' width='95%' align=center><tbody><tr>"
		mailbody=mailbody & "<td valign=middle align=top>"
		mailbody=mailbody & username&"，您好：<br /><br />"
		mailbody=mailbody & "欢迎您注册本网站("&anysale.asInfo(1)&")，我们将提供给您最好的商务服务！<br />"
		mailbody=mailbody & "下面是您的注册信息：<br />"
		mailbody=mailbody & "注册名："&username&"<br />"
		mailbody=mailbody & "密  码："&getpass&"<br />"
		mailbody=mailbody & "<br /><br /><a href="""&anysale.asInfo(1)&"login.asp"" target=""_blank"">点击登录</a><br /><br />"
		mailbody=mailbody & "<center><font color=red>再次感谢您注册本系统，让我们一起来建设这个网上家园！</font>"
		mailbody=mailbody & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
		mailbody=mailbody & "</body>"
		mailbody=mailbody & "</html>"
	
		set asMail = new sendMail
		asMail.SendObject = cint(anysale.asMail(0))	'设置选取组件 1=Jmail,2=Cdonts,3=Aspemail
		asMail.ServerLoginName = replace(anysale.asMail(2)," ","")	'您的邮件服务器登录名
		asMail.ServerLoginPass = replace(anysale.asMail(3)," ","")	'登录密码
		asMail.SendSMTP = replace(anysale.asMail(1)," ","")			'SMTP地址
		asMail.SendFromEmail = replace(anysale.asMail(4)," ","")		'发送来源地址
		asMail.SendFromName = replace(anysale.asMail(5)," ","")		'发送人信息
		if asMail.ErrCode = 0 then
			asMail.SendMail replace(email," ",""),topic,mailbody	'执行发送邮件
			if asMail.count>0 then
				infoNote=infoNote+"<li>您的注册信息已经发往您的邮箱，请注意查收。</li>"
			else
				infoNote=infoNote+"<li>由于系统错误，给您发送的注册资料未成功。</li>"
			end if
		else
			infoNote=infoNote+"<li>发送邮件错误!</li>"
		end if
		set asMail = nothing
	end if

	if cint(anysale.asReg(4))=1 then
		dim sender,title,detail
		sender=anysale.asInfo(0)
		title=sender&"欢迎您的到来!"
		detail=anysale.codeReplace(anysale.asReg(5))
		sql="insert into as_message (sender,incept,title,detail,isread) values ('"&sender&"','"&username&"','"&title&"','"&anysale.checkStr(detail)&"',0)"
		conn.execute(sql)
	end if

	set rs=conn.execute("select top 1 userID,username,password,groups from as_user order by userID desc")
		dim cookies_path_s,cookies_path_d,cookies_path,i
		cookies_path_s=split(Request.ServerVariables("PATH_INFO"),"/")
		cookies_path_d=ubound(cookies_path_s)
		cookies_path="/"
		for i=1 to cookies_path_d-1
			if not (cookies_path_s(i)="upfile" or cookies_path_s(i)="admin") then cookies_path=cookies_path&cookies_path_s(i)&"/"
		next
		response.cookies(anysale.cookiesName)("usercookies") = 1
		response.cookies(anysale.cookiesName).path = cookies_path
		response.cookies(anysale.cookiesName)("username") = rs("username")
		response.cookies(anysale.cookiesName)("userID") = rs("userID")
		response.cookies(anysale.cookiesName)("password") = rs("password")
	rs.close
	set rs=nothing
	conn.execute("update as_user set loginTime="&anysaleNow&",loginIP='"&anysale.userTrueIP&"',logins=logins+1,[money]=money+"&clng(anysale.asMoney(1))&" where username='"&username&"'")
	call anysale.setValue("as_config","siteInfo","",4,clng(anysale.siteInfo(4))+1)

	session("regTime")=now()
	
	sucNote="<li>注册成功，"&anysale.asInfo(0)&"欢迎您的到来!</li>"
	sucNote=sucNote+infoNote
	sucNote=sucNote+"|||"
	sucNote=sucNote+"<button onclick=""location.href='index.asp';winClose();"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"">网站首页</button>"
	sucNote=sucNote+"&nbsp;&nbsp;<button onclick=""location.href='user.asp';winClose();"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"">会员中心</button>"
	anysale.sucWin(sucNote)
end sub

call closeConn()
%>