<!--#include file="cn.asp"-->
<%

if session("admin")="" then
response.Write "<script language=javascript>alert('非法用戶！');window.open('login.asp');</script>"
response.End()
cn.close
set cn=nothing
end if
leis=request.QueryString("leis")
id=request.QueryString("id")
select case leis
case 1
set rs=server.CreateObject("adodb.recordset")
sql="delete  from protyp where id ="&id
rs.open sql,cn,1,3
response.Write "<script language=javascript>alert('操作成功！');window.location.replace('addprolei.asp');</script>"
response.End()
rs.close
set rs=nothing
cn=nothing
set cn=nothing

case 2
set rs=server.CreateObject("adodb.recordset")
sql="delete  from inftyp where id ="&id
rs.open sql,cn,1,3
response.Write "<script language=javascript>alert('操作成功！');window.location.replace('addprolei.asp');</script>"
response.End()
rs.close
set rs=nothing
cn=nothing
set cn=nothing
end select
%>