?? hyokdel.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 + -