📄 saledelt.asp
字号:
<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>删除销售信息</title>
<link rel="stylesheet" type="text/css" href="../../style.CSS">
</head>
<body>
<%
Dim sid
sid = Request.QueryString("sid")
'判断任务进度中是否包含此销售编号
sql = "Select * FROM SaleTask WHERE SaleId='" & sid & "'"
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
Response.Write "<Script>alert('不能删除');window.close();</Script>"
Response.End()
End If
sql = "DELETE FROM SaleChance WHERE Id='" & sid & "'"
Conn.Execute(sql)
Response.Write "<h3>删除成功</h3>"
%>
</body>
<script language="javascript">
// 刷新父级窗口，延迟此关闭
opener.location.href = "SaleList.asp";
setTimeout("window.close()",600);
</script>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -