cate_del.asp

不错的证书查询系统源码

<!-- #include file="Include/Chk.asp" -->
<!-- #include file="Conn.asp" -->
<%
dim id
id=Request.QueryString("id")
if id="" then
	Response.Write "<script language='javascript'>alert('参数错误 !');document.location.href('Cate_Manage.asp');</script>"
	Response.End()
end if

SQL="Select * from Cate where id="&id
set rs=server.createobject("Adodb.Recordset")
rs.open sql,conn,3,3
rs.Delete
rs.Update
rs.close
Set rs=Nothing
Response.Write "<script language='javascript'>alert('成功删除指定的证书类别!');document.location.href('Cate_Manage.asp');</script>"
%>