reg.asp

功 能： 1.系统分别为每个网站注册会员分配了一个推广链接

<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 使用帮助：http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:	
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器Access版、MsSql版、Php版、.Net版，乘风电影程序、
'　　　　　　　 乘风网站推广系统Mssql版、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'                       2006年9月14日									
'===================================
%>
<!--#Include File="QQCF_Conn.asp"-->
<!--#Include File="QQCF_ChkStr.asp"-->
<!--#Include File="QQCF_MyFunCtion.asp"-->
<!--#Include File="QQCF_Md5.asp"-->
<!--#Include File="QQCF_GetCookie.asp"-->


<script>
function checkssn(gotoURL)
{
 var a;
 var b=form2.user_name.value.toLowerCase();
 
if ((document.form2.usertype(0).checked)){
 a=1
 }
 
if ((document.form2.usertype(1).checked)){
 a=2
 }

 var open_url = gotoURL + "?action=checkuser&usertype=" + a + "&user_name=" + b;
 window.open(open_url,'','status=0,directories=0,resizable=0,toolbar=0,location=0,scrollbars=0,width=1,height=1');
}
</script>
<%
If request("action")="checkuser" Then
 usertype=Int(Request("usertype"))
 User_Name=Request("User_Name")

 If usertype=0 Then
  Response.Write "<script language='javascript'>" & VbCRlf
  Response.Write "alert('请选择要检测的用户名类型');" & VbCrlf
  Response.Write "window.close();" & vbCrlf
  Response.Write "</script>" & VbCRLF
  Response.End
 End if
 
 If User_Name="" Then
  Response.Write "<script language='javascript'>" & VbCRlf
  Response.Write "alert('请输入要检测的用户名');" & VbCrlf
  Response.Write "window.close();" & vbCrlf
  Response.Write "</script>" & VbCRLF
  Response.End
 End if

If usertype=1 Then
 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="Select Count(*) From WWW_QQCF_COM_CfWztg_Reguser Where User_Name='"&User_Name&"'"
 Rs.Open Sql,Conn,1,1
 If Rs(0)=0 Then
  ShowText="恭喜，此用户还没有被注册!"
 Else
  ShowText="对不起，此用户名已经被别人注册了!"
 End if
End If

If usertype=2 Then
 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="Select Count(*) From WWW_QQCF_COM_CfWztg_Aduser Where AdUser_Name='"&User_Name&"'"
 Rs.Open Sql,Conn,1,1
 If Rs(0)=0 Then
  ShowText="恭喜，此用户还没有被注册!"
 Else
  ShowText="对不起，此用户名已经被别人注册了!"
 End if
End If

 Response.Write "<script language='javascript'>" & VbCRlf
 Response.Write "alert('"&ShowText&"');" & VbCrlf
 'Response.Write "window.close();" & vbCrlf
 Response.Write "</script>" & VbCRLF
 Response.End
End if%>

<%

If Request("Action")="regsave" Then
 UserType=Goback(Trim(Request("UserType")),"请选择用户注册类别!")
 User_Name=Goback(Trim(Server.HtmlEncode(Request("User_Name"))),"请输入注册用户名")
 Call checkinput_letter(User_Name)
 Password=Goback(Trim(Request("Password")),"请输入密码!")
 Password2=Goback(Trim(Request("Password2")),"请输入重复密码!")
 PasswordAsk=Trim(Request("PasswordAsk"))
 PasswordAnswer=Trim(Request("PasswordAnswer"))
 Email=Goback(Trim(Request("Email")),"请输入E-mail!")
 QQ=Trim(Request("QQ"))
 Phone=Trim(Request("Phone"))
 Mobile=Trim(Request("Mobile"))
 WebSite=Trim(Request("WebSite"))
 
 PayType=Int(Request("PayType"))
 Bank_Address=Trim(Request("Bank_Address"))
 Bank_UserName=Trim(Request("Bank_UserName"))
 Bank_UserCode=Trim(Request("Bank_UserCode"))
 Pay_B=Trim(Request("Pay_B"))
 Pay_C=Trim(Request("Pay_C"))

 If Password<>Password2 Then Call AlertBack("填入的密码不一致，请重新输入一遍!",1)

 If PasswordAsk="" Then PasswordAsk="-"
 If PasswordAnswer="" Then PasswordAnswer="-"
 If QQ="" Then QQ="-"
 If Phone="" Then Phone="-"
 If Mobile="" Then Mobile="-"
 If WebSite="" Then WebSite="-"
 
 If Bank_Address="" Then  Bank_Address="-"
 If Bank_UserName="" Then  Bank_UserName="-"
 If Bank_UserCode="" Then  Bank_UserCode="-"
 If Pay_B="" Then  Pay_B="-"
 If Pay_C="" Then  Pay_C="-"

 If UserType=1 Then
  Set Rs= Server.CreateObject("ADODB.Recordset")
  Sql="Select Count(*) From WWW_QQCF_COM_CfWztg_Reguser Where User_Name='"&User_Name&"'"
  Rs.Open Sql,Conn,1,1
  If Rs(0)>0 Then Call AlertBack("这个用户名已经注册过,请换名",1)

  Set Rs= Server.CreateObject("ADODB.Recordset")
  Sql="Select Top 1 * From WWW_QQCF_COM_CfWztg_RegUser"
  Rs.open Sql,Conn,3,2
  Rs.AddNew
  Rs("User_Name")=User_Name
  Rs("Password")=Md5(Password,1)
  Rs("PasswordAsk")=PasswordAsk
  Rs("PasswordAnswer")=Md5(PasswordAnswer,1)
  Rs("Email")=Email
  Rs("QQ")=QQ
  Rs("Phone")=Phone
  Rs("Mobile")=Mobile
  Rs("WebSite")=WebSite
  Rs("PayType")=PayType
  Rs("Bank_Address")=Bank_Address
  Rs("Bank_UserName")=Bank_UserName
  Rs("Bank_UserCode")=Bank_UserCode
  Rs("Pay_B")=Pay_B
  Rs("Pay_C")=Pay_C
  If RsSet("UserValid")=-1 Then Rs("State")=0'需要验证时
  Rs.Update
 
  Session("CfWztgUser")=User_Name
 %>
<!--注册成功后为推荐他来注册的用户的人加点数开始--> 
  <script>document.write ('<iframe src=<%=HttpPath(2)%>qqcf_rec.asp?action=lowreg&lowuser_name=<%=user_name%> frameBorder=0 width=0 height=0 marginheight=0 marginwidth=0 scrolling=no></iframe>');</script>
<!--注册成功后为推荐他来注册的用户的人加点数结束--> 
<%
  If RsSet("UserValid")=-1 Then
   Call AlertUrl("注册成功，但用户名需要验证后开通，请等待管理员开通，想快点开通可以联系管理员!","Index.asp")
  Else
   Call AlertUrl("注册成功，转入管理页面!","Manage.asp")
  End if
 End If
 
 If UserType=2 Then
  Set Rs= Server.CreateObject("ADODB.Recordset")
  Sql="Select Count(*) From WWW_QQCF_COM_CfWztg_AdUser Where AdUser_Name='"&User_Name&"'"
  Rs.Open Sql,Conn,1,1
  If Rs(0)>0 Then Call AlertBack("这个用户名已经注册过,请换名",1)

  Set Rs= Server.CreateObject("ADODB.Recordset")
  Sql="Select Top 1 * From WWW_QQCF_COM_CfWztg_AdUser"
  Rs.open Sql,Conn,3,2
  Rs.AddNew
  Rs("AdUser_Name")=User_Name
  Rs("Password")=Md5(Password,1)
  Rs("Email")=Email
  Rs("QQ")=QQ
  Rs("Phone")=Phone
  Rs("Mobile")=Mobile
  Rs("WebSite")=WebSite
  If RsSet("AdUserValid")=-1 Then Rs("State")=0'需要验证时


  Rs.Update
 
  Session("CfWztgAdUser")=User_Name
  
  If RsSet("AdUserValid")=-1 Then
   Call AlertUrl("注册成功，但用户名需要验证后开通，请等待管理员开通，想快点开通可以联系管理员!","AdUser_Manage.asp")
  Else
   Call AlertUrl("注册成功，转入管理页面!","AdUser_Manage.asp")
  End If
 
 End If

End If
%>

