📄 hyeditconfirmcheck.asp

📁 mlm双轨制直销系统V8.0免费版可用于： 1、直拨、回拨电话卡公司。 2、保健品、药品公司。 3、在线销售商品等等。 4、其他类型用到双轨制模式的线上开盘公司。

💻 ASP

字号:

<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<%
HyNumber = trim(request("HyNumber"))
HyPassword = trim(request("HyPassword"))
HyParentNumber = trim(request("HyParentNumber"))
place = trim(request("place"))
addTime=year(now)&"-"&month(now)&"-"&day(now)

id=Request("id")
pageno=trim(Request("pageno"))
findcontent=trim(request("findcontent"))
set rs=server.CreateObject("adodb.recordset")
sql ="select ID from hyclub where HyNumber='" & HyNumber & "'"
rs.Open sql,conn
if rs.RecordCount>0 then%>
	<script language="javascript">
		alert("你输入的编号已经有人用了，请检查!");
		history.back();
	</script>				
<%response.End 
end if

set rs1=server.CreateObject("adodb.recordset")
sql ="select leftnumber,rightnumber from hyclub where HyNumber='" & HyParentNumber & "'"
rs1.Open sql,conn
if rs1.RecordCount>0 then
	if place="左边" then
		if  len(trim(rs1("leftnumber")))>0 then%>
			<script language="javascript">
				alert("你输入的辅助主管编号左边已经有人了，请检查!");
				history.back();
			</script>
		
<%		response.End 
		end if
	end if
	if place="右边" then
		if  len(trim(rs1("rightnumber")))>0 then%>
			<script language="javascript">
				alert("你输入的辅助主管编号右边已经有人了，请检查!");
				history.back();
			</script>
		
<%		response.End 
		end if
	end if	
	
else%>
<script language="javascript">
	alert("你输入的辅助主管编号不存在，请检查!");
	history.back();
</script>
<%response.End 
end if%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="include/e1.css" type="text/css">
</HEAD>
<BODY>
-------------------------确认会员中...............<br>
<%

set rs=server.CreateObject("adodb.recordset")
sql = "update hy set IsApproved = 1 where id =" & id
'Response.Write sql
'Response.End 
rs.Open sql,conn

sql="insert into hyClub(Hyid,HyNumber,HyPassword,HyParentNumber,addTime) values("
sql = sql & id & ",'" & HyNumber & "','" & HyPassword & "','" & HyParentNumber & "','" & addTime & "')"
rs.Open sql,conn

if place="左边" then
	sql="update hyClub set IsLeaf=0,leftnumber='"
else
	sql="update hyClub set IsLeaf=0,rightnumber='"
end if
sql = sql & HyNumber & "' where HyNumber='" & HyParentNumber & "'"

'Response.Write sql
'Response.End 
rs.Open sql,conn
%>
<br>------------------------<font color=red>会员确认成功!</font><br>
<script language="javascript">
	window.location.href="hyman.asp?pageno=<% =pageno%>&findcontent=<%=findcontent%>"
	window.parent.frames(0).location.reload();
</script>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -