delete.asp

来自「这是一个用SQL Server和ASP开发的搜索引擎网站」· ASP 代码 · 共 11 行

<%
cat = Request("catid")
Conn_String ="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=qiye_8;User Id=sa;Password=password;"  
Set Conn=Server.CreateObject("ADODB.Connection")	
Conn.Open Conn_String
set rs = Conn.Execute ("delete  From cat where ID=" & cat)
set rssubcat = Conn.Execute ("delete  From subcat where CatID='" & cat & "'")
Response.Write "类别 , 子类别和它们下面的所有内容已被删除."
%>