📄 adduser.asp
字号:
<!--#include file="connn.asp"-->
<%
dim sql,sql1,sql2
dim rs,rs1
user=request("user")
temuser=request.Form("temuser")
card=request.Form("card")
set rs=server.createobject("adodb.recordset")
sql="select * from user where username = '"&user&"'"
rs.open sql,conn,3,2
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('没有此上级用户！');"
response.write "history.go(-1);"
response.write "</script>"
response.end
else if rs(18) <> 1 or rs(19)<>1 or rs(20)<>1 or rs(21)<>1 or rs(22)<>1 then
response.write "<script language='javascript'>"
response.write "alert('此上级用户没有完全激活，请不要非法注册！');"
response.write "history.go(-1);"
response.write "</script>"
response.end
else
set rs1=server.createobject("adodb.recordset")
sql1="select * from user where username = '"&temuser&"' or card='"&card&"'"
rs1.open sql1,conn,3,2
if not rs1.eof then
response.write "<script language='javascript'>"
response.write "alert('此用户名或银行卡已有人使用！请更换！');"
response.write "history.go(-1);"
response.write "</script>"
response.end
end if
end if
end if
sql2="insert into user (username,password,name,bank,card,egold,email,nickname,qq,address,postcard,logintime) values('"& temuser &"','"& request("password") &"','"& request("name") &"','"& request("bank") &"','"& card &"','"& request("egold") &"','"& request("email") &"','"& request("nickname") &"','"& request("qq") &"','"& request("address") &"','"& request("postcode") &"',now)"
conn.execute sql2,0
'//////////////////////////
'修改等级为2的下线标识
'//////////////////////////
sql3="insert into down (username,user_xx,down1) values('"&user&"','"&temuser&"','1')"
conn.execute sql3 ,0
set rs4=server.createobject("adodb.recordset")
sql4="select * from down where user_xx = '"&user&"'and down1=1 "
rs4.open sql4,conn,3,2
if rs4.eof and rs4.bof then
user1="#"
else
user1=rs4(1)
end if
'//////////////////////////
'修改等级为3的下线标识
'//////////////////////////
sql5="insert into down (username,user_xx,down2) values('"&user1&"','"&temuser&"','1')"
conn.execute sql5 ,0
set rs6=server.createobject("adodb.recordset")
sql6="select * from down where user_xx = '"&user&"'and down2=1 "
rs6.open sql6,conn,3,2
if rs6.eof and rs6.bof then
user2="#"
else
user2=rs6(1)
end if
'//////////////////////////
'修改等级为4的下线标识
'//////////////////////////
sql7="insert into down (username,user_xx,down3) values('"&user2&"','"&temuser&"','1')"
conn.execute sql7 ,0
set rs8=server.createobject("adodb.recordset")
sql8="select * from down where user_xx = '"&user&"'and down3=1 "
rs8.open sql8,conn,3,2
if rs8.eof and rs8.bof then
user3="#"
else
user3=rs8(1)
end if
'//////////////////////////
'修改等级为5的下线标识
'//////////////////////////
sql9="insert into down (username,user_xx,down4) values('"&user2&"','"&temuser&"','1')"
conn.execute sql9 ,0
set rs10=server.createobject("adodb.recordset")
sql10="select * from down where user_xx = '"&user&"'and down4=1 "
rs10.open sql10,conn,3,2
if rs10.eof and rs10.bof then
user4="#"
else
user4=rs10(1)
end if
sql11="insert into down (username,user_xx,down5) values('"&user3&"','"&temuser&"','1')"
conn.execute sql11 ,0
%>
<html>
<head>
<title><%=homename%></title>
<script> window.open('tzh.asp','new','height=365,width=475,menubar=no,scrollbars=no,resizable=no,location=no,status=no'); </script>
<link rel="stylesheet" type="text/css" href="css.css">
<meta name="description" content="秘密产品→会员代理→介绍会员佣金→产品提成→赚钱">
<style>
<!--
TD {
FONT-SIZE: 9pt; COLOR: #000000
}
.font {
font-family: "宋体";
font-size: 12px;
color: #0066FF;
text-decoration: none;
}
.border2 {
border-bottom-width: 1px;
border-bottom-style: solid;
border-bottom-color: #669966;
}
-->
</style>
</head>
<body background="images/bg.gif" leftmargin="0" topmargin="0">
<!--#include file="top.asp"-->
<div align="center">
<center>
<table cellspacing=0 cellpadding=0 width="755" border=1 height="526" bordercolor="#FFCCCC">
<tbody>
<tr>
<td valign=top width="719" height=430>
<table cellspacing=1 cellpadding=0 width=556
border=0 height="441">
<tbody>
<tr>
<td width="787" height="25" align="center" class="font">
<strong><font color="#000000"><%=temuser%>的临时商务主页请记住您的站点地址:<b><font color="#ff6600">[
<script language="JavaScript">
if ((navigator.appName == "Microsoft Internet Explorer") && (parseInt(navigator.appVersion) >= 4)) {
var url="http://13828.net/?csid=test2";
var title="金融商务信息网络";
document.write('<A HREF="javascript:window.ext');
document.write('ernal.AddFavorite(url,title);" ');
document.write('onMouseOver=" window.status=');
document.write("'点击这里把本站保存到你的收藏夹中，方便以后访问！'; return true ");
document.write('"onMouseOut=" window.status=');
document.write("' '; return true ");
document.write('">加入收藏夹</a>');
}
</script>
<a onmouseover=" window.status='点击这里把本站保存到你的收藏夹中，方便以后访问！'; return true " onmouseout=" window.status=' '; return true " href="javascript:window.external.AddFavorite(url,title);">
加入收藏夹</a> ]</font> <br>
</b><br>
［在您升级为高级会员前，此临时站点将被保留15天］</font></strong></td>
</tr>
<tr>
<td height="14" valign="middle" align="left">
<div align="left">
<p align="center"><br>
<br>
<b><font color="#000000">祝贺你注册成功!</font><br><%=homepage%></font>?user=<%=temuser%>
</font>(请记住)
</b>。</p>
</div>
<div align="left">
请你按照下面银行帐号汇款（如需邮局汇款或其它汇款，请用QQ或Email索取详细地址信息）(强烈要求汇款的时候在汇款金额后面加上一个尾数，比如10.13元、15.42元、20.11元等，总之越特殊越好，以便收款人能准确确认后迅速给你激活)然后立即给以下收款人发信确认，确认的时候一定要把你的<b><font color="#000000">汇款金额</font></b><font color="#000000">、<b>真实姓名</b>、<b>汇款时间</b>、<b>注册用户名</b></font>等详细资料告诉你的上级会员！一般情况下一至两个工作日内你将拥有一套和我们一样的个性化的商务信息网站。你就可以正式开始宣传你的网站赚取丰厚回报！<br>
<br>
<b><font color="#000000">
[再次强调：汇款金额请加尾数，汇款确认信息要详细，否则上级会员难以确认而出现长时间没有激活的现象]</font></b></div>
<div align="left" style="width: 737; height: 303">
<p align="center"><strong><span class="font">使用银行汇款后请用邮件通知上级会员</span></strong><font size="2">。</font></p>
<table width="737" border="1" class="font" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" height="255">
<tr bordercolor="#CCCCCC" bgcolor="#66CC66" class="font">
<td align="center" height="19" bgcolor="#CCCCCC" width="56">
编号</td>
<td align="center" height="19" bgcolor="#CCCCCC" width="77">
姓名</td>
<td align="center" height="19" bgcolor="#CCCCCC" width="154">
银行帐号</td>
<td align="center" height="19" bgcolor="#CCCCCC" width="116">
开户行</td>
<td align="center" height="19" bgcolor="#CCCCCC" width="96">
EMAIL</td>
<td align="center" height="19" bgcolor="#CCCCCC" width="64">
QQ</td>
<td align="center" height="19" bgcolor="#CCCCCC" width="174">
激活状态</td>
</tr>
<%
set rs10=server.createobject("adodb.recordset")
sql10="select * from user where username = '"&user&"'"
rs10.open sql10,conn,3,2
if not rs10.eof then
%>
<tr class="font">
<td height="24" align="center" bgcolor="#CCCCCC" width="56">
1、</td>
<td align="center" height="24" width="77"><font color="#000000"><%=rs10(3)%></font></td>
<td align="center" height="24" width="154"><font color="#000000"><%=rs10(5)%></font></td>
<td align="center" height="24" width="116"><font color="#000000"><%=rs10(4)%></font></td>
<td align="center" height="24" width="96"><font color="#000000"><%=rs10(7)%></font></td>
<td align="center" height="24" width="64"><font color="#000000"><%=rs10(9)%></font></td>
<td align="center" height="24" width="174"><font color="#000000">
未激活</font></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -