del_product.asp

来自「购物系统时尚版.强大的后台文章编辑器的功能」· ASP 代码 · 共 70 行

<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<%
	if not isempty(saferequest("selAnnounce",0)) then
     		idlist=request("selAnnounce")
     		if instr(idlist,",")>0 then
			dim idarr
			idArr=split(idlist)
			dim id
		for i = 0 to ubound(idarr)
	       		id=clng(idarr(i))
	       		call deleteannounce(id)
		next
     		else
			call deleteannounce(clng(idlist))
     		end if
     		 
  	end if
  	
  	
  	sub deleteannounce(id)
    dim rs,sql,fso,image
	
   Set rs= Server.CreateObject("ADODB.Recordset")
   sql="select * from yqj_product where id="&cint(id)
   rs.open sql,conn,1,1
   'response.write sql
   if rs("big_pic") <> "b_no.gif" Then
   image=rs("big_pic")
   end if
   if rs("small_pic")<> "s_no.gif" Then
   images=rs("small_pic")
   end if
   
   
	If image <> "" Then
    image = server.mappath(".."&"\"&"upimg"&"\"&image)
    End If
    
    if images <> "" Then
    images = server.mappath(".."&"\"&"upimg"&"\"&images)
    end if
    
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	If fso.FileExists(image) Then
	fso.DeleteFile (image),true
	else
	Response.Write "大图片文件不存在！"
	end if
	'fso.close
	If fso.FileExists(images) Then
	fso.DeleteFile (images),true
	else
	Response.Write "小图片文件不存在！"
	end if
	rs.close
	set rs=nothing
	Set fso = nothing

	
    set rs=server.createobject("adodb.recordset")
    sql="delete from yqj_product where id="&cint(id)
    conn.execute sql
    rs.close
    set rs=nothing
    response.redirect "<meta HTTP-EQUIV=REFRESH CONTENT=""2; URL=index.asp"">"
    End sub
      
%>