catdel.asp

来自「·用JAVA实现的对动态树状信息的管理。操作员可以通过IE浏览器查看整个树形结构」· ASP 代码 · 共 24 行

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="dbpath.asp"-->
<%
if session("admin")="" then
objconn.close
  set objconn=nothing
  response.redirect "../default.asp"
end if
%>
<%dim sql,delsql
   dim objrs,delrs
   if Request.QueryString("catid")="" then
   Response.Write "wrong parameter"
   Response.End
   end if
   sql="delete from gallery where catid="&Request.QueryString("catid")
   objconn.execute sql
   sql="delete from cat where catid="&Request.QueryString("catid")
   objconn.execute sql
   objconn.close
   set objconn=nothing
   response.redirect "main.asp"
%>