<HTML><HEAD><TITLE><%=RsSet("Title")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="QQCF_Pic/ok3.css" type=text/css rel=stylesheet>
<script language="JavaScript">
function chkname(String)
{ 
var Letters = "abcdefghijklmnopqrstuvwxyz1234567890_"; //可以自己增加可输入值
var i;
var c;
if(String.charAt( 0 )=='-')
return false;
if( String.charAt( String.length - 1 ) == '-' )
return false;
for( i = 0; i < String.length; i ++ )
{
c = String.charAt( i );
if (Letters.indexOf( c ) < 0)
return false;
}
return true;
}

function regcheck()
{
var emailReg = /^[_a-z0-9]+@([_a-z0-9]+\.)+[a-z0-9]{2,3}$/;
var pwdReg = /[a-z0-9]$/;

<%If RsSet("RegType")=1 Then%>
var check_length = document.form2.usertype.length;
var i_count=0
for(var i=0;i<check_length;i++)
{
 if (document.form2.usertype(i).checked)
 {
   i_count=i_count+1;
  }
}
	  
if(i_count==0)
{
 window.alert("注册用户类型必须选择");
 return false;
}
<%End If%>

if ((document.form2.user_name.value)=="")
{
window.alert ('用户名必须填写');
document.form2.user_name.focus();
return false;
}
if(!chkname(document.form2.user_name.value)){
 window.alert ('用户名不规则!');
 document.form2.user_name.focus();
 return false;
}
if ((document.form2.password.value)=="")
{
window.alert ('密码必须填写');
document.form2.password.focus();
return false;
}
if ((document.form2.password2.value)=="")
{
window.alert ('重复密码必须填写');
document.form2.password2.focus();
return false;
}
if ((document.form2.password.value)!==(document.form2.password2.value)){
 window.alert ('两次填写的密码不一样，请重写填写!');
 document.form2.password2.focus();
 return false;
}

if ((document.form2.usertype(0).checked)&&(document.form2.passwordask.value)==""){
 window.alert ('密码提示问题必须填写!');
 document.form2.passwordask.focus();
 return false;
}
if ((document.form2.usertype(0).checked)&&(document.form2.passwordanswer.value)==""){
 window.alert ('密码回答答案必须填写!');
 document.form2.passwordanswer.focus();
 return false;
}

if ((document.form2.usertype(0).checked)&&(document.form2.passwordask.value)==(document.form2.passwordanswer.value)){
 window.alert ('密码提示问题和密码回答答案不能相同，请重新设置!');
 document.form2.passwordanswer.focus();
 return false;
}

if ((document.form2.email.value)=="")
{
window.alert ('email必须填写');
document.form2.email.focus();
return false;
}


if ((!emailReg.test(document.form2.email.value))&&(document.form2.email.value!=''))
{
window.alert ('email的格式不正确');
document.form2.email.focus();
return false;
}


if ((document.form2.usertype(0).checked)&&(document.form2.paytype(0).checked==false)&&(document.form2.paytype(1).checked==false)&&(document.form2.paytype(2).checked==false)&&(document.form2.paytype(3).checked==false)){
 window.alert ('请选择汇款方式!');
 return false;
}

if ((document.form2.paytype(1).checked)&&(document.form2.bank_address.value)==""){
 window.alert ('开户银行必须选择!');
 document.form2.bank_address.focus();
 return false;
}
if ((document.form2.paytype(1).checked)&&(document.form2.bank_username.value)==""){
 window.alert ('开户人必须填写!');
 document.form2.bank_username.focus();
 return false;
}
if ((document.form2.paytype(1).checked)&&(document.form2.bank_usercode.value)==""){
 window.alert ('银行卡号或账号必须填写!');
 document.form2.bank_usercode.focus();
 return false;
}

if ((document.form2.paytype(2).checked)&&(document.form2.pay_b.value)==""){
 window.alert ('支付宝账号必须填写!');
 document.form2.pay_b.focus();
 return false;
}
if ((document.form2.paytype(3).checked)&&(document.form2.pay_c.value)==""){
 window.alert ('快钱账号必须填写!');
 document.form2.pay_c.focus();
 return false;
}

return true;
}
</script>

<SCRIPT>
function ashow_0(){
 t_1.style.display = "none";
 t_2.style.display = "none";
 t_3.style.display = "none";
 t_4.style.display = "none";
 t_5.style.display = "none";
 t_6.style.display = "none";
 t_7.style.display = "none";