typedel.asp

来自「教育管理系统」· ASP 代码 · 共 21 行

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<%
   dim sql 
   dim rs,typeid
   typeid=request("typeid")
   set rs=server.createobject("adodb.recordset")
   sql="delete from type where typeid="&typeid
   rs.open sql,conn,1,1
   sql="delete from learning where typeid="&typeid
   rs.open sql,conn,1,1
   rs.close
   set rs=nothing  
   conn.close
   set conn=nothing
%>
<script language="Vbscript"> 
msgbox"删除成功，请反回刷新！",0,"提示" 
history.back
</script>