📄 g_lostdel.asp

📁 一个很好的在线购物系统

💻 ASP

字号:



<!--#include file="../include/Pubconn.asp"-->
  <%
 '*********************************
 '
 'Author:Ruphi    Writing  Time:2001-08-31
 '功能：丢失报告中多个删除，当未选择一条记录时， 不进行删除操作
 '删除主表数据同时还要将子表中的对应的数据删除！
 '*************************************
 
%>
<%
flag=request("flag")  '从丢单报告明细表单中传过来的标志，以便返回
if request.form("xz").count<1 then
   if flag="1"  then
       response.Redirect("G_lostdetail.asp")
   else
       response.Redirect("G_mainlost.asp")
   end if 
   response.end

else

    for n=1 to request.form("xz").count    
    
     '将对应的字段名值取出来    
      xh=request.form("xz")(n)   
      lid=request("lid"&xh) 
      'response.write pid&"<br>"
     
       sql="Delete  from G_TblLostReport where ID="&cint(lid)
       Pubconn.execute(sql)      '主表删除
       sql="Delete  from G_TblLostInfo where L_ID="&cint(lid)
       Pubconn.execute(sql)      '子表删除

    next    
end if
%>
                                   
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>客户跟进计划主界面</title><link href="cread.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" >
 
<p align="center">
 
<font size="2">
 
成功删除！ 
<%if flag="1"  then%>
   <a  href="G_lostdetail.asp">返回</a></font>
<%else%>
   <a  href="G_mainlost.asp">返回</a></font>
<%end if %>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -