lhb_delete.asp

来自「思翔会员制收费阅读（文章管理）系统20080323 收费按每点击一次收费一」· ASP 代码 · 共 42 行

<!-- #include file="LHB_Check_Session.asp" -->
<!--#include file="config.asp"-->
<!--#include file="LHB_copy.asp"-->
<!--#include file="LHB_head.asp"-->
<!--#include file="LHB_DHT_01.asp"-->
<!--#include file="LHB_DHT_02.asp"-->
<br>
<%
ID=Request("LouHB_ID")
L_Table=Request("LouHB_Table")

Select Case L_Table '删除连锁店之前检查是否有成员

Case "LHB_WenZhang"
L_ID="L_WenZhangID"
Set Lours=server.createobject("adodb.recordset")
Check="Select L_WenZhangID From LHB_YueDuJL where L_WenZhangID ='"&ID&"'"
Lours.Open Check,Louconn,1,1

If Not (Lours.EOF And Lours.BOf ) Then
Call Copy()
response.write"<SCRIPT language=JavaScript>alert('该文章已有会员阅读过，您不能删除！');"
response.write"javascript:history.go(-1)</SCRIPT>"
Lours.Close
Set Lours=Nothing
LouConn.Close
Set LouConn=Nothing
Response.End
End If

Case "LHB_USER_DATA"
L_ID="LHB_GongHao"
End Select

Del="delete from "&L_Table&" where "&L_ID&"='"&ID&"'"
Louconn.Execute Del
Set LouConn=Nothing

Call Copy()
response.write "<script language=JavaScript>" & chr(13) & "alert('恭喜，删除成功！');"&"window.location.href = 'index.asp'"&" </script>"
response.end
%>