📄 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
sql1="insert into user (username,password,name,bank,card,email,nickname,qq,address,postcard,logintime) values('"& temuser &"','"& request("password") &"','"& request("name") &"','"& request("bank") &"','"& card &"','"& request("email") &"','"& request("nickname") &"','"& request("qq") &"','"& request("address") &"','"& request("postcode") &"',now)"
conn.execute sql1,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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.border {
border: 1px solid #669933;
}
-->
</style>
<style type="text/css">
<!--
.font {
font-family: "宋体";
font-size: 12px;
color: #0066FF;
text-decoration: none;
}
-->
</style>
<style type="text/css">
<!--
.border2 {
border-bottom-width: 1px;
border-bottom-style: solid;
border-bottom-color: #669966;
}
-->
</style>
</head>
<!--#include file="top.asp"-->
<body background="http://www.3896.cn/1/img/bg1.gif">
<div align="center">
<table width=750 height=768 border=0 align=center cellpadding=0 cellspacing=0 class="border" bgcolor="#FFFFFF">
<!--DWLayoutTable-->
<tr>
<td width="746" height="25" align="center" valign="middle" bgcolor="#669933" class="font">
<strong><font color="#000000"><%=temuser%>的临时同发商务信息网络主页</font></strong></td>
</tr>
<tr>
<td height="14" valign="middle" align="left" width="746">
<div align="left">
<p align="center"><font color="#000000"><span class="font"><font size="2"><a href="<%=homepage%>?user=<%=temuser%>"><%=homepage%></font>?user=<font size="2"><%=temuser%></font></a></span></font><font size="2">(请记住)<br>
<br>
</font><span class="font"><b><font color="#000000">祝贺你注册成功!</font><font color="#CC0000" size="2"><b><font color="#0000FF"><br>
</font></b></font></b></span></p>
<p align="center" class="font">你已经拥有了一个临时同发商务信息网络网页。</p>
</div>
<div align="left">
<p><br>
请你按照下面银行帐号汇款（如需邮局汇款或其它汇款，请用QQ或Email索取详细地址信息）(强烈要求汇款的时候在汇款金额后面加上一个<br>
<br>
尾数，比如10.13元、15.42元、20.11元等，总之越特殊越好，以便收款人能准确确认后迅速给你激活)然后立即给以下收款人发信确认，确<br>
<br>
认的时候一定要把你的<b><font color="#000000">汇款金额</font></b><font color="#000000">、<b>真实姓名</b>、<b>汇款时间</b>、<b>注册用户名</b></font>等详细资料告诉你的上级会员！一般情况下一至两个工作日内你将<br>
<br>
拥有一套和我们一样的个性化的商务信息网站。你就可以正式开始宣传你的网站赚取丰厚回报！<br>
<br>
<b><font color="#000000">[再次强调：汇款金额请加尾数，汇款确认信息要详细，否则上级会员难以确认而出现长时间没有激活的现象]</font></b></p>
</div>
<div align="left">
<p align="center"><strong><span class="font">汇款后请用邮件或QQ留言通知上级会员</span></strong><font size="2">。</font></p>
<div align="center">
<table width="97%" height="241" border="0" bgcolor="#66CC33">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" class="font">
<tr bordercolor="#CCCCCC" bgcolor="#66CC66" class="font">
<td align="center"><font color="#000000">编号</font></td>
<td align="center"><font color="#000000">姓名</font></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -