IF not(Session("KEY")="super") THEN
response.redirect "error.asp?id=065"
response.end
END IF
%>
dim rs,tsql
dim rst
typename=request("typename")
if request("caozuo")="del" then
set rst=server.CreateObject("ADODB.RecordSet")
rst.open "delete * from type where typeid="+request("typeid"),conn,1
rst.close
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "delete * from article where typeid="+request("typeid"),conn,1
rs.close
end if
response.redirect "typemanage.asp"
response.end
%>
