info_type_del.asp

来自「核心惊云下载系统」· ASP 代码 · 共 27 行

<%Admin="InfoType"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
sql="select * from infotype where id="&request("id")
Set rs= Server.CreateObject("ADODB.Recordset")       
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<li>参数错误,没有此分类!"
response.end
else
	Set rs_type= Server.CreateObject("ADODB.Recordset")
	sql_type="select * from infotype where ts like '"&rs("ts")&"%'"
	rs_type.open sql_type,conn,1,1
		do while not rs_type.EOF
			conn.execute "delete * from info where tid="&rs_type("id")
			conn.execute "delete * from infotype where id="&rs_type("id")
		rs_type.MoveNext
		loop
	rs_type.close
	set rs_type=nothing
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "info_sort.asp?id="&request("sortid")&""%>