del_s.asp

实现让客户上网就可以挑选自己所想要的装饰物

<!--#include file="cn.asp"-->
<%id=request.QueryString("id")
lei=request.QueryString("lei")
if session("company")="" then
response.Write "<script language=javascript>alert('非法用户！');window.open('login.asp');</script>"
response.End()
cn.close
set cn=nothing
end if


select case lei
case 1
cn.execute "delete from cmessage where id in ("&request.form("del")&")"

response.Write "<script language=javascript>alert('操作成功！');history.go(-1);</script>"
response.End()
rs.close
set rs=nothing
cn=nothing
set cn=nothing
case 2
cn.execute "delete from news1 where id in ("&request.form("del")&")"

response.Write "<script language=javascript>alert('操作成功！');window.location.replace('comnews.asp');</script>"
response.End()
rs.close
set rs=nothing
cn=nothing
set cn=nothing
case 3
cn.execute "delete from need where id in ("&request.form("del")&")"

response.Write "<script language=javascript>alert('操作成功！');window.location.replace('need.asp');</script>"
response.End()
rs.close
set rs=nothing
cn=nothing
set cn=nothing
case 4
cn.execute "delete from message where id in ("&request.form("del")&")"

response.Write "<script language=javascript>alert('操作成功！');window.location.replace('message.asp');</script>"
response.End()
rs.close
set rs=nothing
cn=nothing
set cn=nothing
case 6
cn.execute "delete from inf where id in ("&request.form("del")&")"

response.Write "<script language=javascript>alert('操作成功！');window.location.replace('index.asp');</script>"
response.End()
rs.close
set rs=nothing
cn=nothing
set cn=nothing
end select
%>