<% ypxxone_id=request("ypxxone_id") ypxxtwo_id=request("ypxxtwo_id") addone_id=request("addone_id") addtwo_id=request("addtwo_id") user=request("user") pass=request("pass") colxr=request("colxr") colxrsex=request("colxrsex") coname=request("coname") coaddress=request("coaddress") cotelq=request("cotelq") cotel=request("cotel") mail=request("mail") vip=request("vip") tyvip=request("tyvip") '---------------------数据判断----------------------------- citypingname=split(citypingname,"|") for i=0 to UBound(citypingname) if instr(user,citypingname(i)) then response.write"" response.end end if next set rs=Server.CreateObject("Adodb.Recordset") rs.Open "Select * from SMT_yp where SMT_user='"&user&"' or SMT_mail='"&mail&"'",conn if not rs.EOF then Response.Write "" Response.End end if if mail="" or len(mail)<8 or instr(mail,"@")=0 or instr(mail,".")=0 then response.write"" response.end end if if vip=1 then if tyvip<>1 then response.write"" response.end end if end if '---------------------取得开通时间----------------------------- if vip=3 then citypkey=citysypkey ktdate=cdate(now()+citysydate) elseif vip=1 then citypkey=cityvipypkey if cityvipp=1 then fy1="vip会员的注册费用为 "&cityvippm&" 元/年,请您务必在 "&cityjysj&" 个工作日内交齐所有费用,以便您的工作能正常开展!" fy2="\n\nvip会员的注册费用为 "&cityvippm&" 元/年\n\n请您务必在 "&cityjysj&" 个工作日内交齐所有费用,以便您的工作能正常开展!" ktdate=cdate(now()+cityjysj) else ktdate=cdate(now()+citysyvipdate+365) end if elseif vip=5 then citypkey=cityypkey if cityuserp=1 then fy1="普通会员的注册费用为 "&cityuserpm&" 元/年,请您务必在 "&cityjysj&" 个工作日内交齐所有费用,以便您的工作能正常开展!" fy2="\n\n普通会员的注册费用为 "&cityuserpm&" 元/年\n\n请您务必在 "&cityjysj&" 个工作日内交齐所有费用,以便您的工作能正常开展!" ktdate=cdate(now()+cityjysj) else ktdate=cdate(now()+365) end if end if if citypkey=1 then citypkey=1 else citypkey=0 '-----------------------发邮件--------------------------- if citymailkey0=1 then mailto="\n\n系统已经自动发送一封邮件到您的邮箱,请立即查看!" sh1="你现在就可以登录下面地址完善您的企业资料了:"&cityurl&"user_login.asp" sh2="您等待管理员的开通!用户登录地址:"&cityurl&"user_login.asp" if vip=3 then userlx="试用会员(试用期为"&citysydate&"天)" if citysypkey=1 then sh=sh1 else sh=sh2 elseif vip=1 then userlx="VIP会员(VIP审核中,赠送使用"&citysyvipdate&"天)" if cityvipypkey=1 then sh=sh1 else sh=sh2 else userlx="普通会员" if cityypkey=1 then sh=sh1 else sh=sh2 end if toname=user tomail=mail mailtitle="恭喜您!"&user&" 您的"&cityname&"会员注册成功了" mailbody=user&":"&vbcrlf&vbcrlf&"  欢迎注册"&cityname&"会员 "&vbcrlf&vbcrlf&"  您的注册信息如下:"&vbcrlf&"  登录用户名:"&user&vbcrlf&"  登录密码:"&pass&"(请经常修改您的密码)"&vbcrlf&"  注册类型:"&userlx mailbody=mailbody&vbcrlf&"  发信时间:"&now()&vbcrlf&vbcrlf&"  请妥善保管好您的用户信息。" mailbody=mailbody&vbcrlf&vbcrlf&fy1 mailbody=mailbody&vbcrlf&vbcrlf&sh mailbody=mailbody&vbcrlf&vbcrlf&"网站登录请点击:"&cityurl sendmail if send_mail="err" then response.write"" response.end end if end if '-----------------------保存数据--------------------------- set rs=Server.CreateObject("Adodb.Recordset") sql="select * from SMT_yp" rs.open sql,conn,1,3 rs.addnew rs("SMT_user")=user rs("SMT_pass")=md5(pass) rs("SMT_colxr")=colxr rs("SMT_colxrsex")=colxrsex rs("SMT_coname")=coname rs("SMT_coaddress")=coaddress rs("SMT_cotelq")=cotelq rs("SMT_cotel")=cotel rs("SMT_ypxxone_id")=ypxxone_id rs("SMT_ypxxtwo_id")=ypxxtwo_id rs("SMT_addone_id")=addone_id rs("SMT_addtwo_id")=addtwo_id rs("SMT_mail")=mail rs("SMT_vip")=vip rs("SMT_ktdate")=ktdate rs("SMT_co")="co1" rs("SMT_key")=citypkey rs("SMT_enrol")=0 rs.update rs.close set rs=nothing sub regok response.write"" response.end end sub sub regsh response.write"" response.end end sub if vip=3 then if citysypkey=1 then regok else regsh end if elseif vip=1 then if cityvipypkey=1 then regok else regsh end if elseif vip=5 then if cityypkey=1 then regok else regsh end if end if %>