📄 hyokdel.asp

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

💻 ASP

字号:

<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<%
id=Request("id")
findcontent=Request("findcontent")
pageno=Request("pageno")


%><HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="include/e1.css" type="text/css">
</HEAD>
<BODY>
-------------------------删除会员中...............<br>
<%
HyNumber=""
set rs=server.CreateObject("adodb.recordset")
sql="select HyNumber,LeftNumber,RightNumber from HyClub where HyID=" & cint(id)
rs.Open sql,conn
if rs.recordcount>0 then
	HyNumber=rs("HyNumber")
	LeftNumber=rs("LeftNumber")
	RightNumber=rs("RightNumber")
end if
set rs=nothing
if len(LeftNumber)>0 or len(RightNumber)>0 then%>
<script language="javascript">
		alert("会员<% =Hynumber%>存在下线，不能删除！\n只能删除没有下线的会员，请检查!");
		history.back();
	</script>	
<%response.end
end if
set rs=server.CreateObject("adodb.recordset")
sql = "select * from hyClub where HyNumber in (select HyParentNumber from hyClub where Hyid = " & cint(id) & ")"
rs.Open sql,conn
kk=rs.recordcount
if kk>0 then
	ParentID=rs("ID")
	if rs("LeftNumber")=HyNumber then
		strsql="update HyClub set LeftNumber='' where ID=" & ParentID
	else
		strsql="update HyClub set RightNumber='' where ID=" & ParentID
	end if
	set rs=server.CreateObject("adodb.recordset")
	rs.Open strsql,conn
end if
	set rs=nothing
	set rs=server.CreateObject("adodb.recordset")
	sql = "delete from hy where id = " & cint(id)
	rs.Open sql,conn
	set rs=nothing
	set rs=server.CreateObject("adodb.recordset")
	sql = "delete from hyClub where Hyid = " & cint(id)
	rs.Open sql,conn	



%>
<br>------------------------<font color=red>删除成功!</font><br>
<script language="javascript">
	window.location.href="hymanOK.asp?pageno=<% =pageno%>&findcontent=<%=findcontent%>"
	window.parent.frames(0).location.reload();
</script>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -