fixreg.asp

..不怎么明白。不知道这个市什么只想下个服务端

  rs("qq")=0
  rs("msn")=""
  rs("url")=""
  rs("phone")=""
  rs("address")=""
  rs("tim")=joekoe_cms.now_time
  rs("power")=format_power2(ubound(dim_user)+1,1)
  rs("remark")=""
  if int(reg_val)=1 then
    val_var=jk_md5(joekoe_cms.rand_num(10),"long")
    rs("hidden")=false
    rs("tmp")=val_var
  else
    rs("hidden")=true
    rs("tmp")=""
  end if
  rs("bbs_counter")=0
  rs("counter")=0
  rs("integral")=0
  rs("emoney")=0
  rs("login_num")=0
  rs("last_tim")=joekoe_cms.now_time
  rs("popedom")="00000000000000000000000000000000000000000000000000"
  rs("estate")=0
  rs("abate")=false
  rs("otim")=joekoe_cms.time_type(joekoe_cms.now_time,4)
  rs.update
  rs.close
  
  call joekoe_cms.exec("update configs set new_username='"&username&"',num_reg=num_reg+1 where id=1",0)
  application.lock
  application(joekoe_cms.web_cookies&"_configs_new_username")=username
  application(joekoe_cms.web_cookies&"_configs_num_reg")=application(joekoe_cms.web_cookies&"_configs_num_reg")+1
  application.unlock
  
  temp1="恭喜！<font class=blue><b>"&username&"</b></font>，您已成功注册成为本站用户。<br><br>"
  sbody="您于 "&joekoe_cms.time_type("",2)&" 正式注册成为本站用户！" & _
	vbcrlf&"" & _
	vbcrlf&"用户名称："& username & _
	vbcrlf&"登陆密码："& password2 & _
	vbcrlf&"密码钥匙："& passwd
  stit="用户注册成功信息"
  if int(reg_val)=1 then
    stit="用户注册验证信息"
    sbody=sbody&vbcrlf&vbcrlf&"请尽快访问以下地址以验证您的注册信息："& _
	  vbcrlf& _
	  vbcrlf& val_url &"user/user_reg.asp?action=reg_val&val_var="&val_var& _
	  vbcrlf& _
	  vbcrlf&"并请在验证后登陆本站用户中心修改您的相关注册信息！"
    temp1=temp1&"您现在的状态为：<font class=red>未审核</font><br><br>请尽快查收您的邮箱（"&email&"）并进行<a href='"&joekoe_cms.web_dir&"user/user_reg.asp?action=reg_val'>注册验证</a>身份！<br><br>"
  else
    sbody=sbody&vbcrlf&"感谢您的注册，请尽快登陆本站并更新您的个人信息。"
    call cookies_load()
    response.cookies(joekoe_cms.web_cookies)("login_username")=username
    response.cookies(joekoe_cms.web_cookies)("login_password")=jk_encrypt(password)
    temp1=temp1&"请尽快修改您的个人资料，现在进入 <a href='/admin/admin.asp' class=blue>登陆管理</a> 修改资料。<br><br>"
  end if
  sbody=sbody&vbcrlf&vbcrlf&"用户登陆页面：" & _
	vbcrlf& val_url &"/admin/admin.asp"
  sendmail=send_mail(username,email,stit,sbody)
  if sendmail then
    temp1=temp1&"<font class=red>注册邮件已成功发送至邮箱（"&email&"）中！</font>"
  else
    temp1=temp1&"<font class=red2>系统配置不正常，注册邮件没有能正确发送！</font>"
  end if
  response.write temp1
  call val_chk_end("reg")
end sub

sub register_val()
  dim usernames,email,msg_email,reg_true
  reg_true=false
  usernames=trim(request.form("username"))
  email=trim(request.form("email"))
  if symbol_name(usernames)=false or email_ok(email,50)=false then
    response.write joekoe_cms.js_put("alert(""您输入的 用户名称 和 E-mail 为空或不符合相关规则！"");parent.document.reg_frm.val_button.disabled=false;",1)
    exit sub
  end if
  if health_name(usernames)=false then
    response.write joekoe_cms.js_put("alert(""您输入的 用户名称 含有本系统禁用字符！"");parent.document.reg_frm.username.focus();parent.document.reg_frm.val_button.disabled=false;",1)
    exit sub
  end if
  
  sql="select top 1 id from user_data where username='"&usernames&"'"
  set rs=joekoe_cms.exec(sql,1)
  if not rs.eof then
    rs.close
    response.write joekoe_cms.js_put("alert(""对不起！\n\n您输入的用户名称（"&usernames&"）已被注册！\n\n请择其它的用户名称…"");parent.document.reg_frm.username.focus();parent.document.reg_frm.val_button.disabled=false;",1)
    exit sub
  end if
  rs.close
  if int(format_mid_num(5))=1 then
    msg_email="和E-mail（"&email&"）"
    sql="select top 1 id from user_data where email='"&email&"'"
    set rs=joekoe_cms.exec(sql,1)
    if not rs.eof then
      rs.close
      response.write joekoe_cms.js_put("alert(""对不起！\n\n您输入的E-mail（"&email&"）已被使用！\n\n请使用其它E-mail…"");parent.document.reg_frm.email.focus();parent.document.reg_frm.val_button.disabled=false;",1)
      exit sub
    end if
    rs.close
  end if
  response.write joekoe_cms.js_put("alert(""恭喜！\n\n您输入的用户名称（"&usernames&"）"&msg_email&"可以注册！"");",1)
end sub

sub register_main()
%>
<form name=val_name_frm action='?action=val' method=post target=hiddenframe>
<input type=hidden name=username value=''>
<input type=hidden name=email value=''>
</form>
<script language=javascript>
<!--
function val_name()
{
  var username=document.reg_frm.username.value;
  var email=document.reg_frm.email.value;
  if (username=="" || email=="")
  {
    alert("请先填写您要注册的 用户名称 和 E-mail ！");
    if (username=="")
    { document.reg_frm.username.focus(); }
    else
    { document.reg_frm.email.focus(); }
    return false;
  }
  else
  {
    document.reg_frm.val_button.disabled=true;
    document.val_name_frm.username.value=username;
    document.val_name_frm.email.value=email;
    document.val_name_frm.submit();
  }
}

function reg_check()
{
  if (document.reg_frm.username.value=="")
  { alert("请填写您的 用户名称 ！"); document.reg_frm.username.focus(); return false; }
  if (document.reg_frm.password.value=="" || document.reg_frm.password2.value=="")
  { alert("请填写您的 登陆密码 和 确认密码 ！"); document.reg_frm.password.focus(); return false; }
  else
  {
    if (document.reg_frm.password.value != document.reg_frm.password2.value)
    { alert("登陆密码 和 确认密码 必须相同！"); document.reg_frm.password2.focus(); return false; }
  }
  if (document.reg_frm.passwd.value=="")
  { alert("请填写您的 密码钥匙 ！"); document.reg_frm.passwd.focus(); return false; }
  if (document.reg_frm.email.value=="")
  { alert("请填写您的 Email ！"); document.reg_frm.email.focus(); return false; }
  if (document.reg_frm.valcode.value=="")
  { alert("请填写 验 证 码 ！"); document.reg_frm.valcode.focus(); return false; }
}
-->
</script>
<table border=0 width=300 cellspacing=0 cellpadding=2>
<tr><td width='35%' height=10></td><td width='65%'></td></tr>
<form name=reg_frm action='?action=chk' method=post onsubmit="frm_submitonce(this);">
<input type=hidden name=chk value='yes'>
<input type=hidden name=reg value='yes'>
<tr><td>用户名称：</td><td><input type=text name=username size=20 maxlength=20><%response.write redx%><input type=button name=val_button value='验 证' class=bg_2 title='点击验证您填写的用户名是否可以注册' onclick="javascript:val_name();"></td></tr>
<tr><td>登陆密码：</td><td><input type=password name=password size=20 maxlength=20><%response.write redx%></td></tr>
<tr><td>确认密码：</td><td><input type=password name=password2 size=20 maxlength=20><%response.write redx%></td></tr>
<tr><td>密码钥匙：</td><td><input type=text name=passwd size=20 maxlength=20><%response.write redx%></td></tr>
<tr><td>E - mail：</td><td><input type=text name=email size=30 maxlength=50><%response.write redx%></td></tr>
<tr><td>您的性别：</td><td>&nbsp;<input type=radio name=sex value='boy' checked class=bg_td>&nbsp;男孩&nbsp;&nbsp;&nbsp;<input type=radio name=sex value='girl' class=bg_td>&nbsp;女孩&nbsp;<%response.write redx%></td></tr>
<tr><td>验 证 码：</td><td><%response.write val_code("reg")%></td></tr>
<tr><td height=50 colspan=2 align=center><input type=submit value='提 交 注 册' onclick="javascript:return reg_check();">　　<input type=reset value='重新填写'></td></tr>
</form>
</table>
<table border=0 width=300 cellspacing=0 cellpadding=2>
<tr><td><hr size=1 color=#c0c0c0 width='90%'></td></tr>
<tr><td align=center><font class=blue>用户注册注意事项</font></td></tr>
<tr><td>1、用户名称一经注册成功之后将不可以随意更改；</td></tr>
<tr><td>2、用户名称不能含有特殊字符以及不健康字符等；</td></tr>
<tr><td>3、登陆密码由大小写英文字母、阿拉伯数字等组成；</td></tr>
<tr><td>4、用户名和登陆不能相同，其长度均不得超过20位；</td></tr>
<tr><td>5、如出现“<font class=red>验证码错误</font>”的提示，请刷新重新注册；</td></tr>
<tr><td>6、以上要填写的注册信息<font class=red>除密码外</font>均不区分大小写；</td></tr>
<tr><td height=10></td></tr>
</table>
<%
end sub

sub register_read()
%>
<table border=0 width=450 cellspacing=0 cellpadding=0>
<tr><td height=10></td></tr>
<tr><td class=htd>
<!-- #include file="../common/inc/inc_register.inc" -->
</td></tr>
<form name=form_reg action='?' method=get>
<input type=hidden name=action value='main'>
<tr><td height=50 align=center><input type=submit value="我已阅读并同意以上条款">　　　<input type=button value="不同意" onclick="javascript:document.location.href='index.asp';"></td></tr>
</form>
</table>
<%
end sub

'****************************************************
' Web: http://www.aouoo.com , http://www.aouoo.net
' Copyright (C) 2007 Aouoo.com All Rights Reserved.
'****************************************************
%>