del2.asp

来自「亿众购物系统 一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 24 行

<!--#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 Delete Fromannounce(id)
		next
     		else
			call Delete Fromannounce(clng(idlist))
     		end if
  	end if 
sub Delete Fromannounce(id)
    conn.execute("Delete From Purchase where id="&cstr(id))
	response.write "<script>alert(""删除成功！"");location.href=""Purchase.asp?page="&page&""";</script>"
End sub
%>