f_swbgdel.asp

一个很好的在线购物系统

<!--#include file="../include/Pubconn.asp"-->
  <%
 '*********************************
 '
 'Author:Ruphi  Update Time:2001-08-30
 '功能：计划活动中多个删除，当未选择一条记录时， 不进行删除操作
 '
 '*************************************
 
%>
<%

'if request.form("xz").count<1 then
'   response.Redirect("F_swbgbrow.asp")
'   response.end

'else
   
 ' for n=1 to request.form("xz").count    
    
     '将对应的字段名值取出来    
     ' xh=request.form("xz")(n)   
     ' pid=request("htID"&xh)
     ' response.write pid
       ID=request("ID")
       ywy=request("ywy")
      '在此删除中只是将某一些字段置空
      set rsbg=Server.CreateObject("ADODB.RecordSet")
      sql="select  *  from F_Tblcontract2  where ID="&CINT(ID)
      rsbg.open sql,Pubconn,1,3
      IF NOT RSBG.EOF THEN
        rsbg.Fields("helpperson")=""
		rsbg.Fields("infotime")=""
	    rsbg.Fields("investime")=""
	   	rsbg.Fields("prodintroducetime")=""
		rsbg.Fields("communiontime")=""
		rsbg.Fields("advicetime")=""
		rsbg.Fields("soluteproblemtime")=""
		rsbg.Fields("paystatus")=""
		rsbg.Fields("experience1")=""
		rsbg.Fields("experience2")=""
		rsbg.Fields("experience3")=""
		rsbg.Fields("experiencea")=""
		rsbg.Fields("experienceb")=""
		rsbg.Fields("experiencec")=""
		rsbg.Fields("presentplan")=""
		rsbg.Fields("esceptask")=""
		rsbg.Fields("remark")=""
		rsbg.Fields("bz")="0"     '报告被删除
        rsbg.update
     END IF 
   ' next    
'end if
response.redirect("F_swbginput.asp?ID="+ID+"&ywy="+ywy)
%>