del.asp

亿众购物系统 一套设计完善、高效的web商城解决方案

<!--#include file="../Session.asp"-->
 <%
dim page,idlist
page=request("page")

if not isempty(request("selAnnounce")) then
	idlist=request("selAnnounce")
	if instr(idlist,",")>0 then
		dim idarr
		idArr=split(idlist)
		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 fso,image
	Set rs = Server.CreateObject("ADODB.Recordset")
	sql="select SmallPic,MiddlingPic,BigPic from Merchandise where id="&cstr(id)&""
	rs.open sql,conn,1,1
	
   if rs("SmallPic") <> "Images/NoPic.jpg" Then
   image="../../"+rs("SmallPic")' 路径由此文件所在的位置决定
    end if
	If image <> "" Then
   image =server.mappath(image)
    End If
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	If fso.FileExists(image) Then
	fso.DeleteFile (image),true
	else
	Response.Write "<br>商品小图不存在无法删除！<br><br>"
	end if
	
  if rs("MiddlingPic") <> "Images/NoPic.jpg" Then
   image="../../"+rs("MiddlingPic")' 路径由此文件所在的位置决定
    end if
	If image <> "" Then
   image =server.mappath(image)
    End If
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	If fso.FileExists(image) Then
	fso.DeleteFile (image),true
	else
	Response.Write "商品中图不存在无法删除！<br><br>"
	end if
	
   if rs("BigPic") <> "Images/NoPic.jpg" Then
   image="../../"+rs("BigPic")' 路径由此文件所在的位置决定（注，此文件不是指要删的文件）
    end if
	If image <> "" Then
   image =server.mappath(image)
    End If
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	If fso.FileExists(image) Then
	fso.DeleteFile (image),true
	else
	Response.Write "商品大图不存在无法删除！"
	end if
	Set fso = nothing
	
	'删除商品表中数据
    conn.execute("delete from Merchandise where id="&cstr(id))
	'删除推荐商品表中数据
    conn.execute("delete from Commend where cpid="&cstr(id))
    if err.Number<>0 then
	err.clear
	response.write "<script>alert(""删除失败！"");location.href=""Default.asp?page="&page&""";</script>"
    else
        Response.Write "<script>alert(""删除成功！"");location.href=""Default.asp?page="&page&""";</script>"
    end if
  End sub
%>